asp.net获取单选按钮值_VBA学习笔记55:标签和按钮控件

学习资源：《Excel VBA从入门到进阶》第55集 by兰色幻想

---

一、标签控件示例窗体

控件属性有很多，这里只挑几个常用的属性讲一下：

1. Caption

插入文本控件，可直接在文本框中输入内容，或在属性栏Caption输入内容。

2. Autosize

让文本框适应文本内容缩放至合适的尺寸，把属性栏Autosize设置为True。

3. Backstyle

指定控件是否透明，有两种设置：

0-fmBorderStyleNone 控件的背景色设置为透明（默认设置，效果见上例）。

1-fmBackStyleOpaque 控件显示背景色（背景色的选择是属性BackColor）。

选择1-fmBackStyleOpaque，显示控件背景色

4. Textalign

指定在控件中的文本对齐方式，有三种设置：

1-fmTextAlignLeft 左对齐（默认）

2-fmTextAlignCenter 居中对齐

3-fmTextAlignRight 右对齐

5. WordWrap

属性如果为True则自动换行(默认)

二、按钮控件示例窗体

1. 按钮显示

① 鼠标放在按钮上时可以显示的提示文字——设置controltiptext属性

（其实鼠标是移到按键上才显示提示文字，但截图隐藏了鼠标光标）

② 在按钮上添加图片——Picture和PicturePosition属性

在Picture里选择需要添加的图片。

在PicturePosition选择图片显示方式：

图片位置默认值是标题在图片的正下方。

③ 隐藏按钮——设置Visible的值。

Visible等于true（默认），可见控件；等于False，不可见控件。

在上例，我们可以看到有个灰色的按钮，它的Visible属性是True。如果设置为False，就不会显示：

2. 按钮功能

① 设置热键,按alt+设置的键可以运行该按钮的click事件——Accelerator属性

例：写程序让点击按钮“确认”，就会弹出提示窗口"测试按钮快捷键"。

Private Sub CommandButton1_Click()
MsgBox "测试按钮快捷键"
End Sub

再给这个按钮设置热键Alt+F。

按热键Alt+F就相当于用鼠标点击按钮

② 按钮是否可用——Enable属性

Enable属性为False，表示不可用，可以让按钮变成灰色。

③ 设置按ENTER和Esc按钮时运行指定按钮的命令

• Cancel的值为TRUE，表示该按钮会响应ESC按钮，适用于要执行退出窗体的按钮。
• Default的值为TRUE，表示该按钮会响应Enter键按下，适用于要执行确认输入内容或提交表单的按钮。

注意：只有没有命令按钮响应获取焦点时才有效。

④ Tag的用途

Tag可以作为控件的特别标识，用于判断和记忆信息。

与工作表的集合有Worksheets一样，窗体控件也有集合

Controls。

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

⑤一个按钮执行多个程序

例：按照控件标题来判断执行什么操作。

Private Sub CommandButton5_Click()
If CommandButton5.Caption = "打开" Then  '如果按钮显示“打开”，点击一下后就把按钮文本修改为“关闭”
   MsgBox "你已打开"
   CommandButton5.Caption = "关闭"
Else                                     '否则按钮显示“关闭”，点击一下后就把按钮文本修改为“打开”。
   MsgBox "你已关闭"
   CommandButton5.Caption = "打开"
End If  
End Sub

---

现在课件的例子都比较简单，只是为了理解单个属性的使用，后面会有实用的例子。