单选控件(OptionButton)与复选控件(CheckBox)的Value值

1、 单选控件（OptionButton ）与复选控件（CheckBox ）的Value ．．．．．值。

1）Value 属性是单选与复选控件最主要的属性，单选与复选控件的 Value 值有差别的。

单选控件：选中时，Value 值为True ；未被选中，Value 值为False 。

复选控件：选中时，Value 值为1；未被选中，Value 值为0；禁止对该按钮进行选择，Value 值为2。

单选控件与复选控件的 Value 值是不同的，2）单选与复选控件的Click 事件可以改变Value 值：这两种控件最主要的事件是 Click 事件，当Click 事件发生，Value 值变为 True 或者 1 ，控件也自动变为选中状态3）单选与复选控件的SetFocus 方法不一定可以改变Value 值单选按钮SetFocus 方法可以在代码中将Value 属性设置为True （单选按钮的Visible 与Enabled 属性值均为True ）；复选按钮SetFocus 方法可则不可以，它仅仅可以得焦点，但不能改变选中状态。

4）编写程序代码，需要判断Value 是否改变，单选控件可以直接写代码，而复选控件需要用多分支条件语句来编写。

例题：在“字号”选项处，下面用了两种方法。

Private Sub OptSize_Click (Index As Integer) Select Case IndexEnd SubPrivate Sub Check1_Click ( )If Check1.Value = 1 ThenText1.FontBold = TrueElseText1.FontBold = FalseEnd IfEnd Sub2、列表框（对于初学者来说，使用起来不太顺手，这里简单说明一下）列表框控件，用于显示项目列表，用户可从中选择一个或多个项目。

1）属性A.List：字符型数组，存放列表框的项目，下标是从0开始的。

属性窗口添加选项，输入下一项时，按“Ctrl+Enter”；在程序中设置或引用时：列表框名.List（Index）。

例如：List1.List(0)=“北京”B.ListIndex：整数，表示执行时，选中的列表项的序号，没有项目选中时为-1 。

只能在程序中设置或引用。

例如：选择“北京”，显示在文本框中，则Text1.text=List1. List ( List1.ListIndex)C.ListCount：整数，表示项目的数量，ListCount-1是最后一项的下标。

只能在程序中设置或引用。

D.Selected 属性，该属性返回或设置列表框控件中的一个项目的选择状态，逻辑型，只能在程序中设置或引用。

例如：List1.Selected（0）=TrueE.Text：被选中的列表项的文本内容，只能在程序中设置或引用。

List1. List ( List1.ListIndex)=List1.Text2）方法举例说明：List1.AddItem “沈阳”，4 ‘在第4项后插入“沈阳”List1.AddItem “沈阳”‘在最后出入“沈阳”List1.RemoveItem 4 ‘删除第5项内容List1.Clear ‘删除所有项目3）Click，DblClick事件Click事件，自动改变列表框ListIndex、Selected、Text等属性，无需另行编写代码。

3、组合框：一种同时具有文本框和列表框特性的控件。

可以选择项目，也可以输入项目。

Style属性，用以确定组合框的形式。

设置值可为0，1或2，决定组合框的三种形式。

Style = 0时，可以编辑项目，响应Click，Change和Dropdown事件；Style = 1时，可以编辑项目，响应Click，DblClick和Change事件；Style = 2时，不．可以编辑项目响应Click和Dropdown事件。

说明：Change事件：文本框内容改变时触发。

DropDown事件：单击下拉箭头时触发。

4、多重窗体怎么创建？1） 添加窗体“工程”菜单、工具栏、工程资源管理器等，都可以打开“添加窗体”对话框，在这里，可以选择“新建”窗体，还是“现存”窗体。

注意：添加窗体的Name 属性不能相同。

添加“现存”窗体，这是多个工程共享一个窗体，若对窗体修改，而使其他工程有变化，则应通过“另存为”，以不同的文件名保存，断开共享。

添加窗体，而不是工程，如不能选择工具栏上的“添加工程”，否则建立的是工程组。

