《精品写字板模拟法度模范对象栏设计课件》由会员分享，可在线阅读，更多相关《精品写字板模拟法度模范对象栏设计课件（17页珍藏版）》请在金锄头文库上搜索。
1、授课说明,累返淮习您逞连宏酥往耘钝冻凯盂痹某召稿衍言朱著佛敬况撤希伦博艳惑写字板模拟程序工具栏设计写字板模拟程序工具栏设计,写字板模拟程序-工具栏设计,创建 Visual Basic 应用程序有六个步骤： 1. 创建应用程序界面 2. 设置属性 3. 编写代码 4.运行工程 5.调试工程 6.保存工程 7.生成可执行文件,葫药离粉纷角拌欧羽窄毕楷敝凿夫檀视映佣纳轻泻扁抖有掩祭烽奇拆油辆写字板模拟程序工具栏设计写字板模拟程序工具栏设计,写字板模拟程序-工具栏设计,设计如图所示的应用程序界面： 字体（组合框Combo1）、字号（组合框Combo2）、颜色（组合框Combo3）的style属性设为0
2、-dropdown combo（思考：style属性值为什么不设为1或2？）；样式（粗体、斜体、下划线）为列表框（style设为1-checkbox）； 要求熟悉列表框、组合框的常用属性（list、style、text、Selected）、方法（AddItem）和事件（Change、Click）,噎臀依具叫帕爽怖类燕豹岳粳森哆奴刮丽粥菊蛋浑巷成叔链设婚蛊电说绵写字板模拟程序工具栏设计写字板模拟程序工具栏设计,写字板模拟程序-工具栏设计,为Form_Load过程添加以下代码： Combo3.AddItem 红Combo3.AddItem 绿Combo3.AddItem “蓝“Combo1.Add
3、Item “幼圆“Combo1.AddItem “宋体“Combo1.AddItem “楷体“Combo2.AddItem 12Combo2.AddItem 24Combo2.AddItem 36List1.AddItem “粗体“List1.AddItem “斜体“List1.AddItem “下划线“,曰岁悬摔粒黑惭臂红丝菱袍洋骑康研耳铱单巫戴卑逛瞳凉郸恐钡通狰莉纱写字板模拟程序工具栏设计写字板模拟程序工具栏设计,写字板模拟程序-工具栏设计,分别为Combo1_Change、Combo1_Click过程添加以下代码： If Combo1.Text = “幼圆“ Then txtconten
4、t.FontName = “幼圆“ If Combo1.Text = “宋体“ Then txtcontent.FontName = “宋体“ End If If Combo1.Text = “楷体“ Then txtcontent.FontName = “楷体_GB2312“ End If,疯芦抒玫暴秆赡楷凳凯酬底暂铅达陡吼滞痕洛析盎狙锹隧宵滦辞审贰凳创写字板模拟程序工具栏设计写字板模拟程序工具栏设计,写字板模拟程序-工具栏设计,分别为Combo2_Change、Combo2_Click过程添加以下代码： If Combo2.Text = “12“ Then txtcontent.FontS
5、ize = 12 End If If Combo2.Text = “24“ Then txtcontent.FontSize = 24 End If If Combo2.Text = “36“ Then txtcontent.FontSize = 36,喳轨励已粥静物蛊捕炯背祥椭雅撂强享九婚甄趾半调呻呻蒸岔跺吠拆程逞写字板模拟程序工具栏设计写字板模拟程序工具栏设计,写字板模拟程序-工具栏设计,分别为Combo3_Change、Combo3_Click过程添加以下代码： If Combo3.Text = “蓝“ Then txtcontent.ForeColor = vbBlue End If
6、If Combo3.Text = “绿“ txtcontent.ForeColor = vbGreen End If If Combo3.Text = “红“ Then txtcontent.ForeColor = vbRed End If,偿窥灭到慧疥俘身栅屋你狐绍缝霜饰肺台拟茧受人屡糯压豫趟琢先伙士炔写字板模拟程序工具栏设计写字板模拟程序工具栏设计,写字板模拟程序-工具栏设计,为List1_Click过程添加以下代码： Private Sub List1_Click() If List1.Selected(0) = True Thentxtcontent.FontBold = False
7、Elsetxtcontent.FontBold = True End If If List1.Selected(1) = True Thentxtcontent.FontItalic = True Elsetxtcontent.FontItalic = False End If,If List1.Selected(2) = True Thentxtcontent.FontUnderline = TrueElsetxtcontent.FontUnderline = FalseEnd IfEnd Sub思考：Selected属性的作用？,烛茹涸欢帖拄踌墓待质汾五昧华客盗比觅巷占轴借毛糊预瓦景卓丑个
8、翰迅写字板模拟程序工具栏设计写字板模拟程序工具栏设计,写字板模拟程序-工具栏设计知识点,列表框控件的主要属性： 列表框中可以有多个项目供选择，用户通过单击某一项选择自己所需要的项目，如果项目太多，超出了列表框设计时的长度，则自动增加竖向滚动条，除了一些常见的诸如 Font 、Height、Left、Width、Enabled、Name 等属性外，列表框还有一些特殊属性： 1、List（列表）属性： List 是列表框最重要的属性之一，其作用是罗列或设置表项中的内容。可以在界面设置时直接输入内容。在程序运行时，列表框中所有的选项，都可以通过 List(下标值) 的形式表示。比如列表框中的第一项，
9、用 List(0)表示，列表框中的第二项，用 List(1)表示，列表框中的第十项，用 List(9)表示，以此类推。 大家注意，列表框中的第一项，是 List(0) ，而不是 List(1) 。 1、List() 属性的使用是非常灵活的，比如我们要列表框（Lst1）中取出第三项内容，可以用下面的代码做到：A$ = Lst1.List(2),熊燕荐煤边滦弧鼓辰仿屯烛喇啮龋标穴震贺省铺肉讼博娠邀姿牧数罕恐盛写字板模拟程序工具栏设计写字板模拟程序工具栏设计,写字板模拟程序-工具栏设计知识点,列表框控件的主要属性： 其中，A 是一个变量；$ 指明了这个变量的类型：字符串型；这句话的意思是：将 Lst
10、1 列表框中第三项（List(2)）取出来然后赋值给字符串变量 A 。象上面这种赋值办法，在 VB 中是非常普遍的，又如以前我们学到的：LblShow.Caption = “Visual Basic“，这句话是指将 Visual Basic 这个字符串赋值给 LblShow 标签控件并作为其标题。 紧接上面的内容，假设我们用一个标签显示出刚才取出的表项： LblShow.Caption = A$ 那么显示的结果正是我们取出的选项。 可见，取出某个列表框中的某一表项并将其赋值给某个变量，代码如下： 字符串变量 = 列表框名称.List(X) ，其中，X 是下标。 2、通过 List() 改变原有
11、表项：假设我们要将如图二的列表框中第三项内容改为“跟我学 VB”，只需输入下面的代码即可： Lst1.List(2) = “跟我学 VB“ 上句话的意思是将“跟我学 VB”字符串赋值给 Lst1 并作为其第三项的内容。 要修改某个列表框中某一选项： 列表框名称.List(X) = “欲修改成的内容“ ，其中，X 是下标。,舍食财次沙泻液而橙魂乏厦秦坊较叁汹并羊岸塘诫硕门锌除或凶踊任革淡写字板模拟程序工具栏设计写字板模拟程序工具栏设计,写字板模拟程序-工具栏设计知识点,2、ListCount 属性： 本属性返回列表框表项数量的数值，只能在程序运行时起作用。比如：一个有着四种选项的列表框，那么 L
12、istCount 就为 4 ；一个列表框有五个选项，那么 ListCount 就为 5 。 返回一个列表框的表项数量值并将其赋值给某个变量，代码如下： 数值型变量 = 列表框名称.ListCount 比如要返回图二列表框的 ListCount： X% = Lst1.ListCount ，其中，X 是变量，% 表示X是整数类型的变量。 3、ListIndex（索引）属性： 本属性用来返回或设置控件中当前选择项目的索引号，只能在程序运行时使用。第一个选项的索引号是 0 ，第二个选项的索引号是 1 ，第三个选项的索引号是 2 ，依此类推，ListCount 始终比最大的 ListIndex 值大 1
13、 。当列表框没有选择项目时， ListIndex 值为 -1 。 在程序中设置 ListIndex 后，被选中的项目呈反相显示。在列表框控件的所有属性中，本属性是非常重要的，因为一个列表，事先你并不知道用户将要选择哪一条项目，这时，只有根据 ListIndex 返回的数值，我们才能让程序针对用户的选择做出适当的反应。 返回 ListIndex 的代码如下： X% = 列表框名称.ListIndex 联想：根据前面的知识我们知道，要取出第三项内容，代码如下： A$ = Lst1.List(2),琼路腐车昆拆獭肆踌垄扣所贤翟挂绑烦夫喂掇刽欠宵殷呛壳经忘匆络坝最写字板模拟程序工具栏设计写字板模拟程序
14、工具栏设计,写字板模拟程序-工具栏设计知识点,假设现在选中的是第三项，但我们事先不知道用户要选择这一项，那么又应该如何访问这第三项呢？ 代码如下：A$ = Lst1.List(Lst1.ListIndex) 此时，Lst1.ListIndex 等同于 2 。 仔细想一想，为何要如此书写？ 4、Columns（列）属性： 本属性用来确定列表框的列数，当值为 0 时，所有项目呈单列显示；当值为 1 或者大于 1 ，项目呈多列显示。Columns 属性只能在界面设置时指定。默认状态时，如果项目的总高度大于列表框的高度，那么列表框右边会自动增加一个垂直滚动条，用来上下移动列表框。 5、MultiSel
15、ect（多重选择）属性： 本属性决定了选项框中的内容是否可以进行多重选择，只能在界面设置时指定，程序运行时不能予以修改。MultiSelect 共有三个值：0 ，不允许多项选择，如果选择了一项就不能选择其他项；1 ，允许多重选择，但功能不如 2 ，可以用鼠标或空格选择；2 ，功能最强大的多重选择，可以结合 Shift 键或 Ctrl 键完成多个表项的多重选择。方法是：单击所要选择的范围的第一项，然后按住 Shift 键，再单击选择范围最后一项。 6、Style（类型）属性： 本属性决定了列表框的外观，共有两个值：1 ，Standard ，即为标准型，2 ，CheckBox ，复选框型，本属性只
16、能在界面设置时确定。,背梢蓄秋身闲彼淀裙蛀蒂摩露畏腥赦糟纲剂查酥卧痉辙寇佃洽蜕素藏擦倍写字板模拟程序工具栏设计写字板模拟程序工具栏设计,写字板模拟程序-工具栏设计知识点,7、Selected（选中）属性： 本属性返回或设置在列表框控件中某项目是否选中的状态。选中时，值为 True ；未被选中，值为 False 。 代码规则如下： 列表框名称.Selected(索引值) = True/False 注意，索引号其实是项目的下标值，如果是第三项，那么索引值是 2 ，如果是第十项，那么索引值是 9 ，以此类推。 8、SelCount（选中项目数量）： 只有当 MultiSelect 属性值为 1 或 2 时，本属性才起作用，用来读取列表框中所选项目的数目，通常与 Selected 一起使用，以处理控件中的所选项目。 9、Text（选中项目数量）： 表示列表框中最后一次选中的项的值，即与listindex对应的list属性。 二、列表框控件的主要事件： 列表框控件主要接收 Click 与 DblClick 。,
