Foxtable(狐表)用户栏目专家坐堂 → [求助] WEUI 需要个弹窗


  共有2171人关注过本帖树形打印复制链接

主题:[求助] WEUI 需要个弹窗

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/12/19 18:47:00 [显示全部帖子]


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/12/19 19:06:00 [显示全部帖子]

我这样测试没问题

 

Select Case e.Path
    Case "test.htm", ""
        Dim wb As New WeUI
        With wb.AddButtonGroup("","bng2",True)
            .Add("btn1","Dialog1").Attribute = """
        End With
        With wb.AddDialog("","dlg1", "提示","您的订您的订您的订您的订您的订您的订您的订您的订您的订您的订您的订您的订您的订您的订您的订您的订您的订您的订您的订您的订您的订您的订<p>123<p>123<p>123<p>123<p>123<p>123<p>123<p><p>123<p>123<p>123<p>123<p>123<p>123<p>123<p>123<p>123<p>123<p>123<p>123<p>123<p>123<p>123<p>123<p>123<p>123<p>123<p>123单正在派送,请注意查收!")
            .AddButton("btnOK","确定").Attribute = """
        End With
        wb.InsertHTML("<style>.weui_dialog_bd {height: 200px;overflow: auto;} .weui_dialog{width:50%}</style>")
        e.WriteString(wb.Build) '生成网页
End Select


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/12/19 20:58:00 [显示全部帖子]

1、具体做个实例,或者贴出可以执行的代码测试。

 

2、请你看懂4楼代码的意思,我测试没问题。


 回到顶部