主题：[求助]移动端input控件

请贴出完整的全部代码，如果贴出来一些字符不见了，请使用txt文件上传上来查看。

       With wb.AddButtonGroup("form1","btg1",True)

 

改成

 

       With wb.AddButtonGroup("form1","btg1",True)

 

你绑定的是 onchang 事件，你应该要绑定的是 onkeydown 事件吧？按下回车之后，焦点离开。

 

 

js那里首尾加入alert(123)看能否正常弹出，如果不能正常弹出说明你写的js代码有问题，或者是你绑定的事件有问题。

 

请贴出全部可以执行的代码。或者做个实例发上来测试。

改成这样，弹出什么？

 

 

改成这样，输入值，弹出什么？

 

.AddInput("pname","品号","text").Attribute="onkeydown=""alert(123);document.getElementById('ph').focus();alert(456)""" 

 

改成这样，输入值，弹出什么？

 

.AddInput("pname","品号","text").Attribute="onkeydown=""alert(123);document.getElementById('ph').focus();alert(456)""" 

 

不可能，请把实例发上来说明。

 

我这样测试没问题

 

Select Case e.Path
    Case "","test.htm"
        Dim wb As New WeUI
        wb.AddForm("","form1","zxjc.htm")
        With wb.AddInputGroup("form1","ipg1","检测")
            .AddInput("pname","品号","text").Attribute="onkeydown=""alert(123);document.getElementById('ph').focus();alert(456)"""
            .AddInput("ph","批号","text")
            .AddInput("xh","箱号","text")
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            . Add("btn1", "确定", "button").Attribute = ""
        End With
       
        e.WriteString(wb.Build)
End Select

执行下面代码弹出什么？如果什么都没弹出，说明js文件引入有问题。

 

代码没问题，你js引入肯定不正确，请上传实例说明。