主题：移动开发 有能在弹出对话框里输入内容的控件吗？

参考这里

http://www.foxtable.com/mobilehelp/scr/0080.htm

在里面插入一个文本框即可，类似

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>请输入值<p><input name='test' id='test'/>")
            .AddButton("btnOK","确定").Attribute = """
        End With
        e.WriteString(wb.Build) '生成网页
End Select