相关知识点
OptionButton：单选按钮Caption属性就是提示文字，Value属性True或False
CheckBox：复选框Caption属性就是提示文字，Value属性True或False
Frame:框架控件，带有“xyz”符号的控件
Image:图像控件，主要属性Picture：显示图片的对象，可在属性窗口中设置，也可用代码LoadPicture(“文件路径”)设置，PictureSize：设定该图片的显示模式，包括“原尺寸”“拉伸”“自适应”等。
在工具箱空白处点击右键可以找到“附加控件”，添加其他控件
Microsoft Web Browser： 浏览器控件
UserForm1.WebBrowser1.Navigatehttp://sian.com
所有控件都有Enable属性，设置为False，控件显示为灰色，无法使用，True正常
Visible属性，设置为False，控件自动隐藏，无法看到，True显示
例1 爱好选择
Private Sub CommandButton1_Click()
Dim gender as string,interest as string
If Optionbutton1.value Then
Gender=”男性”
ElseIf Optionbutton1.value Then
Gender=”女性”
Else
Gender=”未注明”
End If
Cells(4,2)=gender
If checkbox1.value Then interest =interest & “音乐”
If checkbox2.value Then interest =interest & “体育”
If checkbox3.value Then interest =interest & “美术”
Cells(4,4)=interest
End Sub
例2 图片控件
Private Sub commandButton1_Click()
x=(x+1) mod 3
k=”c:\vba\vba-cover-”& trim(str(x+1)) & “.gif”
me.Image1.Pircture=LoadPicture(k) ‘代码中指定路径
me.Repaint
End Sub
例3列表框选项变化时，将内容写入文本框,同时显示网站页面
Private Sub ListBox1_Change()
Dim i as long
If Listbox1.listindex >-1 then
i=listbox1.listindex+2
textscore1.text=cells(i,3)
textscore2.text=cells(i,4)
textscore3.text=cells(i,5)
textscore4.text=cells(i,6)
textscore5.text=cells(i,7)
WebBrowser1.Navigate.Cells(i,8)
End If
End Sub
例4 文本框属性控制，启用，禁用，显示，隐藏
Private Sub cmdEnable_click()
Me.textbox1.enable=Ture ‘启用
End Sub
Private Sub cmddisable_click()
Me.textbox1.enable=False ‘禁用
End Sub
Private Sub cmdshow_click()
Me.textbox1.visible=True ‘显示
End Sub
Private Sub cmdhide_click()
Me.textbox1.visible =False ’隐藏
End Sub | 
转播
