VBA入门到进阶常用知识代码总结55

第55集 标签、按钮
259、 标签设置
1、自动适应字体大小
AutoSize的属性设置为true，可以自动调整大小以完全显示文字。
2、背景透明
BackStyle值：0为透明，1为不透明。
3、文字对齐
TextAlign属性：1左对齐，2居中对齐，3右对齐。
4、字体的自动换行
WordWrap属性：如果为True则自动换行(默认)。
260、 按钮设置
一 按钮显示
1、鼠标放在按钮上时可以显示的提示文字
设置controltiptext属性
2、在按钮上添加图片
设置PicturePosition属性
3、隐藏按钮
设置Visible的值 = True
二 按钮功能
1、设置热键，按alt + 设置的键可以运行该按钮的click事件
Accelerator的属性
2、按钮是否可用，可以让按钮变成灰色
Enabled=False，设置为灰色，不可用
3、设置按ENTER和Esc按钮时运行指定按钮的命令
Cancel的值为TRUE，表示该按钮会响应ESC按钮
Default的值为TRUE，表示该按钮会响应Enter键按下
注意：只有没有命令按钮响应获取焦点时才有效
261、 Tag的用途
Tag可以作为控件的特别标识，用于判断和记忆信息。
Sub 显示tag值大于20的按钮()
Dim x
For x = 0 To Controls.Count - 1
If Val(Controls(x).Tag) > 20 Then
MsgBox Controls(x).Name
End If
Next x
End Sub
262、 一个按钮执行多个程序
Private Sub CommandButton5_Click()
If CommandButton5.Caption = “打开” Then
MsgBox “你已打开”
CommandButton5.Caption = “关闭”
Else
MsgBox “你已关闭”
CommandButton5.Caption = “打开”
End If
End Sub