13.txt

来自「介绍VB里的各种控件的使用方法,窗口控制,图像编程以及OCX等内容,还提供了一个」· 文本 代码 · 共 31 行

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

>>步骤3----编译运行，先在TextBox中输入一个数字，然后再在PictureBox上点一下，看看TextBox的内容是不是自动调整了。