《Excel VBA+SQL数据管理与应用模板开发》_工作效率UP!_6.2.3 常用控件：文本框

【摘要】 本书摘自《Excel VBA+SQL数据管理与应用模板开发》一书中第6章，第2节，韩小良著。

6.2.3 常用控件：文本框

文本框可供用户输入数据，或在窗体中显示数据，是VBA 中显示和输入数据的主要控件。

文本框是一个相当灵活的数据输入和数据显示工具，可以输入或显示单行文本，也可以输入或显示多行文本，还可以利用事件控制数据输入。

文本框名字是TextBox, 插入的文本框默认名字和标题 (Caption 属性)都是 TextBox1、 TextBox2、TextBox3 等。

文本框的默认属性是 Value 属性，默认事件是Change 事件。

1.获取文本框的数据

获取文本框数据的方法是利用Text属性或Value 属性。语句如下：

变量=文本框名.Text

或者

变量=文本框名.Value

如果在文本框中输入的是身份证号码、邮政编码、科目编码这类数字，那么要获取这样 的文本框数据并保存到单元格需要在文本框数字的前面加单引号。语句如下：

x ="""&TextBox1.Value

2.向文本框中输入数据

向文本框中输入数据，既可以在窗体中直接输入数据到文本框，也可以通过程序向文本 框输入数据。通过程序向文本框输入数据的语句如下：

文本框名.Text =数据

或者

文本框名.Value =数据

例如，向文本框 TextBox1中输入数据“姓名”的语句如下：

TextBox1.Text ="姓名"

或者

TextBox1.Value ="姓名"

常用控件：复合框

复合框又称为组合框，用来从一个列表中选中一个项目且只能选中一个项目，就像在单 元格中设置的数据验证一样。

复合框实际上是将列表框和文本框的特性结合在一起。用户可以像在文本框中那样输入 新值，也可以像在列表框中那样选择已有的值。

复合框的名字是ComboBox, 插入的复合框的默认名称是ComboBox1 、ComboBox2、

ComboBox3 等。

复合框没有标题。

复合框的默认属性是Value 属性，默认事件是 Change 事件。

复合框的属性中大部分需要在程序运行中予以设置。在使用复合框时，必须为用户窗体 设计初始化事件程序。

1.利 用Addltem 方法为复合框列表添加项目

在使用复合框之前，首先必须为复合框添加项目，以便能够从复合框中选择某个项目。 为复合框列表添加项目的方法之一就是利用AddItem 方法。其语法如下：

复合框名.AddItem 字符串

案例6-2

下面是利用AddItem 方法为复合框列表添加项目的两种方法。

方法一，采用列表方式。

Private Sub UserForm_Initialize)

With ComboBox1

.AddItem "AAAA"

.AddItem "BBBB"

.AddItem "CCCC"

.AddItem "DDDD"

End With

End Sub

方法二，采用数组方式。

Private Sub UserForm_Initialize)

Dim myArray As Variant,i As Integer

myArray =Array("AAAA","BBBB","CCCC","DDDD") Fori=0 To UBound(myArray)

ComboBox1.Addltem myArray(i)

Next i

End Sub

显然，方法二要简单得多，适合于设置很多项目的场合。

运行此窗体程序，就可以使用复合框了，如图6-10所示。

2.利用 RowSource 属性为复合框列表添加项目

我们还可以利用RowSource属性为复合框添加项目。RowSource 属性可以接收 Excel 工作 表的数据区域，但必须是保存一列或几列的数据。

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们 18664393530@aliyun.com 处理，核实后本网站将在24小时内删除侵权内容。