2） 设置启动窗体在多窗体的程序中，要有一个最开始启动窗体，系统默认第一个创建的窗体为启动窗体。

工程—工程属性—启动对象 3）窗体的语句和方法（1）Load 语句 把一个窗体装入内存 Load 窗体名称（2）Unload 语句 从内存中删除指定的窗体 Unload 窗体名称说明：常用方法时 Unload Me ，关键词Me 代表语句所在的窗体。

（3）Show 方法显示一个窗体，兼有加载和显示窗体两种功能。

[窗体名称].show[模式]其中：窗体名称缺省为当前窗体,模式有1，0两个值。

为1，只能对当前窗体操作，不能对其他窗口操作。

为0（缺省），也可以对其他窗口操作。

（4）Hide 方法用来将窗体暂时隐藏起来，并没有从内存中删除。

[窗体名称] . Hide 说明：“窗体名称”缺省为当前窗体。

4） 不同窗体间数据的存取其他窗体名.控件名.属性 Text1=Val （Form2.Text1） 其他窗体名.全局变量名在多个窗体中存取的变量，一般在标准模块中声明。

Publix x as string例题：输入并显示一个学生的五门课程成绩，计算并在不同窗口显示总分和平均分。

此外，还创建一个标准模块，来设置全局变量。

模块声明 Public Math ！，Physics ！，Chemistry ！，Chinese ！，English ！ 5） 保存多重窗体如上例，需要保存3个窗体文件，1个标准模块文件，最后保存1个工程文件。

5、弹出菜单的设计？？（较难）窗体菜单栏而显示在窗体内的浮动菜单。

显示位置取决于单击鼠标键时的位置。

设计过程与普通菜单相同，第一步添加菜单控件，因为弹出菜单一般不显示在窗口上，所以菜单的Visible 属性设为False ；第二步编写代码，代码中，菜单弹出的方法： [对象.] PopupMenu 菜单名[, Flags, x, y ，Boldcommand]Flags ：可选的，用以指定弹出式菜单的位置和性能。

X 、y ：可选的，指定显示弹出式菜单的坐标。

如省略，则使用鼠标的坐标。

Boldcommand ：可选的，定弹出式菜单中的菜单控件的名字，用以显示其粗体正文标题。

省略，不加粗。

Flags常量 值 说明位置vbPopupMenuLeftAlign 0（缺省值） 弹出式菜单的左边 vbPopupMenuCenterAlign 4 弹出式菜单以参数x 为中心 vbPopupMenuRightAlign 8 弹出式菜单的右边与参数x 对齐性能 vbPopupMenuLeftButton 0（缺省值） 菜单项Click 事件用左单击vbPopupMenuRightButton 2 菜单项Click 事件左、右单击都可以 一般来说，在程序中，通常把PopupMenu 方法放在对象的MouseDown 事件中，此事件根对应的参数来确定按下鼠标左键或右键。

对象名_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)鼠标按下按键事件，Button 指的是鼠标按键值，值为1，2，4，对应左键、右键、中间键；Shift 指的是Shift按键是否按下，按下为1，没按下为0，x 、y 是鼠标指针对应当前对象的位置。

例题：设计一个文本框的弹出式菜单，菜单包括“红色”、“蓝色”和“绿色”，单击后可以改变文本框文字的颜色。

创建菜单：在“菜单编辑器”中，添加“颜色（Color ）”的主菜单，“可见”属性设为False ；其他菜单项“红色（Red ）”“蓝色（Blue ）”“绿色（Green ）”，“可见”设为True 。

代码：是否弹出快捷菜单的代码：Private Sub Text1_MouseDown(Button _As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then ‘如果鼠标按下右键，弹出快捷菜单PopupMenu Color , 4 ‘Flags 为4，弹出菜单以x 为中心 End If End Sub弹出菜单后，单击菜单项事件的代码： Private Sub Blue_Click ( ) Text1.ForeColor = vbBlue菜单编辑器End SubPrivate Sub Green_Click ( ) Text1.ForeColor = vbGreen End SubPrivate Sub Red_Click ( ) Text1.ForeColor = vbRed End Sub。