19841120 发表于 2005-6-15 17:25:00

一个极菜的问题！！请大家看一下。

<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">小弟在文字框输入数据时，遇到一个小问题，如果在输入数据时，误输入了像<FONT face="Times New Roman">0123</FONT>这样的以<FONT face="Times New Roman">0</FONT>的开头的数据，（实际上是<FONT face="Times New Roman">123</FONT>），如果不小心运行了程序，会造成程序的错误，

那位高手给指点一二，给写一个小程序段避免以0开头的数据出现在文本框中，若出现以0开头的数据运行时则出现警告，各位高手帮忙！！小弟不胜感激！！

wyj7485 发表于 2005-6-15 18:24:00

Private Sub TextBox1_Change()<BR>If Left(TextBox1.Text, 1) = "0" Then<BR>MsgBox "警告:"<BR>TextBox1.Text = ""<BR>End If<BR>End Sub
页: [1]
查看完整版本: 一个极菜的问题！！请大家看一下。