前军教程网

书接上文，以下是VBA用户窗体中常用控件的详细解析，涵盖核心属性、关键事件、典型应用场景及代码示例，助您精准掌握每个控件的使用方法。

以下是关于VBA中文本框（TextBox）的详细教程，涵盖基础操作、属性设置、事件处理及实际应用场景，适合新手系统学习。

3.2 文本框（TextBox）基础

3.2.1、 什么是文本框？

• 功能：允许用户在界面中输入或编辑文本。
• 常见场景：数据录入、搜索框、密码输入、动态交互等。
• 类型：VBA中主要分为 UserForm文本框 和 工作表ActiveX文本框。

3.2.2、创建文本框

1. 在UserForm中添加文本框

1. 打开VBA编辑器（Alt+F11）。
2. 插入UserForm（右键项目 → 插入 → UserForm）。
3. 从工具箱拖动TextBox控件到窗体。

2. 在工作表中插入ActiveX文本框

1. 进入Excel → 开发工具 → 设计模式 → 插入 → ActiveX控件 → 文本框。
2. 右键文本框 → 属性：调整名称（如TextBox1）。

3.2.3、常用属性详解

一、通过属性控制文本框的外观和行为：

1. 外观属性

2. 行为控制属性

3. 布局与位置属性

4. 数据与内容属性

5. 其他高级属性

二、属性使用示例

1. 创建多行带滚动条的文本框

With TextBox1
    .MultiLine = True
    .ScrollBars = fmScrollBarsVertical  ' 显示垂直滚动条
    .Height = 100
    .Width = 200
    .Text = "第一行" & vbCrLf & "第二行"  ' 使用换行符
End With

2. 动态选中文本内容

' 选中文本框中的第3到第5个字符
TextBox1.SelStart = 2  ' 索引从0开始
TextBox1.SelLength = 3

3. 设置密码输入框

TextBox1.PasswordChar = "*"
TextBox1.MaxLength = 8  ' 限制密码长度为8位

三、容易被忽略的重要属性

1. EnterKeyBehavior

• 作用：控制多行文本框中按下回车键的行为。
• 示例：

TextBox1.MultiLine = True 
TextBox1.EnterKeyBehavior = True ' 允许回车换行

2. IntegralHeight

• 作用：自动调整文本框高度，确保完整显示所有行。
• 示例：

TextBox1.IntegralHeight = True ' 避免显示半行文本

3. IMEMode

• 作用：控制东亚语言输入法（如中文、日文）的启用状态。
• 示例：

TextBox1.IMEMode = fmIMEModeOn ' 强制启用输入法

掌握这些属性后，你可以更灵活地控制文本框的交互和样式，满足复杂场景需求（如动态表单、数据验证、多语言输入等）。建议通过实际项目练习，逐步熟悉每个属性的具体效果。

3.2.4、关键事件处理

事件是用户操作触发的代码响应：

1. Change 事件

• 触发条件：文本框内容变化时。
• 示例：实时验证输入是否为数字。

Private Sub TextBox1_Change() 
    If Not IsNumeric(TextBox1.Text) Then 
        MsgBox "请输入数字！" 
        TextBox1.Text = "" ' 清除非数字内容 
    End If 
End Sub

2. Exit 事件

• 触发条件：光标离开文本框时。
• 示例：验证邮箱格式。

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) 
    If InStr(TextBox1.Text, "@") = 0 Then 
        MsgBox "邮箱格式错误！" 
        Cancel = True ' 阻止离开文本框 
    End If 
End Sub

3. KeyPress 事件

• 触发条件：按下键盘时。
• 示例：限制只能输入字母。

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If Not Chr(KeyAscii) Like "[A-Za-z]" Then 
        KeyAscii = 0 ' 阻止输入非字母字符 
    End If
End Sub

3.2.5、常用方法

1. SetFocus 方法

• 作用：将光标聚焦到文本框。

TextBox1.SetFocus

2. 清空文本框内容

TextBox1.Text = ""
' 或
TextBox1.Value = ""

3.2.6、数据验证技巧

1. 验证数字范围

If Val(TextBox1.Text) < 0 Or Val(TextBox1.Text) > 100 Then
    MsgBox "请输入0-100之间的数字！"
End If

2. 使用正则表达式验证复杂格式（如手机号）

Dim regex As Object
Set regex = CreateObject("VBScript.RegExp")
regex.Pattern = "^\d{11}#34; ' 11位数字
If Not regex.Test(TextBox1.Text) Then
    MsgBox "手机号格式错误！"
End If

3.2.7、高级应用

1. 动态创建文本框（运行时生成）

Dim txtDynamic As MSForms.TextBox
Set txtDynamic = UserForm1.Controls.Add("Forms.TextBox.1", "txtDynamic", True)
With txtDynamic
    .Left = 20
    .Top = 20
    .Width = 100
    .Visible = True
End With

2. 多文本框联动

' 当TextBox1输入时，自动填充TextBox2
Private Sub TextBox1_Change()
    TextBox2.Text = UCase(TextBox1.Text) ' 转换为大写
End Sub

3.动态生成文本框并设置属性

' 在UserForm中动态创建文本框
Dim txtDynamic As MSForms.TextBox
Set txtDynamic = UserForm1.Controls.Add("Forms.TextBox.1", "txtDynamic")
With txtDynamic
    .Left = 50
    .Top = 50
    .Width = 150
    .Height = 24
    .BackColor = RGB(240, 240, 240)
    .ControlTipText = "请输入您的姓名"
    .Visible = True
End With

3.2.8、常见问题解决

• 文本框无法输入：检查Locked和Enabled属性是否为False。
• 密码掩码不生效：确认PasswordChar已设置（如*），且MultiLine为False。
• 换行符处理：多行模式下使用vbCrLf：

TextBox1.Text = "Line1" & vbCrLf & "Line2"

• 如何清除文本框内容？

TextBox1.Text = ""
' 或
TextBox1.Value = ""

• 如何禁止用户输入空格？

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii = 32 Then  ' 32是空格的ASCII码
        KeyAscii = 0       ' 阻止输入
    End If
End Sub

• 如何让文本框自动聚焦？

Private Sub UserForm_Initialize()
    TextBox1.SetFocus
End Sub

3.2.9、实际案例：登录界面

' UserForm包含：txtUser（用户名）、txtPass（密码）、btnLogin（按钮）
Private Sub btnLogin_Click()
    If txtUser.Text = "Admin" And txtPass.Text = "123456" Then
        MsgBox "登录成功！"
        Unload Me
    Else
        MsgBox "用户名或密码错误！"
        txtPass.Text = ""
    End If
End Sub

通过以上内容，你可以掌握VBA文本框的核心操作。建议通过实际项目练习，例如制作数据录入表单或交互式报表，逐步提升熟练度。