使用Dialog

Dialog用于显示一个对话框。

一个例子

HttpRequest事件代码：

'''
Select Case e.Path
    Case "test.htm"
        Dim wb As New WeUI
        With wb.AddButtonGroup("","bng2",True)
            .Add("btn1","Dialog1").Attribute = "onclick=""show('dlg1')"""
            .Add("btn2","Dialog2").Attribute = "onclick=""show('dlg2')"""
        End With
        With wb.AddDialog("","dlg1", "提示","您的订单正在派送,请注意查收!")
            .AddButton("btnOK","确定").Attribute = "onclick=""alert('谢谢支持!')"""
        End With
        With wb.AddDialog("","dlg2", "删除确认","您确定要删除当前记录吗?")
            .AddButton("btnCancel","取消").Kind = 1
            .AddButton("btnOK","确定","./delete.htm?id=12")
        End With
        e.WriteString(wb.Build) '生成网页
    Case "delete.htm"
        Dim sb As New StringBuilder
        sb.AppendLine("<meta name='viewport' content='width=device-width,initial-scale=1,user-scalable=0'>")
        sb.AppendLine("呜呜，我被删除了！")
        e.WriteString(sb.ToString)
End Select

提示：

1、上述代码中的show，是我们在文件"weui.me.js"定义的一个函数，分别用于显示和隐藏指定ID的对象 ，对应地还有一个hide函数，用于隐藏指定ID的对象。
2、注意所有js函数都是区分大小写的，例如你用Show或者Hide，是不会执行的，今后不会再重复提示，请大家注意了。

通过手机访问，会显示两个按钮，分别单击两个按钮，会显示两个对话框：

AddDialog

AddDialog用于添加对话框,语法：

AddDialog(ParentId, ID, Title, Content)

AddButton

AddButton用于添加对话框按钮，语法：

AddButton(ID, Text)
AddButton(ID, Text, Href)

Dialog的属性有：

Visible：逻辑型，打开网页后是否显示Dialog，默认为False。