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