VBA用户控件

窗体相关

1.显示窗体

UserForm1.show  [vbModeless]

vbModeless 可选参数，参数设定后，变成无模式窗体。窗体保持显示状态，仍可操作Excel文件。

UserForms.add("UserForm1").show

2.加载窗体

Load UserForm1

窗体保存在内存中，并不显示。窗体比较复杂时，可使用。

3.卸载窗体

Unload UserForm1

4.隐藏窗体

UserForm1.Hide

5.与显示和卸载窗体相关的事件

Initialize: 窗体初始化，发生在窗体加载和显示之前，但是，如果之前窗体隐藏状态，就不会发生此事件。

Activate: 显示窗体时发生的事件。

Deactivate: 窗体处于非活动状态时发生的事件，但是如果隐藏了窗体，就不会发生此事件。

QueryClose: 卸载窗体前发生事件。

Terminate: 卸载窗体后发生事件。

6.没有标题栏的窗体

Dim lngWindow as Long, lFrmHdl as Long

lFrmHdl = FindWindowA(vbNullSting, Me.Caption)

lngWindow = GetWindowLong(lFrmHdl, GWL_STYLE)

lngWindow = lngWindow And (Not WS_CAPTION)

Call SetWindowLong(lFrmHdl, GWL_STYLE, lngWindow)

Call DrawMenuBar(lFrmHdl)

GetWindowLong, SetWindowLong,DrawMenuBar和FindWindowA是4个API函数

列表控件

1.添加列表项目

ListBox1.AddItem "Column1"

ListBox1.AddItem "Column2"

ListBox1.RowSource = "Ranges"

Ranges: 制定某个单元格或区域

2.列表索引

ListBox1.ListIndex

3.复选项目

MultiSelect = 0,1,2

0: 单选

1: 空格键或单击鼠标，可以选中或取消列表框某个条目

2: Shift键多选

1或2的场合，ListBox1.Selected(n)，ListBox1.List(n)取得选中项目。

-1: 未选中列表中项目

图片控件相关

1.图片的凸起效果

Image1.SpecialEffect = fmSpecialEffectRaised

取消凸起效果

Image1.SpecialEffect = fmSpecialEffectFlat

Shape相关

1.Shape文本框做成

Set A_Shape = Sheet1.Shapes.AddShape(msoShapeFlowchartDecision,left,top,10,30)

A_Shape.Name = "First"

A_Shape.TextFrame.Charaters.Text = "First"

2.Shape读取文本

Dim B_Shape as Shape

For each B_Shape in Sheet1.Shapes

　　' 方法1

　　sTemp = B_Shape.TextFrame.Characters.Text

　　' 方法2

　　sTemp = B_Shape.OLEFormat.Object.Text

　Next

3.Shape写入文本

Sheet1.Shapes("Rectangle 1").Select

Selection.Characters.Text = "Second"

　

Next