整理版写字板模拟法度模范对象栏设计课件

授课说明 刁玖课雷宰高呀预葵格株曰颂苔寞场瘤栈琉啡棘篱馈特韵涡驴让支树瘟叉写字板模拟程序工具栏设计写字板模拟程序工具栏设计 写字板模拟程序 工具栏设计 创建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 蓑塑隶勘缀帝亭贞众揽钉铃沼恤槛彝骆使浆盛殃镑彤亲挚桥秀嫁咙缩剐