VB单选钮和复选框列表框组合框多窗体和菜单

VB基本知识学习,内容,单选钮与复选框列表框与组合框,单选按钮与复选框,单选按钮（OptionButton）相关属性常用事件：Click用户单击单选钮时，它会自动改变状态。,单选按钮与复选框,复选框（CheckBox）相关属性,练习,制作以下界面,单选按钮与复选框,使用范例-控件属性说明,单选按钮与复选框,使用范例-控件属性说明,frame1,frame2,frame3,Option1，Option3的value设置为true,单选按钮与复选框,功能1：运行程序时设置label文字类型为宋体，16号字,Form_load事件,在哪个事件加入代码？,动态修改label的文字属性Fontname:设置字体Fontbold:true：粗体false正常FontItalic:true：斜体false正常Fontsize:设置字号,单选按钮与复选框,功能1：运行程序时设置label文字类型为宋体，16号字,PrivateSubForm_Load()Label1.FontName=宋体Label1.FontSize=16EndSub,单选按钮与复选框,功能2：实现框架frame1中字体设置功能。,PrivateSubOption1_Click()Label1.FontName=Option1.CaptionEndSubPrivateSubOption2_Click()Label1.FontName=Option2.CaptionEndSub,单选按钮与复选框,功能3：实现框架frame3中字体大小设置功能。,PrivateSubOption3_Click()Label1.FontSize=Option3.CaptionEndSubPrivateSubOption4_Click()Label1.FontSize=Option4.CaptionEndSub,单选按钮与复选框,功能4：实现框架frame2中字型设置功能。,PrivateSubCheck1_Click()IfCheck1.Value=1ThenLabel1.FontItalic=TrueIfCheck1.Value=0ThenLabel1.FontItalic=FalseEndSubPrivateSubCheck2_Click()IfCheck2.Value=1ThenLabel1.FontBold=TrueIfCheck2.Value=0ThenLabel1.FontBold=FalseEndSub,列表框与组合框,列表框（ListBox）控件将一系列的选项组合成一个列表，用户可以选择其中的一个或几个选项,列表框有两种风格：标准和复选列表框Style=0标准Style=1复选列表框,列表框与组合框,列表框（ListBox）添加新项目,列表框与组合框,列表框（ListBox）主要属性：List、ListCount和ListIndex属性List：字符型数组，存放列表框的项目数据，下标是从0开始的。例：List(0)表示第一项（Listindex=0)的内容ListIndex：为整型值，选中的项目的序号，没有项目选中时为-1。ListCount：为整型值，表示项目的数量，ListCount-1是最后一项的下标。,列表框与组合框,列表框（ListBox）List、ListCount和ListIndex属性,列表框与组合框,列表框（ListBox）,PrivateSubForm_Load()DimiAsIntegerLabel1.Caption=List1.ListIndex=2Fori=0ToList1.ListCount-1Label1.Caption=Label1.Caption+List1.List(i)NextEndSub,list1.selected(2)=true,列表框与组合框,列表框（ListBox）主要属性：text属性：用于存放被选中列表项的文本内容。,PrivateSubCommand1_Click()Label1.Caption=List1.TextEndSub,列表框与组合框,列表框（ListBox）主要方法：AddItem：用于将项目添加到列表框控件,语法格式：对象名.AddItemitem,index其中：item:为字符串表达式，表示要加入的项目。Index:决定新增项目的位置，缺省，则添加在最后。,列表框与组合框,列表框（ListBox）主要方法：RemoveItem方法：用于从列表框控件或组合框控件中删除一项。,语法格式：对象名.RemoveItemindex,列表框与组合框,列表框（ListBox）主要方法：Clear方法用于清除列表框控件或组合框控件中的所有项目。,语法格式：对象名.Clear,列表框与组合框,列表框（ListBox）主要事件：Click事件：单击某一列表项目时触发DblClick事件：双击某一列表项目时触发,练习二,列表框与组合框,组合框控件（ComboBox）将文本框和列表框的功能结合在一起，,组合框共三种风格：下拉式组合框简单组合框和下拉式列表框,练习三,组合框控件（ComboBox）基本事件与列表框类似,combo1,combo2,combo3,label4,列表框与组合框,组合框控件（ComboBox）Combo1:List宋体、黑体、隶书、幼圆Combo2:List常规、粗体、斜体、粗斜体Combo3:List:一号、二号、三号、四号、五号Itemdata:26、22、16、14、10,列表框与组合框,组合框控件（ComboBox）初始化设置,PrivateSubForm_Load()Combo1.ListIndex=0Combo2.ListIndex=0Combo3.ListIndex=4Label4.FontName=Combo1.TextLabel4.FontSize=Combo3.ItemData(4)Label4.FontBold=FalseLabel4.FontItalic=FalseEndSub,列表框与组合框,组合框控件（ComboBox）初始化设置,PrivateSubCombo3_Click()DimaasintegerA=Combo3.ListIndexLabel4.FontSize=Combo3.ItemData(a)EndSubPrivateSubCombo1_Click()Label4.FontName=Combo1.TextEndSub,列表框与组合框,组合框控件（ComboBox）初始化设置,PrivateSubCombo2_Click()DimaAsIntegera=Combo2.ListIndexSelectCaseaCase0:Label4.FontBold=FalseLabel4.FontItalic=FalseCase1:Label4.FontBold=TrueLabel4.FontItalic=FalseCase2:Label4.FontBold=FalseLabel4.FontItalic=TrueCase3:Label4.FontBold=TrueLabel4.FontItalic=TrueEndSelectEndSub,多窗体程序设计,在一个工程中可以包含多个窗口除了主窗体在程序运行时自动显示外，其他窗体通过以下方法显示或关闭在事件中使用show显示窗体在事件中使用hide隐藏窗体,注意调用时必须使用：窗体名.show窗体名.hide,多窗体程序设计,在一个工程中添加新窗体的方法,1、选择工程名单击鼠标右键2、选择：添加|添加窗体,多窗体程序设计,在一个工程中添加新窗体的方法,1、选择窗体,多窗体程序设计,多窗体设计范例：按下图设计外观,1、设置标题：2、设置背景：3、设置borderstyle为14、设置窗体显示位置为屏幕中心：startupposition:设置为25、设置controlbox为false,多窗体程序设计,多窗体设计范例：修改主窗体单击事件，实现单击后显示form2并隐藏form1,1、选择窗体form1，显示代码窗口，找到click事件PrivateSubForm_Click()Form1.HideForm2.ShowEndSub,菜单设计,菜单的概念菜单栏菜单项子菜单弹出菜单,菜单栏,菜单项,子菜