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。