【VB开源代码栏目提醒】:网学会员为需要VB开源代码的朋友们搜集整理了第2章 VB程序的界面设计 - 大学课件相关资料,希望对各位网友有所帮助!
第2章
VB程序的界面设计2.1 窗体对象打开
VB时或新建一个工程时
VB都自动创建了一个窗体对象。
我们可以根据需要创建多个窗体对象。
方法1在工程菜单中选择添加窗体。
方法2在工具栏中选择添加窗体。
方法3在工程资源管理器窗口中用鼠标右健单击窗体鼠标指针指向添加选择添加窗体。
一、窗体对象的创建二、窗体对象的属性Name名称
系统自动会为每个窗体命名为Form1、Form2、Form3、……。
当我们要改它们的名称时尽量改建议用窗体的实际意义加前缀Frm组成。
如一个启动窗体它的名称可以用FrmStartUp命名。
Caption属性窗体标题。
它是出现在标题栏中的文字。
BackColor属性窗体的背景色。
ForeColor属性窗体的前景色。
BorderStyle: 窗体边框风格。
Enabled: 活动属性。
决定对象是否能被事件激活。
缺省值为“True” 表示能被事件激活。
“False”表示不能被事件激活Icon: 图标属性。
设置运行时窗体最小化时所显示的图标。
或在标题栏上所看到的图标。
Left、Top、Height、Width: 决定窗体的位置与大小。
Font: 设置窗体所显示文字的字体、字型和字号。
三、窗体对象的方法Hide : 隐藏Move: 移动Print: 打印PrintForm: 打印窗体Refresh: 刷新Show: 显示四、窗体对象的事件Click: 单击事件DblClick: 双击事件Load: 装载事件Resize: 窗体被改变大小时触发本事件。
Activate: 窗体变为当前窗口时触发本事件。
Deactivate:窗体失去当前窗口时触发本事件。
五、设置对象的属性和方法格式选中对象后直接在属性窗口中为属性设置值方法1方法2用语句设置属性值Object.PropertyExpression对象名属性名称设置新值设置属性例单击窗体时窗体上显示“欢迎使用Visual BASIC”窗体的标题栏上显示“实验1”使用方法的格式Object.Method Arg1 Arge2 ...对象名方法名参数答Option Explicit打开
代码窗口编写如下
程序Private SubForm_ClickForm1.FontSize 22Form1.Font 黑体Form1.Print 欢迎使用Visual BasicForm1.Caption “实验1End Sub六、窗体的显示、隐藏使用Show与Hide 方法可以显示或隐藏窗体例创建二个窗体在窗体1上建三个按钮窗体对象界面如下窗体1的属性设置如下NameFrmStartUpCaption: 窗体1一个按钮的属性设置如下NameCmdOpenCaption: 显示窗体2另一个按钮的属性设置如下NameCmdCloseCaption: 隐藏窗体2第三个按钮的属性设置如下NameCmdExitCaption: 退出窗体2的属性设置如下NameFrmWorkCaption: 窗体2编写程序
代码Private SubCmdOpen_ClickFrmWork.ShowEnd SubPrivate SubCmdClose_ClickFrmWork.HideEnd SubPrivate SubCmdExit_ClickEndEnd Sub
演示程序七、窗体的Print 方法Print 方法用于将文本输出到窗体上。
Print 方法的格式为Object.Print p1p2...输出项。
可以是常量变量表达式等输出项之间的分隔符可以是逗号或分号1、输出布局a、标准格式也叫分区格式----用“”作为输出项之间的分隔符每个输出项占据一个显示区一个显示区占14个字符位置。
b、紧凑格式也叫自由格式----用“”作为输出项之间的分隔符每个分号都使后面的一个输出项紧靠前面的输出项。
2、数值的组成符号位数值部分一个空格例Print 55例Print -5-5输出为输出为3、续行当一个Print语句的末尾是一个“”或“”时表示下一个Print 语句中的输出项应接在本语句输出项的后面输出。
4、空行当一个Print语句无输出项时将空一行。
例Print “12345678901234”Print 123Print Print “a” “ b”Print “c”“ d”3.2 命令按钮控件命令按钮CommandButton在工具箱中的按钮工具命令按钮的属性1、名称缺省值为Command1、Command2、…… 建议以按钮的实际意义加前缀Cmd组成。
例两个按钮一个是加1一个是退出。
所以两个按钮的名称分别命名为CmdAdd1 CmdExitOption ExplicitPrivate SubCmdAdd1_ClickStatic x As Integerx x 1Text1.Text xEnd SubPrivate SubCmdExit_ClickEndEnd Sub窗体模块的对象为窗体模块的
代码为2、Caption属性缺省值为Command1、Command2、…… 它是按钮上的标题显示文字建议以按钮的实际意义说明组成。
3、Enabled属性值为True或False设置或返回一个值用来确定按钮是否能够对用户产生的事件作出反应。
例在一个窗体上建立一个加1按钮一个减1按钮在按加1按钮时结果在010之间 不允许按减1按钮在按减1按钮时结果在100之间不允许按加1按钮。
Option ExplicitDim x As IntegerPrivate SubCmdAdd1_Clickx x 1Text1.Text xIf x 10 ThenCmdAdd1.Enabled FalseCmdSub1.Enabled TrueEnd IfEnd SubPrivate SubCmdExit_ClickEndEnd SubPrivate SubCmdSub1_Clickx x -1Text1.Text xIf x Asc9 ThenKeyAscii 0 0 代表长度为0的字符串BeepEnd IfEnd SubPrivate SubCmdOk_ClickTxtResult ValTxtNum1 ValTxtNum2 / 2End SubPrivate SubTxtnum2_KeyPressKeyAscii As IntegerIf KeyAscii Asc0 Or KeyAscii Asc9 ThenKeyAscii 0 0 代表长度为0的字符串BeepEnd IfEnd Sub窗体模块的
代码为2-5 复选框CheckBox在工具箱中的复选框工具复选框的属性复选框用来在多个选项中选择一个或多个选项。
1、名称缺省值为Check1、Check2、……。
建议以文本框的实际意义加前缀chk组成。
2、Value属性是默认属性决定该复选框是否被选中0 ---Unchecked 缺省值 没选中1 ---Checked选中2 ---Grayed暗淡其中0 可用VbUnChecked 代替1 可用VbChecked 代替2 可用VbGrayed 代替例调查体育爱好Option ExplicitPrivate Sub Command1_ClickDim x1 x2 x3 As StringIfCheck1 vbChecked Thenx1 Check1.CaptionElsex1 End IfIfCheck2 vbChecked Thenx2 Check2.CaptionElsex2 End IfIfCheck3 vbChecked Thenx3 Check3.CaptionElsex3 End IfLabel2.Caption Label2.Caption Text1 爱好 x1 x2 x3End Sub2-6 选项按钮OptionButton在工具箱中的选项按钮工具单选项选项按钮用来在多个选项中选择一个选项。
创建选项按钮组要将选项按钮分组只要将选项按钮创建在控件容器中。
例在窗体上的选项按钮都是一组。
在框架中的选项按钮也是一组。
在同一组选项按钮中只能选择一个选项。
选项按钮的属性1、名称缺省值为Option1、Option2、……。
建议以选项按钮的实际意义加前缀Opt组成。
2、缺省属性为Value。
值为True ------选中False -----没选中例调查体育爱好Option ExplicitPrivate Sub Command1_ClickDim x1 x2 x3 xb As StringIfText1 ThenMsgBox 请输入姓名: Text1.SetFocus: Exit SubIfCheck1 vbChecked Thenx1 Check1.CaptionElsex1 End IfIfCheck2 vbChecked Then x2 Check2.CaptionElsex2 End IfIfCheck3 vbChecked Thenx3 Check3.CaptionElsex3 End IfIfOption1 True Thenxb Option1.CaptionElseIfOption2 True Thenxb Option2.CaptionEnd IfLabel2.Caption Label2.Caption Text1 xb 爱好 x1 x2 x3End Sub2-7 框架Frame在工具箱中的框架工具框架用来为一些控件提供可标识的分组。
在框架中绘制控件1、先绘制框架然后在框架中绘制其它控件。
这时移动框架框架中的其它控件一起移动。
2、先绘制框架如果在框架外绘制其它控件然后移入框架这时框架与框架内的其它控件将分别移动。
2-8 列表框ListBox在工具箱中的列表框工具列表框用来为用户提供选项列表。
在Windows 95/98 /2000中出现的列表框列表框的属性1、名称缺省值为List1、List2、……。
建议以列表框的实际意义加前缀Lst组成。
2、Text属性它是默认属性表示列表框中选中的列表项目。
例图示列表框中当我们选中第二行时列表框的Text属性就是222Private Sub List1_ClickPrint List1.TextEnd Sub3、List属性列表框中的内容实际上是一个字符串数组中的内容数组的每一项对应列表框中的每一行内容。
所以List属性的语法格式为Object.ListIndex StringIndex 为0 ---列表框中表项数量-1代表数组中的下标例Object.ListIndex 选中列表项中下标指示的那一项的内容Private SubList1_ClickPrint List1.List1End Sub例Object.ListIndex String直接给列表项中下标指示的那一项赋新值Private SubList1_ClickList1.List1 VBEnd Sub注意如果下标Index超出范围将出现下列错误。
Option ExplicitPrivate SubCommand1_ClickStatic i As IntegerIf i List1.ListCount -1 Theni 0End IfText1 List1.Listii i 1End SubPrivate SubForm_LoadList1.AddItem “纺织0501List1.AddItem “纺织0502List1.AddItem “轻化0501End Sub例一个列表框中有三行内容按下按钮在文本框中轮流显示列表框中的表项4、ListCount属性该属性计算出
列表框中表项的数量。
5、ListIndex属性该属性返回或设置控件中当前选择项目的索引下标在
设计时不可用。
object.ListIndex index语法格式指定当前选择项目的下标值为0---ListCount-1-1 表示没选中例object.ListIndex 返回一个值它是被选中的表项的下标。
范围在0---ListCount-1 之间Private SubList1_ClickPrint List1.ListIndexEnd Sub例object.ListIndex Index设置一个值直接选中数组下标所表示的列表框表项。
Private SubList1_ClickList1.ListIndex0End Sub注意如果下标Index超出范围将出现错误。
Private Sub List1_ClickList1.ListIndex 5End Sub例错误信息为Option ExplicitPrivate Sub Form_LoadList1.AddItem 一年级List1.AddItem 二年级List1.AddItem 三年级List1.AddItem 四年级List1.AddItem 五年级End SubPrivate Sub List1_DblClickPrint List1.ListIndexPrint List1.TextPrint List1.ListList1.ListIndexList1.ListIndex0End Sub例理解ListIndex属性6、Selected属性该属性返回或设置列表框控件中的一个项的选择状态在设计时不可用。
Object.Selectedindex Boolean语法格式控件中选择项目的下标True或False例Object.Selectedindex返回True 或False 表示下标指示的那个项有没有被选中例Object.Selectedindex Boolean设置True 或False 直接选中下标指示的那个项或直接取消下标指示的那个项。
7、MultiSelect属性该属性返回或设置一个值用来表示列表框中的项能否进行复选。
0缺省值不允许复选。
1简单复选。
即用鼠标单击或空格键进行选中或取消。
2扩展复选。
用鼠标配合Shift或Ctrl键进行选择。
方法与Windows98中的选择一样。
二、列表框的事件列表框的
常用事件为Click和DblClickClick------表示单击列表框中的某一项DblClick------表示双击列表框中的某一项三、列表框的方法1、AddItem方法它用来向列表框中添加项目。
语法格式object.AddItem item index添加到列表框中的项目指示项目添加到列表框中的位置。
它是可选的2、RemoveItem方法从列表框中删除以“Index”为目标的项目。
语法格式object.RemoveItem index指示列表框中需删除项的位置。
它是必选项下标例创建一个按钮和一个列表框按按钮时向列表中添加项目。
双击列表框中的某一项时则将它删除。
3、Clear方法从列表框中删除所有项目。