大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
你用的都是vb6的代码,改成:
创新互联是专业的全南网站建设公司,全南接单;提供做网站、网站制作,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行全南网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!
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
Private Sub Form_Load()
Text1.Text = "请输入"
End Sub
Private Sub Text1_GotFocus()
If Text1.Text = "请输入" Then Text1.Text = ""
End Sub
Private Sub Text1_LostFocus()
If Text1.Text = "" Then Text1.Text = "请输入"
End Sub
补充说明:不提倡你的做法。尽管这是目前软件或网页比较流行的提示用户输入的方式,但别忘了VB6是上世纪的古董级程序设计语言,当时的软件界面设计中并没有这种方式的,而我上面提供的用代码来解决的方式必然会增加系统负担。所以最好还是用标准方式即Label标签控件来进行提示。
input type="text" maxlength="11" /这是控制最大输入字数至于不能少于11个字,需要在点击保存按钮时,通过.length来控制