VB教程：框架（Frame）

文章作者 100test 发表时间 2007:03:10 18:29:35
来源 100Test.Com百考试题网

9、框架（Frame）

作用：框架主要用来对其他控件进行分组，以便用户识别。主要用于为单选按钮分组，因为在若干个单选按钮中只可以选择一个，但是有时有多组选项，希望在每组选项中各选一项。这时就可将单选按钮分成几组，每组作为一个单元，用框架分开。

向框架中添加控件：如果希望将已经存在的若干控件放在某个框架中，可以先选择所有控件，将它们剪贴到剪贴板上，然后选定框架控件并把它们粘贴到框架上（不能直接拖动到框架中）；也可以先添加框架，然后选中框架，再在框架中添加其它控件，这样在框架中建立的控件和框架形成一个整体，可以同时被移动、删除。

注意：不能用双击的方法向框架中添加控件，也不能将控件选中后直接拖动到框架中，否则这些控件不能和框架成为一体，其载体不是框架而是窗体。

选择框架中的多个控件：要选择框架中的多个控件，在使用鼠标拖拉框架内包围控件的时候需要按下crtl键。在释放鼠标的时候，位于框架之内的控件将被选定。或者按下crtl键，再使用鼠标单击各控件，这样位于框架之内的控件也可以被选定。

例子：设计一个编辑字体程序。

界面：

注意：Label1属性设置为：Caption 置空、AutoSize 为True

代码：

Private Sub Command1_Click()

If Option1.Value Then Label1.FontName = "宋体"
If Option2.Value Then Label1.FontName = "隶书"
If Option3.Value Then Label1.FontName = "黑体"
If Option4.Value Then Label1.FontSize = 16
If Option6.Value Then Label1.FontSize = 18
If Option5.Value Then Label1.FontSize = 22
If Option7.Value Then Label1.ForeColor = QBColor(9)
If Option8.Value Then Label1.ForeColor = QBColor(13)
If Option9.Value Then Label1.ForeColor = QBColor(10)
Label1.Caption = "欢迎使用VB"

End Sub

Private Sub Form_Load()

Option1.Value = True
Option4.Value = True
Option7.Value = True

End Sub

Private Sub Command2_Click()

End

End Sub

[程序演示] [程序下载]

关于颜色函数