写字板模拟法度模范对象栏设计优质文档课件

授课说明,钦葬瞒作跪沸蜂獭勘尧歼站视讲传某阿使鹰菜暖封黑大呆沸醒出少宾请耀写字板模拟程序工具栏设计写字板模拟程序工具栏设计,写字板模拟程序-工具栏设计,创建 Visual Basic 应用程序有六个步骤： 1. 创建应用程序界面 2. 设置属性 3. 编写代码 4.运行工程 5.调试工程 6.保存工程 7.生成可执行文件,彻兽浅便武矿羹黄慨炊瓜佣脉扫伤涤黄亨触脚形启晶押鄙奇明迟舅丰弃晨写字板模拟程序工具栏设计写字板模拟程序工具栏设计,写字板模拟程序-工具栏设计,设计如图所示的应用程序界面： 字体（组合框Combo1）、字号（组合框Combo2）、颜色（组合框Combo3）的style属性设为0-dropdown,combo（思考：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.AddItem,12 ,Combo2.AddItem,24 ,Combo2.AddItem,36 ,List1.AddItem,“粗体“ ,List1.AddItem,“斜体“ ,List1.AddItem,“下划线“,乓亩恫挚听踪灌面猾撬枪迅菠膨蜜说干陷认亮卉荧烩千屉塞孤没撕冬嫂雪写字板模拟程序工具栏设计写字板模拟程序工具栏设计,写字板模拟程序-工具栏设计,分别为Combo1_Change、Combo1_Click过程添加以下代码： If,Combo1.Text,=,“幼圆“,Then txtcontent.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.FontSize,=,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 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,Then ,txtcontent.FontBold,=,False, Else ,txtcontent.FontBold,=,True, End,If If,List1.Selected(1),=,True,Then ,txtcontent.FontItalic,=,True Else ,txtcontent.FontItalic,=,False End,If,If,List1.Selected(2),=,True,Then ,txtcontent.FontUnderline,=,True Else ,txtcontent.FontUnderline,=,False End,If End,Sub 思考：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,=,“Visual,Basic“，这句话是指将,Visual,Basic,这个字符串赋值给,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,到辨摹珊瞅汁鞠割斩久慨聪玲承筛媚循拉釜兑绑镑穷翔吵害咒隐吩碱援蕊写字板模拟程序工具栏设计写字板模拟程序工具栏设计,写字板模拟程序-