VBAExcel实践（三）Excel控件及Excel控件的初始化
textalign⽂本对齐⽅式1 fmTextAlignLeft
2
fmTextAlignCenter
3
fmTextAlignRight
对于listbox只对编辑框起作⽤
AutoSize控件调节⾃⾝⼤⼩ture
false
true表⽰⾃动调整，当然不同的空间⾃动调整的含义不同
AutoTab 当⽤户在⽂本框或组合框的⽂本框区域输
⼊了最⼤允许字符数时，是否⾃动跳格
ture
false
MaxLength 属性规定了在⽂本框或组合框的⽂本
框区域内所允许的最⼤字符数
TabIndex按tab键时TabIndex表⽰第⼏个跳到该控件整数
TabStop TabStop表⽰按tab键时是否忽略该控件ture
false
true 表⽰接受tab
ControlSource 标识⽤于设置或储存控件中 Value 属性的
数据位置。ControlSource 属性可接受
Microsoft Excel ⼯作表区域
⼀般写excel单元格
excel单元格和控件对应的value可以互相影响。意思就是
你改⼀个另外⼀个就会跟着改
ControlTipText 指定当⽤户将⿏标指针放在控件上但未按下时所显⽰的⽂本
引⾔
我们还是要回顾下我们要⼲什么？我们的⽬标是做⼀个具有查询及显⽰查询结果的⼯具。上⼀章介绍了窗体及其属性、事件、⽅法等，这个东西只能算是画个查询条件的框框，⾥⾯的具体查询条件怎么填呢。
从我们见过的软件分析，要写⼀个查询条件的输⼊，必须有输⼊框吧，有可能有选择框吧，有可能有多选、单选框吧，你得有确定按钮吧，本章主要描述这些东西及其初始化
⼀、综述
控件其实也是窗体，是上篇中的窗体的⼉⼦、继承者。⽬前我们常⽤的有标签（Lable），⽂本框（TextBox），复合框（ComboBox），列表框（ListBox），复选框（CheckBox），选项按钮（OptionButton），命令按钮（CommandButton），等等。
因为控件和窗体是继承关系，所以控件的属性和窗体差不多，如位置、⼤⼩、字体相关、图⽚相关、⿏标相关等。但是龙⽣九⼦，⼦⼦不同，他们⼜会⽣出具有各⾃特点的属性。
⼆、属性
上⾯说了，龙⽣九⼦，⼦⼦不同。所以控件在继承窗体的属性时，不是全部继承，⼀般都是根据⾃⾝的功能去继承⽗亲的某些特点。同时，⼉⼦也会⽣出⼀些⾃⼰的共性特点（属性）。
新属性：
三、⽅法
AddItem，RemoveItem⽅法等
四、控件初始化⽰例
对于控件的初始化，我们⼀般在UserForm的init事件中进⾏。初始化控件时，可对控件的属性进⾏赋值。本次⽰例对checkbox，textbox，listbox，combobox进⾏了初始化操作，分别进⾏了：复选框选定初始化，⽂本框内容初始化，复合框内容初始化，列表框内容初始化。
赋值效果，及代码如下：
效果：
代码：
Dim MyArray(6, 3)
'⽂本框初始化：属性赋值
Private Sub testboxinit()
TextBox1.Text = "TextBox1"
TextBox1.Enabled = False
TextBox1.Locked = False
TextBox2.Text = "TextBox2"
End Sub
'复选框初始化：名称赋值，是否选定
Private Sub checkboxinit()
CheckBox1.Caption = "Enabled"
CheckBox1.Value = True
CheckBox2.Caption = "Locked"
CheckBox2.Value = False
End Sub
'复合框初始化：内容初始赋值
Private Sub comboxinit()
Dim j As Integervba做excel窗体录入教程
For j = 1 To 9
ComboBox1.AddItem "Choice " & j
Next j
ComboBox1.AddItem "Chocoholic"
End Sub
'列表框初始化：内容初始赋值
Private Sub listboxinit()
Dim i As Single
'第⼀个列表框包含三个数据列
ListBox1.ColumnCount = 3
'第⼆个框包含六个数据列
ListBox2.ColumnCount = 6
'把整数值加载到 MyArray 的第⼀列
For i = 0 To 5
For i = 0 To 5
MyArray(i, 0) = i
Next i
'加载 MyArray 的列 2 和列 3
MyArray(0, 1) = "Zero"
MyArray(1, 1) = "One"
MyArray(2, 1) = "Two"
MyArray(3, 1) = "Three"
MyArray(4, 1) = "Four"
MyArray(5, 1) = "Five"
MyArray(0, 2) = "Zero"
MyArray(1, 2) = "Un ou Une"
MyArray(2, 2) = "Deux"
MyArray(3, 2) = "Trois"
MyArray(4, 2) = "Quatre"
MyArray(5, 2) = "Cinq"
'把数据加载到 ListBox1 和 ListBox2    ListBox1.List() = MyArray
ListBox2.Column() = MyArray End Sub
Private Sub UserForm_Initialize()
Call testboxinit
Call comboxinit
Call listboxinit
Call checkboxinit
End Sub

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。