你用的都是vb6的代码,改成:
成都创新互联公司主营成都网站建设的网络公司,主营网站建设方案,成都APP应用开发,成都h5微信小程序开发搭建,成都网站营销推广欢迎成都等地区企业咨询
Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
If IsNumeric(TextBox1.Text) = False Then
MsgBox("输入有非数字字符,请重新输入", vbOKOnly, "友情提示")
TextBox1.Focus()
Return
End If
End Sub
文本框本来就可以输入001啊,你想要什么样的结果,请再说明清楚一点,只有想不到没有做不到。
Private Sub Text1_Change()
For x = 0 To List1.ListCount - 1
If Text1.Text = List1.List(x) Then
List1.Selected(x) = True
End If
Next x
End Sub
input type="text" maxlength="11" /这是控制最大输入字数至于不能少于11个字,需要在点击保存按钮时,通过.length来控制