《写字板模拟程序工具栏设计.ppt》由会员分享，可在线阅读，更多相关《写字板模拟程序工具栏设计.ppt（17页珍藏版）》请在金锄头文库上搜索。
1、计算机基础案例教程授课说明授课说明授课班级全院09级新生 日 期2010.5.13、5.17授课题目写字板模拟程序工具栏设计授课内容设计实现写字板模拟程序工具栏教学形式理实一体边讲边练目的要求熟悉列表框、组合框的常用属性（list、style、text、Selected）、方法（AddItem）和事件（Change、Click）重点难点重点：列表框、组合框的常用属性（list、style、text、Selected）、方法（AddItem）和事件（Change、Click）的使用难点：应用列表框、组合框的常用属性、方法和事件实现工具栏的设计作业布置写字板模拟程序菜单栏设计备注计算机基础案例教程
2、写字板模拟程序写字板模拟程序-工具栏设计工具栏设计l创建创建 Visual Basic 应用程序有六个步骤：应用程序有六个步骤：l1. 创建应用程序界面创建应用程序界面l2. 设置属性设置属性l3. 编写代码编写代码84.运行工程运行工程 85.调试工程调试工程 86.保存工程保存工程87.生成可执行文件生成可执行文件 计算机基础案例教程写字板模拟程序写字板模拟程序-工具栏设计工具栏设计设计如图所示的应用程序界面：设计如图所示的应用程序界面：字体（组合框字体（组合框Combo1）、字号（组合框）、字号（组合框Combo2）、颜色（组合框）、颜色（组合框Combo3）的）的style属性设为属性
3、设为0-dropdown combo（思考：（思考：style属性值为什么不设为属性值为什么不设为1或或2？）；样式？）；样式（粗体、斜体、下划线）为列表框（粗体、斜体、下划线）为列表框（style设为设为1-checkbox）；）；要求熟悉列表框、组合框的常用属性（要求熟悉列表框、组合框的常用属性（list、style、text、Selected）、方法）、方法（AddItem）和事件（）和事件（Change、Click）计算机基础案例教程写字板模拟程序写字板模拟程序-工具栏设计工具栏设计为为Form_Load过程添加以下代码：过程添加以下代码：Combo3.AddItem 红红 Combo
4、3.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.Tex
5、t = 幼圆幼圆 Thentxtcontent.FontName = 幼圆幼圆If Combo1.Text = 宋体宋体 Thentxtcontent.FontName = 宋体宋体End IfIf Combo1.Text = 楷体楷体 Thentxtcontent.FontName = 楷体楷体_GB2312End If计算机基础案例教程写字板模拟程序写字板模拟程序-工具栏设计工具栏设计分别为分别为Combo2_Change、Combo2_Click过程添加以下代码：过程添加以下代码：If Combo2.Text = 12 Thentxtcontent.FontSize = 12End If
6、If Combo2.Text = 24 Thentxtcontent.FontSize = 24End IfIf Combo2.Text = 36 Thentxtcontent.FontSize = 36计算机基础案例教程写字板模拟程序写字板模拟程序-工具栏设计工具栏设计分别为分别为Combo3_Change、Combo3_Click过程添加以下代码：过程添加以下代码：If Combo3.Text = 蓝蓝 Thentxtcontent.ForeColor = vbBlueEnd IfIf Combo3.Text = 绿绿 txtcontent.ForeColor = vbGreenEnd I
7、fIf Combo3.Text = 红红 Thentxtcontent.ForeColor = vbRedEnd If计算机基础案例教程写字板模拟程序写字板模拟程序-工具栏设计工具栏设计为为List1_Click过程添加以下代码：过程添加以下代码：Private Sub List1_Click()If List1.Selected(0) = True Then txtcontent.FontBold = False Else txtcontent.FontBold = True End IfIf List1.Selected(1) = True Then txtcontent.FontItal
8、ic = TrueElse txtcontent.FontItalic = FalseEnd IfIf List1.Selected(2) = True Then txtcontent.FontUnderline = TrueElse txtcontent.FontUnderline = FalseEnd IfEnd Sub思考：思考：Selected属性的作用？属性的作用？计算机基础案例教程写字板模拟程序写字板模拟程序-工具栏设计知识点工具栏设计知识点列表框控件的主要属性：列表框控件的主要属性：列表框中可以有多个项目供选择，用户通过单击某一项选择自己所需要的项目，如果项列表框中可以有多个项目
9、供选择，用户通过单击某一项选择自己所需要的项目，如果项目太多，超出了列表框设计时的长度，则自动增加竖向滚动条，除了一些常见的诸如目太多，超出了列表框设计时的长度，则自动增加竖向滚动条，除了一些常见的诸如 Font 、Height、Left、Width、Enabled、Name 等属性外，列表框还有一些特殊属性：等属性外，列表框还有一些特殊属性：1、List（列表）属性：（列表）属性：List 是列表框最重要的属性之一，其作用是罗列或设置表项中的内容。可以在界面设置是列表框最重要的属性之一，其作用是罗列或设置表项中的内容。可以在界面设置时直接输入内容。在程序运行时，列表框中所有的选项，都可以通过
10、时直接输入内容。在程序运行时，列表框中所有的选项，都可以通过 List(下标值下标值) 的形的形式表示。比如列表框中的第一项，用式表示。比如列表框中的第一项，用 List(0)表示，列表框中的第二项，用表示，列表框中的第二项，用 List(1)表示，表示，列表框中的第十项，用列表框中的第十项，用 List(9)表示，以此类推。表示，以此类推。大家注意，列表框中的第一项，是大家注意，列表框中的第一项，是 List(0) ，而不是，而不是 List(1) 。1、List() 属性的使用是非常灵活的，比如我们要列表框（属性的使用是非常灵活的，比如我们要列表框（Lst1）中取出第三项内容，）中取出第三
11、项内容，可以用下面的代码做到：可以用下面的代码做到：A$ = Lst1.List(2)计算机基础案例教程写字板模拟程序写字板模拟程序-工具栏设计知识点工具栏设计知识点列表框控件的主要属性：列表框控件的主要属性：其中，其中，A 是一个变量；是一个变量；$ 指明了这个变量的类型：字符串型；这句话的意思是：将指明了这个变量的类型：字符串型；这句话的意思是：将 Lst1 列表框中第三项（列表框中第三项（List(2)）取出来然后赋值给字符串变量）取出来然后赋值给字符串变量 A 。象上面这种赋值办。象上面这种赋值办法，在法，在 VB 中是非常普遍的，又如以前我们学到的：中是非常普遍的，又如以前我们学到的
12、：LblShow.Caption = Visual Basic，这句话是指将，这句话是指将 Visual Basic 这个字符串赋值给这个字符串赋值给 LblShow 标签控件并作为其标标签控件并作为其标题。题。紧接上面的内容，假设我们用一个标签显示出刚才取出的表项：紧接上面的内容，假设我们用一个标签显示出刚才取出的表项：LblShow.Caption = A$那么显示的结果正是我们取出的选项。那么显示的结果正是我们取出的选项。可见，取出某个列表框中的某一表项并将其赋值给某个变量，代码如下：可见，取出某个列表框中的某一表项并将其赋值给某个变量，代码如下：字符串变量字符串变量 = 列表框名称列表
13、框名称.List(X) ，其中，其中，X 是下标。是下标。2、通过、通过 List() 改变原有表项：假设我们要将如图二的列表框中第三项内容改为改变原有表项：假设我们要将如图二的列表框中第三项内容改为“跟我学跟我学 VB”，只需输入下面的代码即可：，只需输入下面的代码即可：Lst1.List(2) = 跟我学跟我学 VB上句话的意思是将上句话的意思是将“跟我学跟我学 VB”字符串赋值给字符串赋值给 Lst1 并作为其第三项的内容。并作为其第三项的内容。要修改某个列表框中某一选项：要修改某个列表框中某一选项：列表框名称列表框名称.List(X) = 欲修改成的内容欲修改成的内容 ，其中，其中，X
14、 是下标。是下标。计算机基础案例教程写字板模拟程序写字板模拟程序-工具栏设计知识点工具栏设计知识点2、ListCount 属性：属性：本属性返回列表框表项数量的数值，只能在程序运行时起作用。比如：一个有着四种选本属性返回列表框表项数量的数值，只能在程序运行时起作用。比如：一个有着四种选项的列表框，那么项的列表框，那么 ListCount 就为就为 4 ；一个列表框有五个选项，那么；一个列表框有五个选项，那么 ListCount 就为就为 5 。返回一个列表框的表项数量值并将其赋值给某个变量，代码如下：返回一个列表框的表项数量值并将其赋值给某个变量，代码如下：数值型变量数值型变量 = 列表框名称
15、列表框名称.ListCount比如要返回图二列表框的比如要返回图二列表框的 ListCount：X% = Lst1.ListCount ，其中，其中，X 是变量，是变量，% 表示表示X是整数类型的变量。是整数类型的变量。3、ListIndex（索引）属性：（索引）属性：本属性用来返回或设置控件中当前选择项目的索引号，只能在程序运行时使用。第一个本属性用来返回或设置控件中当前选择项目的索引号，只能在程序运行时使用。第一个选项的索引号是选项的索引号是 0 ，第二个选项的索引号是，第二个选项的索引号是 1 ，第三个选项的索引号是，第三个选项的索引号是 2 ，依此类推，依此类推，ListCount 始
16、终比最大的始终比最大的 ListIndex 值大值大 1 。当列表框没有选择项目时，。当列表框没有选择项目时， ListIndex 值为值为 -1 。在程序中设置在程序中设置 ListIndex 后，被选中的项目呈反相显示。在列表框控件的所有属性中，后，被选中的项目呈反相显示。在列表框控件的所有属性中，本属性是非常重要的，因为一个列表，事先你并不知道用户将要选择哪一条项目，这时，本属性是非常重要的，因为一个列表，事先你并不知道用户将要选择哪一条项目，这时，只有根据只有根据 ListIndex 返回的数值，我们才能让程序针对用户的选择做出适当的反应。返回的数值，我们才能让程序针对用户的选择做出适
17、当的反应。返回返回 ListIndex 的代码如下：的代码如下：X% = 列表框名称列表框名称.ListIndex联想：根据前面的知识我们知道，要取出第三项内容，代码如下：联想：根据前面的知识我们知道，要取出第三项内容，代码如下：A$ = Lst1.List(2)计算机基础案例教程写字板模拟程序写字板模拟程序-工具栏设计知识点工具栏设计知识点假设现在选中的是第三项，但我们事先不知道用户要选择这一项，那么又应该如何访问假设现在选中的是第三项，但我们事先不知道用户要选择这一项，那么又应该如何访问这第三项呢？这第三项呢？代码如下：代码如下：A$ = Lst1.List(Lst1.ListIndex)
18、 此时，此时，Lst1.ListIndex 等同于等同于 2 。仔细想一想，为何要如此书写？仔细想一想，为何要如此书写？4、Columns（列）属性：（列）属性：本属性用来确定列表框的列数，当值为本属性用来确定列表框的列数，当值为 0 时，所有项目呈单列显示；当值为时，所有项目呈单列显示；当值为 1 或者大于或者大于 1 ，项目呈多列显示。，项目呈多列显示。Columns 属性只能在界面设置时指定。默认状态时，如果项目的属性只能在界面设置时指定。默认状态时，如果项目的总高度大于列表框的高度，那么列表框右边会自动增加一个垂直滚动条，用来上下移动总高度大于列表框的高度，那么列表框右边会自动增加一个
19、垂直滚动条，用来上下移动列表框。列表框。5、MultiSelect（多重选择）属性：（多重选择）属性：本属性决定了选项框中的内容是否可以进行多重选择，只能在界面设置时指定，程序运本属性决定了选项框中的内容是否可以进行多重选择，只能在界面设置时指定，程序运行时不能予以修改。行时不能予以修改。MultiSelect 共有三个值：共有三个值：0 ，不允许多项选择，如果选择了一项就，不允许多项选择，如果选择了一项就不能选择其他项；不能选择其他项；1 ，允许多重选择，但功能不如，允许多重选择，但功能不如 2 ，可以用鼠标或空格选择；，可以用鼠标或空格选择；2 ，功，功能最强大的多重选择，可以结合能最强大
20、的多重选择，可以结合 Shift 键或键或 Ctrl 键完成多个表项的多重选择。方法是：键完成多个表项的多重选择。方法是：单击所要选择的范围的第一项，然后按住单击所要选择的范围的第一项，然后按住 Shift 键，再单击选择范围最后一项。键，再单击选择范围最后一项。6、Style（类型）属性：（类型）属性：本属性决定了列表框的外观，共有两个值：本属性决定了列表框的外观，共有两个值：1 ，Standard ，即为标准型，即为标准型，2 ，CheckBox ，复选框型，本属性只能在界面设置时确定。，复选框型，本属性只能在界面设置时确定。计算机基础案例教程写字板模拟程序写字板模拟程序-工具栏设计知识点
21、工具栏设计知识点7、Selected（选中）属性：（选中）属性：本属性返回或设置在列表框控件中某项目是否选中的状态。选中时，值为本属性返回或设置在列表框控件中某项目是否选中的状态。选中时，值为 True ；未被选；未被选中，值为中，值为 False 。代码规则如下：代码规则如下： 列表框名称列表框名称.Selected(索引值索引值) = True/False注意，索引号其实是项目的下标值，如果是第三项，那么索引值是注意，索引号其实是项目的下标值，如果是第三项，那么索引值是 2 ，如果是第十项，如果是第十项，那么索引值是那么索引值是 9 ，以此类推。，以此类推。8、SelCount（选中项目数
22、量）：（选中项目数量）：只有当只有当 MultiSelect 属性值为属性值为 1 或或 2 时，本属性才起作用，用来读取列表框中所选项目的时，本属性才起作用，用来读取列表框中所选项目的数目，通常与数目，通常与 Selected 一起使用，以处理控件中的所选项目。一起使用，以处理控件中的所选项目。9、Text（选中项目数量）：（选中项目数量）：表示列表框中最后一次选中的项的值，即与表示列表框中最后一次选中的项的值，即与listindex对应的对应的list属性。属性。二、列表框控件的主要事件：二、列表框控件的主要事件：列表框控件主要接收列表框控件主要接收 Click 与与 DblClick 。
23、计算机基础案例教程写字板模拟程序写字板模拟程序-工具栏设计知识点工具栏设计知识点7、Selected（选中）属性：（选中）属性：本属性返回或设置在列表框控件中某项目是否选中的状态。选中时，值为本属性返回或设置在列表框控件中某项目是否选中的状态。选中时，值为 True ；未被；未被选中，值为选中，值为 False 。代码规则如下：代码规则如下： 列表框名称列表框名称.Selected(索引值索引值) = True/False注意，索引号其实是项目的下标值，如果是第三项，那么索引值是注意，索引号其实是项目的下标值，如果是第三项，那么索引值是 2 ，如果是第十项，如果是第十项，那么索引值是那么索引值
24、是 9 ，以此类推。，以此类推。8、SelCount（选中项目数量）：（选中项目数量）：只有当只有当 MultiSelect 属性值为属性值为 1 或或 2 时，本属性才起作用，用来读取列表框中所选项目时，本属性才起作用，用来读取列表框中所选项目的数目，通常与的数目，通常与 Selected 一起使用，以处理控件中的所选项目。一起使用，以处理控件中的所选项目。9、Text（选中项目数量）：（选中项目数量）：表示列表框中最后一次选中的项的值，即与表示列表框中最后一次选中的项的值，即与listindex对应的对应的list属性。属性。二、列表框控件的主要事件：二、列表框控件的主要事件：列表框控件主
25、要接收列表框控件主要接收 Click 与与 DblClick 。三、列表框控件的方法：三、列表框控件的方法：1、增加项目：、增加项目：AddItem用用 AddItem 可以为列表框增加项目，代码规则如下：可以为列表框增加项目，代码规则如下：列表框名称列表框名称.AddItem 欲增项目欲增项目,索引值索引值其中，索引值是可选项，是指欲增项目放到原列表框中的第几项，如放在第三项，那么其中，索引值是可选项，是指欲增项目放到原列表框中的第几项，如放在第三项，那么索引值是索引值是 2 ，放在第五项，索引值则是，放在第五项，索引值则是 4 。假设我们要在如图十这样的程序中增加项目：假设我们要在如图十这
26、样的程序中增加项目：LstName.AddItem 郝海东郝海东,4计算机基础案例教程写字板模拟程序写字板模拟程序-工具栏设计知识点工具栏设计知识点2、清除所有：、清除所有：Clear用用 Clear 可以清除列表框中所有的内容，代码如下：可以清除列表框中所有的内容，代码如下：列表框名称列表框名称.Clear3、删除选项：、删除选项：RemoveItem此方法可以删除列表框中指定的项目，代码如下：此方法可以删除列表框中指定的项目，代码如下：列表框名称列表框名称.RemoveItem 索引值索引值其中，索引值是必须的，表示欲删除哪一个项目。其中，索引值是必须的，表示欲删除哪一个项目。同样如图十的
27、程序，假设我们要删除第三个项目，代码如下：同样如图十的程序，假设我们要删除第三个项目，代码如下：LstName.RemoveItem 2联想：对于任意一个列表框，要删除已经选中的项目，代码如下：联想：对于任意一个列表框，要删除已经选中的项目，代码如下：列表框名称列表框名称.RemoveItem 列表框名称列表框名称.ListIndex比如：比如：LstName.RemoveItem LstName.ListIndex计算机基础案例教程小结8创建一个工程创建一个工程 8为窗体添加对象为窗体添加对象8设置对象属性设置对象属性 8编写代码编写代码8运行工程运行工程 8调试工程调试工程 8保存工程保存工程 8列表框、组合框的常用属性（列表框、组合框的常用属性（list、style、text、Selected）、方法（）、方法（AddItem）和事件（）和事件（Change、Click）8选择结构程序设计选择结构程序设计8预习：函数、运算符和表达式概念及类型预习：函数、运算符和表达式概念及类型8调试运行例题调试运行例题7.2计算机基础案例教程谢谢！谢谢！
