TextBox的自动调节
你一定见过这样的TextBox,当焦点离开后,TextBox的内容按一定的格式自动调整。 比如:你在TextBox中输入“34”,当TextBox失去焦点时,其内容自动调节为“0034”。 其实,实现起来很简单。
下面的例子就实现了这个功能。
>>步骤1----建立新工程,在窗体上放置TextBox控件,再在窗体上放置一个可以得 到焦点的控件,比如PictureBox。
>>步骤2----编写如下代码:
Private Sub Form_Load()
Text1.Text = ""
End Sub
Private Sub Text1_Change()
If Not IsNumeric(Text1.Text) Then
SendKeys "{bs}" 'To ensure your inputs is number
End If
End Sub
Private Sub Text1_LostFocus()
Text1.Text = AutoRec(Text1.Text, 4)
End Sub
Private Function AutoRec(ByVal strString As String, ByVal nLength As Integer) As String
Dim nTmpLth As Integer
nTmpLth = Len(strString)
Dim i As Integer
AutoRec = strString
For i = 1 To nLength - nTmpLth
AutoRec = "0" & AutoRec
Next
End Function
本内容试读结束,登录后可阅读更多
下载后可阅读完整内容,剩余1页未读,立即下载