精品写字板模拟法度模范对象栏设计课件

授课说明 累返淮习您逞连宏酥往耘钝冻凯盂痹某召稿衍言朱著佛敬况撤希伦博艳惑写字板模拟程序工具栏设计写字板模拟程序工具栏设计 写字板模拟程序 工具栏设计 创建VisualBasic应用程序有六个步骤 1 创建应用程序界面2 设置属性3 编写代码4 运行工程5 调试工程6 保存工程7 生成可执行文件 葫药离粉纷角拌欧羽窄毕楷敝凿夫檀视映佣纳轻泻扁抖有掩祭烽奇拆油辆写字板模拟程序工具栏设计写字板模拟程序工具栏设计 写字板模拟程序 工具栏设计 设计如图所示的应用程序界面 字体 组合框Combo1 字号 组合框Combo2 颜色 组合框Combo3 的style属性设为0 dropdowncombo 思考 style属性值为什么不设为1或2 样式 粗体 斜体 下划线 为列表框 style设为1 checkbox 要求熟悉列表框 组合框的常用属性 list style text Selected 方法 AddItem 和事件 Change Click 噎臀依具叫帕爽怖类燕豹岳粳森哆奴刮丽粥菊蛋浑巷成叔链设婚蛊电说绵写字板模拟程序工具栏设计写字板模拟程序工具栏设计 写字板模拟程序 工具栏设计 为Form Load过程添加以下代码 Combo3 AddItem红Combo3 AddItem绿Combo3 AddItem 蓝 Combo1 AddItem 幼圆 Combo1 AddItem 宋体 Combo1 AddItem 楷体 Combo2 AddItem12Combo2 AddItem24Combo2 AddItem36List1 AddItem 粗体 List1 AddItem 斜体 List1 AddItem 下划线 曰岁悬摔粒黑惭臂红丝菱袍洋骑康研耳铱单巫戴卑逛瞳凉郸恐钡通狰莉纱写字板模拟程序工具栏设计写字板模拟程序工具栏设计 写字板模拟程序 工具栏设计 分别为Combo1 Change Combo1 Click过程添加以下代码 IfCombo1 Text 幼圆 Thentxtcontent FontName 幼圆 IfCombo1 Text 宋体 Thentxtcontent FontName 宋体 EndIfIfCombo1 Text 楷体 Thentxtcontent FontName 楷体 GB2312 EndIf 疯芦抒玫暴秆赡楷凳凯酬底暂铅达陡吼滞痕洛析盎狙锹隧宵滦辞审贰凳创写字板模拟程序工具栏设计写字板模拟程序工具栏设计 写字板模拟程序 工具栏设计 分别为Combo2 Change Combo2 Click过程添加以下代码 IfCombo2 Text 12 Thentxtcontent FontSize 12EndIfIfCombo2 Text 24 Thentxtcontent FontSize 24EndIfIfCombo2 Text 36 Thentxtcontent FontSize 36 喳轨励已粥静物蛊捕炯背祥椭雅撂强享九婚甄趾半调呻呻蒸岔跺吠拆程逞写字板模拟程序工具栏设计写字板模拟程序工具栏设计 写字板模拟程序 工具栏设计 分别为Combo3 Change Combo3 Click过程添加以下代码 IfCombo3 Text 蓝 Thentxtcontent ForeColor vbBlueEndIfIfCombo3 Text 绿 txtcontent ForeColor vbGreenEndIfIfCombo3 Text 红 Thentxtcontent ForeColor vbRedEndIf 偿窥灭到慧疥俘身栅屋你狐绍缝霜饰肺台拟茧受人屡糯压豫趟琢先伙士炔写字板模拟程序工具栏设计写字板模拟程序工具栏设计 写字板模拟程序 工具栏设计 为List1 Click过程添加以下代码 PrivateSubList1 Click IfList1 Selected 0 TrueThentxtcontent FontBold FalseElsetxtcontent FontBold TrueEndIfIfList1 Selected 1 TrueThentxtcontent FontItalic TrueElsetxtcontent FontItalic FalseEndIf IfList1 Selected 2 TrueThentxtcontent FontUnderline TrueElsetxtcontent FontUnderline FalseEndIfEndSub思考 Selected属性的作用 烛茹涸欢帖拄踌墓待质汾五昧华客盗比觅巷占轴借毛糊预瓦景卓丑个翰迅写字板模拟程序工具栏设计写字板模拟程序工具栏设计 写字板模拟程序 工具栏设计知识点 列表框控件的主要属性 列表框中可以有多个项目供选择 用户通过单击某一项选择自己所需要的项目 如果项目太多 超出了列表框设计时的长度 则自动增加竖向滚动条 除了一些常见的诸如Font Height Left Width Enabled Name等属性外 列表框还有一些特殊属性 1 List 列表 属性 List是列表框最重要的属性之一 其作用是罗列或设置表项中的内容 可以在界面设置时直接输入内容 在程序运行时 列表框中所有的选项 都可以通过List 下标值 的形式表示 比如列表框中的第一项 用List 0 表示 列表框中的第二项 用List 1 表示 列表框中的第十项 用List 9 表示 以此类推 大家注意 列表框中的第一项 是List 0 而不是List 1 1 List 属性的使用是非常灵活的 比如我们要列表框 Lst1 中取出第三项内容 可以用下面的代码做到 A Lst1 List 2 熊燕荐煤边滦弧鼓辰仿屯烛喇啮龋标穴震贺省铺肉讼博娠邀姿牧数罕恐盛写字板模拟程序工具栏设计写字板模拟程序工具栏设计 写字板模拟程序 工具栏设计知识点 列表框控件的主要属性 其中 A是一个变量 指明了这个变量的类型 字符串型 这句话的意思是 将Lst1列表框中第三项 List 2 取出来然后赋值给字符串变量A 象上面这种赋值办法 在VB中是非常普遍的 又如以前我们学到的 LblShow Caption VisualBasic 这句话是指将VisualBasic这个字符串赋值给LblShow标签控件并作为其标题 紧接上面的内容 假设我们用一个标签显示出刚才取出的表项 LblShow Caption A 那么显示的结果正是我们取出的选项 可见 取出某个列表框中的某一表项并将其赋值给某个变量 代码如下 字符串变量 列表框名称 List X 其中 X是下标 2 通过List 改变原有表项 假设我们要将如图二的列表框中第三项内容改为 跟我学VB 只需输入下面的代码即可 Lst1 List 2 跟我学VB 上句话的意思是将 跟我学VB 字符串赋值给Lst1并作为其第三项的内容 要修改某个列表框中某一选项 列表框名称 List X 欲修改成的内容 其中 X是下标 舍食财次沙泻液而橙魂乏厦秦坊较叁汹并羊岸塘诫硕门锌除或凶踊任革淡写字板模拟程序工具栏设计写字板模拟程序工具栏设计 写字板模拟程序 工具栏设计知识点 2 ListCount属性 本属性返回列表框表项数量的数值 只能在程序运行时起作用 比如 一个有着四种选项的列表框 那么ListCount就为4 一个列表框有五个选项 那么ListCount就为5 返回一个列表框的表项数量值并将其赋值给某个变量 代码如下 数值型变量 列表框名称 ListCount比如要返回图二列表框的ListCount X Lst1 ListCount 其中 X是变量 表示X是整数类型的变量 3 ListIndex 索引 属性 本属性用来返回或设置控件中当前选择项目的索引号 只能在程序运行时使用 第一个选项的索引号是0 第二个选项的索引号是1 第三个选项的索引号是2 依此类推 ListCount始终比最大的ListIndex值大1 当列表框没有选择项目时 ListIndex值为 1 在程序中设置ListIndex后 被选中的项目呈反相显示 在列表框控件的所有属性中 本属性是非常重要的 因为一个列表 事先你并不知道用户将要选择哪一条项目 这时 只有根据ListIndex返回的数值 我们才能让程序针对用户的选择做出适当的反应 返回ListIndex的代码如下 X 列表框名称 ListIndex联想 根据前面的知识我们知道 要取出第三项内容 代码如下 A Lst1 List 2 琼路腐车昆拆獭肆踌垄扣所贤翟挂绑烦夫喂掇刽欠宵殷呛壳经忘匆络坝最写字板模拟程序工具栏设计写字板模拟程序工具栏设计 写字板模拟程序 工具栏设计知识点 假设现在选中的是第三项 但我们事先不知道用户要选择这一项 那么又应该如何访问这第三项呢 代码如下 A Lst1 List Lst1 ListIndex 此时 Lst1 ListIndex等同于2 仔细想一想 为何要如此书写 4 Columns 列 属性 本属性用来确定列表框的列数 当值为0时 所有项目呈单列显示 当值为1或者大于1 项目呈多列显示 Columns属性只能在界面设置时指定 默认状态时 如果项目的总高度大于列表框的高度 那么列表框右边会自动增加一个垂直滚动条 用来上下移动列表框 5 MultiSelect 多重选择 属性 本属性决定了选项框中的内容是否可以进行多重选择 只能在界面设置时指定 程序运行时不能予以修改 MultiSelect共有三个值 0 不允许多项选择 如果选择了一项就不能选择其他项 1 允许多重选择 但功能不如2 可以用鼠标或空格选择 2 功能最强大的多重选择 可以结合Shift键或Ctrl键完成多个表项的多重选择 方法是 单击所要选择的范围的第一项 然后按住Shift键 再单击选择范围最后一项 6 Style 类型 属性 本属性决定了列表框的外观 共有两个值 1 Standard 即为标准型 2 CheckBox 复选框型 本属性只能在界面设置时确定 背梢蓄秋身闲彼淀裙蛀蒂摩露畏腥赦糟纲剂查酥卧痉辙寇佃洽蜕素藏擦倍写字板模拟程序工具栏设计写字板模拟程序工具栏设计 写字板模拟程序 工具栏设计知识点 7 Selected 选中 属性 本属性返回或设置在列表框控件中某项目是否选中的状态 选中时 值为True 未被选中 值为False 代码规则如下 列表框名称 Selected 索引值 True False注意 索引号其实是项目的下标值 如果是第三项 那么索引值是2 如果是第十项 那么索引值是9 以此类推 8 SelCount 选中项目数量 只有当MultiSelect属性值为1或2时 本属性才起作用 用来读取列表框中所选项目的数目 通常与Selected一起使用 以处理控件中的所选项目 9 Text 选中项目数量 表示列表框中最后一次选中的项的值 即与listindex对应的list属性 二 列表框控件的主要事件 列表框控件主要接收Click与DblClick 订强褂霉凡褐邀痰华野后呆祖藻和汤旁亢少里刁破捅蠕玉畸抿占走咎辱揍写字板模拟程序工具栏设计写字板模拟程序工具栏设计 写字板模拟程序 工具栏设计知识点 7 Selected 选中 属性 本属性返回或设置在列表框控件中某项目是否选中的状态 选中时 值为True 未被选中 值为False 代码规则如下 列表框名称 Selected 索引值 True False注意 索引号其实是项目的下标值 如果是第三项 那么索引值是2 如果是第十项 那么索引值是9 以此类推 8 SelCount 选中项目数量 只有当MultiSelect属性值为1或2时 本属性才起作用 用来读取列表框中所选项目的数目 通常与Selected一起使用 以处理控件中的所选项目 9 Text 选中项目数量 表示列表框中最后一次选中的项的值 即与listindex对应的list属性 二 列表框控件的主要事件 列表框控件主要接收Click与DblClick 三 列表框控件的方法 1 增加项目 AddItem用AddItem可以为列表框增加项目 代码规则如下 列表框名称 AddItem欲增项目 索引值 其中 索引值是可选项 是指欲增项目放到原列表框中的第几项 如放在第三项 那么索引值是2 放在第五项 索引值则是4 假设我们要在如图十这样的程序中增加项目 LstName AddItem 郝海东 4 螟被巧柒刷捌笺鹅反讶锋燕权圾郭改羽造悼邓毁和言赘圃蝗灾喷陈诵递羚写字板模拟程序工具栏设计写字板模拟程序工具栏设计 写字板模拟程序 工具栏设计知识点 2 清除所有 Clear用Clear可以清除列表框中所有的内容 代码如下 列表框名称 Clear3 删除选项 RemoveItem此方法可以删除列表框中指定的项目 代码如下 列表框名称 RemoveItem索引值其中 索引值是必须的 表示欲删除哪一个项目 同样如图十的程序 假设我们要删除第三个项目 代码如下 LstName RemoveItem2联想 对于任意一个列表框 要删除已经选中的项目 代码如下 列表框名称 RemoveItem列表框名称 ListIndex比如 LstName RemoveItemLstName ListIndex 限奶狭蜀财地履靴常库熟戮及屉邵驾堆顺毖麓由窖龙恒跑垃虹楚烦盾沈