《VB单选钮和复选框列表框组合框多窗体和菜单ppt课件.ppt》由会员分享，可在线阅读，更多相关《VB单选钮和复选框列表框组合框多窗体和菜单ppt课件.ppt（38页珍藏版）》请在三一办公上搜索。
1、VB基本知识学习,内容,单选钮与复选框列表框与组合框,单选按钮与复选框,单选按钮（OptionButton）相关属性常用事件：Click用户单击单选钮时，它会自动改变状态。,单选按钮与复选框,复选框（CheckBox）相关属性,练习,制作以下界面,单选按钮与复选框,使用范例-控件属性说明,单选按钮与复选框,使用范例-控件属性说明,frame1,frame2,frame3,Option1，Option3的value设置为true,单选按钮与复选框,功能1：运行程序时设置label文字类型为宋体，16号字,Form_load事件,在哪个事件加入代码？,动态修改label的文字属性Fontname:
2、设置字体Fontbold:true：粗体 false 正常FontItalic: true：斜体 false 正常Fontsize:设置字号,单选按钮与复选框,功能1：运行程序时设置label文字类型为宋体，16号字,Private Sub Form_Load()Label1.FontName = 宋体Label1.FontSize = 16End Sub,单选按钮与复选框,功能2：实现框架frame1中字体设置功能。,Private Sub Option1_Click()Label1.FontName = Option1.CaptionEnd SubPrivate Sub Option2_C
3、lick()Label1.FontName = Option2.CaptionEnd Sub,单选按钮与复选框,功能3：实现框架frame3中字体大小设置功能。,Private Sub Option3_Click()Label1.FontSize = Option3.CaptionEnd SubPrivate Sub Option4_Click()Label1.FontSize = Option4.CaptionEnd Sub,单选按钮与复选框,功能4：实现框架frame2中字型设置功能。,Private Sub Check1_Click()If Check1.Value = 1 Then L
4、abel1.FontItalic = TrueIf Check1.Value = 0 Then Label1.FontItalic = FalseEnd SubPrivate Sub Check2_Click()If Check2.Value = 1 Then Label1.FontBold = TrueIf Check2.Value = 0 Then Label1.FontBold = FalseEnd Sub,列表框与组合框,列表框（ListBox）控件将一系列的选项组合成一个列表，用户可以选择其中的一个或几个选项,列表框有两种风格：标准和复选列表框Style=0 标准Style=1 复选
5、列表框,列表框与组合框,列表框（ListBox）添加新项目,列表框与组合框,列表框（ListBox）主要属性：List、ListCount和ListIndex属性List： 字符型数组，存放列表框的项目数据，下标是从0开始的。 例：List(0)表示第一项（Listindex=0)的内容ListIndex：为整型值，选中的项目的序号， 没有项目选中时为-1。 ListCount：为整型值，表示项目的数量，ListCount-1是最后一项的下标。,列表框与组合框,列表框（ListBox）List、ListCount和ListIndex属性,列表框与组合框,列表框（ListBox）,Private
6、 Sub Form_Load()Dim i As IntegerLabel1.Caption = List1.ListIndex = 2For i = 0 To List1.ListCount - 1Label1.Caption = Label1.Caption + List1.List(i)NextEnd Sub,list1.selected(2)=true,列表框与组合框,列表框（ListBox）主要属性：text属性：用于存放被选中列表项的文本内容。,Private Sub Command1_Click()Label1.Caption = List1.TextEnd Sub,列表框与组合
7、框,列表框（ListBox）主要方法：AddItem：用于将项目添加到列表框控件,语法格式：对象名.AddItem item , index其中：item: 为字符串表达式， 表示要加入的项目。Index:决定新增项目的位置，缺省，则添加在最后。,列表框与组合框,列表框（ListBox）主要方法：RemoveItem方法：用于从列表框控件或组合框控件中删除一项。,语法格式：对象名. RemoveItem index,列表框与组合框,列表框（ListBox）主要方法：Clear方法用于清除列表框控件或组合框控件中的所有项目。,语法格式：对象名. Clear,列表框与组合框,列表框（ListBox
8、）主要事件：Click事件：单击某一列表项目时触发DblClick事件：双击某一列表项目时触发,练习二,列表框与组合框,组合框控件（ComboBox）将文本框和列表框的功能结合在一起，,组合框共三种风格：下拉式组合框简单组合框和下拉式列表框,练习三,组合框控件（ComboBox）基本事件与列表框类似,combo1,combo2,combo3,label4,列表框与组合框,组合框控件（ComboBox）Combo1:List 宋体、黑体、隶书、幼圆Combo2:List 常规、粗体、斜体、粗斜体Combo3:List:一号、二号、三号、四号、五号Itemdata:26、22、16、14、10,列
9、表框与组合框,组合框控件（ComboBox）初始化设置,Private Sub Form_Load()Combo1.ListIndex = 0Combo2.ListIndex = 0Combo3.ListIndex = 4Label4.FontName = Combo1.TextLabel4.FontSize = Combo3.ItemData(4)Label4.FontBold = FalseLabel4.FontItalic = FalseEnd Sub,列表框与组合框,组合框控件（ComboBox）初始化设置,Private Sub Combo3_Click()Dim a as inte
10、gerA= Combo3.ListIndexLabel4.FontSize = Combo3.ItemData(a)End SubPrivate Sub Combo1_Click()Label4.FontName = Combo1.TextEnd Sub,列表框与组合框,组合框控件（ComboBox）初始化设置,Private Sub Combo2_Click()Dim a As Integera = Combo2.ListIndexSelect Case aCase 0: Label4.FontBold = False Label4.FontItalic = FalseCase 1: Lab
11、el4.FontBold = True Label4.FontItalic = False Case 2: Label4.FontBold = False Label4.FontItalic = TrueCase 3: Label4.FontBold = True Label4.FontItalic = TrueEnd SelectEnd Sub,多窗体程序设计,在一个工程中可以包含多个窗口除了主窗体在程序运行时自动显示外，其他窗体通过以下方法显示或关闭在事件中使用show显示窗体在事件中使用hide隐藏窗体,注意调用时必须使用： 窗体名.show 窗体名.hide,多窗体程序设计,在一个工程
12、中添加新窗体的方法,1、选择工程名单击鼠标右键2、选择：添加|添加窗体,多窗体程序设计,在一个工程中添加新窗体的方法,1、选择窗体,多窗体程序设计,多窗体设计范例：按下图设计外观,1、设置标题：2、设置背景：3、设置borderstyle为14、设置窗体显示位置为屏幕中心：startupposition:设置为2 5、设置controlbox为false,多窗体程序设计,多窗体设计范例：修改主窗体单击事件，实现单击后显示form2并隐藏form1,1、选择窗体form1，显示代码窗口，找到click事件Private Sub Form_Click() Form1.Hide Form2.Show End Sub,菜单设计,菜单的概念菜单栏菜单项子菜单弹出菜单,菜单栏,菜单项,子菜单,选择某个窗体选择“工具”菜单编辑器,菜单编辑器,菜单标题,菜单名字,新增、插入删除一个项目,调整菜单项目次序,调整菜单的级别,菜单编辑器,form2设计以下菜单名称为：mfile、madd、Ms、 msearch、 msystem、mexit,为菜单项增加事件在窗体上选择对应菜单项，单击鼠标,菜单编辑器,为“退出”项目增加click事件，然后输入代码:end,
