第6章控件与用户窗体代码[超实用VBA]VIP专享

4 2 第 6 章 控 件 与用户窗体 范例 6 7 文本框只能输入数值 Private Sub TextBox1_KeyPress(ByVal KeyANSI As MSForms.ReturnInteger) With TextBox1 Select Case KeyANSI Case Asc("0") To Asc("9") Case Asc("-") If InStr(1, .Text, "-") > 0 Or .SelStart > 0 Then KeyANSI = 0 End If Case Asc(".") If InStr(1, .Text, ".") > 0 Then KeyANSI = 0 Case Else KeyANSI = 0 End Select End With End Sub Private Sub TextBox1_Change() Dim i As Integer Dim Str As String With TextBox1 For i = 1 To Len(.Text) Str = Mid(.Text, i, 1) Select Case Str Case ".", "-", "0" To "9" Case Else .Text = Replace(.Text, Str, "") End Select Next End With End Sub 4 3 范例 6 8 限制文本框的输入长度 Private Sub TextBox1_Change() TextBox1.MaxLength = 6 End Sub 范例 6 9 验证文本框输入的数据 Private Sub CommandButton1_Click() With TextBox1 If (Len(Trim(.Text))) = 15 Or (Len(Trim(.Text))) = 18 Then Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = .Text Else MsgBox "身份证号码错误，请重新输入!" End If .Text = "" .SetFocus End With End Sub 范例 7 0 文本框回车自动输入 Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) Dim r As Integer r = Cells(Rows.Count, 1).End(xlUp).Row With TextBox1 If Len(Trim(.Text)) > 0 And KeyCode = vbKeyReturn Then Cells(r + 1, 1) = .Text .Text = "" End If End With End Sub 范例 7 1 文本框的自动换行 Private Sub UserForm_Initialize() With TextBox1 .WordWrap = True 4 4 .MultiLine = True .Text = "文本框是一个灵活的控件，受下列属性的影响：Text、" _ & "MultiLine、WordWrap 和 AutoSize。" & vbCrLf _ & "Text 包含显示在文本框中的文本。" & vbCrLf _ & "MultiLine 控制文本框是单行还是多行显示文本。" _ & "换行字符用于标识在何处结束一行并开始新的一行。" _ & "如果 MultiLine 的值为 False，则文本将被截断，" _ & "而不会换...