老师，

  weui 生成的界面在电脑网页上显示为

此主题相关图片如下：qq图片20171121150047.png

太大了 怎么能小一些 不要全屏呢 也不知该怎么 描述

Dim wb As New weui
Select Case e.Path
    Case "logon.htm"     ’这块能判断下 是手机登录 还是 电脑登录呢
        Functions.Execute("n_addnew",e,wb,"logon.htm")
End Select
e.WriteString(wb.Build)

mark userAgent，你可以把下面的代码写成一个函数调用

        msgbox(e.request.UserAgent )
        Dim agent As String = e.request.UserAgent
        Dim flag As Boolean = False
        Dim keywords As String() = {"Android", "iPhone", "iPod", "iPad", "Windows Phone", "MQQBrowser"}
        \'排除 Windows 桌面系统
        If Not agent.Contains("Windows NT") OrElse (agent.Contains("Windows NT") AndAlso agent.Contains("compatible; MSIE 9.0;")) Then
            \'排除 苹果桌面系统
            If Not agent.Contains("Windows NT") AndAlso Not agent.Contains("Macintosh") Then
                For Each item As String In keywords
                    If agent.Contains(item) Then
                        msgbox(item)
                        flag = True
                        Exit For
                    End If
                Next
            End If
        End If
        If flag Then
            msgbox("手机")
        Else
            msgbox("电脑")
        End If

谢谢老师  又长知识了 这个非常需要

我的初衷时说 电脑网页 登录按钮 能否小点 如下图 做这么一个登录界面 WEUI怎么 做呢

去学习html和css和js

http://www.w3school.com.cn/h.asp

老师

也就是 电脑网页版 不能 WEUI？

可以用，但是weui是用来做移动端的，建议你用别的框架。

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=109476&skin=0