Vb程序设计2.ppt

《Vb程序设计2.ppt》由会员分享，可在线阅读，更多相关《Vb程序设计2.ppt（70页珍藏版）》请在三一办公上搜索。

1、Visual Basic 程序设计,2,第二章 窗体和基本控件,教学目标熟练掌握窗体主要属性、方法和事件的用法，并能利用其完成应用系统功能的程序实现；熟练掌握基本控件的用法、主要属性、方法和事件，并能利用其完成应用程序界面的设计，功能的实现，数据的有效性、完整性、合法性检验，实现对客户数据的显示及读取；能熟练使用各对象完成系统界面及应用功能的设计；重点掌握窗体及基本控件的常用属性、方法、事件；难点为事件驱动的理解及应用。本章为课程教学重点，要求结合应用程序实例及上机实践，能熟练编写应用程序。特别是对各类数据的输入、检验、显示及值的读取，各功能的触发要求熟练掌握。,3,第二章 窗体和基本控件,2

2、.0 基本概念窗体、控件2.1 窗体设计属性、方法、命令、事件及应用示例2.2 基本控件及主要属性标签、文本框、命令按钮、复选框、选项按钮、列表框、下拉列表框、图片框、图片、图形及线条、滚动条、定时器、焦点、菜单2.3 控件的方法和事件SetFocus,AddItem,RemoveItem,Change,Click,DbClick,GotFocus,LostFocus,Timer,KeyDown,KeyUp,KeyPress,Scroll2.4 多文档界面（MDI窗体）2.5 综合应用程序示例 界面设计 事件响应 公用模块第二章 作业,4,窗体和基本控件,界面是用户与应用程序进行交互操作的可视

3、部分。窗体和控件是创建界面的基本构造模块；也是创建应用程序所使用的基本对象。窗体（1）功能：是应用程序的主要部分，是程序的I/O界面。（2）属性（系统解释）（3）可调用的方法：.load.show.print.cls move（4）可触发的事件：Load Resize Active Deactive click dbclick mousedown 控件是包括在窗体对象内的对象，是可视化编程的预定义部件，是可以迅速组合以建立可用程序的构造块。,5,基本用户界面,6,2.1 窗体的设计,一、窗体属性注：窗体各属性含义及用法自学。课堂讲解常用属性及用法举例1.窗体常用属性Name 属性*设置窗体的名

4、称，在代码中用名称引用该窗体。缺省名称为 Form1、Form2，建议给 Name 属性设置反映窗体功能的名称，如浏览窗体命名 frmBrowse。Caption 属性*设置窗体标题栏中显示的提示文本；Picture 属性 设置窗体背景图片；Icon 属性 设置在窗体最小化时显示的图标；,7,一、窗体属性（二）,MaxButton、MinButton、ControlBox属性*设置窗体是否设有最大化、最小化、关闭钮；Height 和 Width 属性 设置窗体初始大小；Left 和 Top 属性 根据屏幕的左上角确定窗体的位置；Visible 属性*设置窗体是否可见；WindowState 属

5、性*设置窗体启动时最大化、最小化或正常大小其它：Appearance,BackColor,BorderStyle,CotrolBox,Enabled,FillColor,Font,MDIChild,MousePointer注：查看某属性的详细信息：选择该属性，按F1查看联机帮助。,8,一、窗体属性（三）,2.属性的使用在界面设计时，利用“属性工具箱”设置外观特性类属性；示例：在VB环境中演示。在程序代码中，引用及动态调整属性值。格式：ObjectName.AttributeName示例：frmAttrib.Width=frmAttrib.Width+1000特殊常量：me用于指代当前对象，例：

6、me.Width3.窗体属性、方法、事件应用示例(frmAttrib.frm)结合方法、事件示例演示。,程序示例2-1,9,二、窗体方法,1.窗体常用方法Show 方法*显示一个窗体（含将窗体调入内存功能）。格式：ObjectName.Show modal,owner调用 Show 方法与设置窗体 Visible 属性为 True 具有相同的效果。参数：vbModal 设置窗体以模式窗体方式打开Hide 方法 隐藏一个窗体（其中控件仍可使用）。ObjectName.Hide,程序示例2-2,10,二、窗体方法（二）,2.相关命令UnLoad 命令*从内存中卸载某一窗体。格式：UnLoad fo

7、rmName3.窗体属性、方法、事件应用示例(frmAttrib.frm)在VB环境中演示及讲解（代码附后）。,程序示例2-2,11,模式与无模式窗体,将窗体作为模式对话框显示使用 Show 方法，其 style 参数值为 vbModal（一个值为 1 的常数）。例如：frmAbout.Show vbModal将窗体作为无模式对话框显示使用不带 style 参数的 Show方法。例如：frmAbout.Show 注意：如果窗体显示为模式对话框，则只有当对话框关闭之后，在 Show 方法后的代码才能执行。而，当窗体被显示为无模式对话框时，在该窗体显示出来以后，Show 方法后面的代码紧接着就会执

8、行。Show 方法另有一个可选参数，owner，用来指定窗体的父子关系。将某个窗体名传给这个参数，使得这个窗体成为新窗体的拥有者。如：将 frmAbout 显示为 frmMain 的无模式子窗体。frmAbout.Show vbModeless,frmMain在 Show 方法中使用 owner 参数，确保对话框在它的父窗体最小化时它也最小化，或者在其父窗体关闭时它也卸载。,12,窗体方法示例代码部分,frmAttrib.frm见应用程序代码,VB环境中演示“模式窗口”与普通窗口的特征,演示隐藏窗口后，对其内部数据的引用,13,三、窗体事件（一）,窗体作为对象，能够执行方法并对事件作出响应。格

9、式：Sub objectName_EventName(parameter As paraType)1.窗体常用事件Load事件：*触发：加载窗体时触发使用：做窗体内的初始化工作,？,为什么在加载窗体时做初始化,学生选课：课程在变更-从数据库中读取,动态背景图片,14,三、窗体事件（二）,UnLoad事件：*触发：卸载窗体时触发使用：关闭窗体前，文件的修改保存提示及相关的善后工作参数：Cancel指针型，通过更改其值（为其赋值“True”），取消关闭窗体操作。,糟糕！忘记保存记录,程序示例2-3,15,三、窗体事件（三）,Resize 事件：*触发：当窗体尺寸变化时使用：当窗体尺寸变化时，调整窗

10、体内部控件位置及大小Activate 事件：触发：当窗体变成活动窗体时Deactivate 事件：触发：当另一个窗体或应用程序被激活时使用：对初始化或结束窗体行为十分方便。示例：VB设计环境中，编辑窗体界面时，工具箱可以使用，而转入编辑窗体代码时，工具箱不可使用,16,窗体事件示例代码部分,2.窗体属性、方法、事件应用示例(frmAttrib.frm)VB环境中演示及讲解（代码附后）。frmAttrib.frm见应用程序代码,动态设置背景图片,简单的初始化,属性引用：让图片适应窗体的调整,怎么才能学好呢？,17,例题,为窗体form1编写click事件 Private Sub Form1_cl

11、ick()Form1.print”VB6.0 中文版-1”Form1.currentX=800 Form1.currentY=1500 Form1.print”VB6.0 中文版-2”End Sub,18,练习、讨论,窗体无最大、最小化按钮。在窗体装入时窗体标题栏显示“装入窗体”，并在窗体装入某图片作为背景。当用户单击窗体时在标题栏显示“单击窗体”，在窗体显示“欢迎使用VB”。当用户双击窗体时在标题栏显示“双击窗体”，在窗体显示“结束使用VB”。,19,注意：App.Path+表示图片的路径与应用程序相同，否则，通过查找方法找到路径在加载事件中，为了利用Print方法显示文字，必须设Form1

12、窗体的AutoRedrawTrue,20,本讲小结,Visual Basic窗体,方法,属性,Show*Unload*Hide,(*)NameCaptionVisibleWindowState,Load*UnLoad*DbClick*Activate*,MaxButtonMinButtonControlBoxPicture、IconWidth、HeightTop、Left,事件,21,2.2 基本控件的使用-标签,Label 控件：用于显示文本提示信息，文本为只读文本。常用属性：*Caption：设置提示信息文本。快捷键设置“&”Alignment：设置文本对齐格式Font：设置字体、字型、字

13、号*TabIndex：设置控件响应Tab键的顺序*Index：指定控件数组的下标其他属性：Name,BackColor,BackStyle,Enabled,ForeColor,Height,Left,Top,Visible,Width,22,如下设置两个控件的属性：Label1：borderstyle=1,backstyle=1,forecolor=黑，left=480,top=600Label2：borderstyle=0,backstyle=0,forecolor=白，left=600,top=675,利用标签控件，建立具有浮雕效果的文字“Visual Basic 程序设计教程”。,例题2

14、-4,23,2.2 基本控件的使用命令按钮,CommandButton控件：用户通过单击按钮来执行操作。常用属性：Caption：设置按钮上显示文字（快捷键定义：&）*Default：将按钮设置为缺省命令按钮（ENTER键）Cancel：将按钮设置为“取消”命令按钮（ESC键）*Enabled：设置按钮是否可接收用户动作Picture：设置按钮上显示的图片*Style：设置按钮是否能显示图片 0standard（标准）,1graphical（图形）其他属性：Name,BackColor,DisablePicture,Font,DownPicture,Height,Left,MouseIcon,

15、TabIndex,TabStop,Width,Visible,24,2.2 基本控件的使用-文本框（一）,TextBox 控件：用于显示和输入文本。常用属性：*Text：设置要显示的文本或接收用户输入的文本Alignment：设置文本对齐格式*Enabled：设置是否可以接收用户输入（光标不可停留）*Locked：设置用户是否可以编辑文本（光标可以停留）,25,2.2 基本控件的使用-文本框（二）,*MaxLength：设置可接收的最大字符数（缺省0：为无限制）*MultiLine：设置以多行方式接收文本*PasswordChar：设置是否有控件中显示用户输入字符*ScrollBar：多行文本

16、方式下设置滚动栏TabStop：设置用户是否可以用Tab键来选定控件,26,2.2 基本控件的使用-文本框（三）,MousePointer：指定鼠标在控件上时的鼠标指针ToolTipText：指定文本框的工具提示所显示的文本*Visible：指定文本框是否可见与数据库有关属性：*DataField,DataMember,DataSource其他属性：Name,Appearance,BackColor,BackStyle,Font,ForeColor,Height,Left,TabIndex,Top,Width,27,2.2 基本控件的使用-文本框（四）,运行时属性：*SelStart：返回或设

17、置所选文本的位置 SelLenth：设置文本的长度 SelText：返回或设置文本框中所选的文本,28,2.2 基本控件的使用列表框（一）,ListBox控件：在有限空间为用户提供大量选项的有效方法。按缺省规定，选项以垂直单列方式显示，也可以设置成多列方式。常用属性：Columns：设置列表中数据是在一个列中垂直滚动（值为0时），还是在多个列中水平滚动（大于0的值）*List(i)：设置列表中包含的项ItemData(i)：为列表中各项设置一个指定号,29,2.2 基本控件的使用列表框（二）,*listCount：包含下拉列表框元素的个数*listIndex：包含所选中元素的下标，如未选择元素

18、，则为-1MultiSelect：指定用户能否一次从列表中选择多个元素SelCount：包含选择的列表框元素*Selected(i)：返回列表中该元素是否被选中,30,2.2 基本控件的使用列表框（二）,*Sorted：设置是否对列表值排序*Style：指定列表框选项格式（0-Standard,1-CheckBox）Text:最后被选中的列表框的文本内容。其他属性：Name,BackColor,Enabled,Font,Height,Left,MouseIcon,TabIndex,TabStop,Width,Visible,31,2.2 基本控件的使用下拉列表框（一）,ComboBox 控件：

19、在有限空间为用户提供大量选项的有效方法。常用属性：*List：包含显示在下拉列表内的字符串*listCount：包含下拉列表框元素的个数*listIndex：包含所选中元素的下标，如未选择元素，则为-1*Text：设置或接收下拉列表框选中项或输入值,32,2.2 基本控件的使用下拉列表框（二）,*Style：设置下拉列表框类型：DropDown Combo:带输入域及列表域Simple Combo:只有输入域，而无列表域（上下箭头选择）DropDown List:输入域不能输入数据，只能从列表中选择Sorted：设置是否对列表值排序其他属性：Name,List,ItemData,ListInd

20、ex,BackColor,Enabled,Font,Height,Left,MouseIcon,TabIndex,TabStop,Width,Visible,33,2.2 基本控件的使用选项按钮,OptionButton控件：用于给用户从一组两个或更多的选择中选择一项。如果想创建别的选项按钮组，必须将其中一些选项按钮组放到 Frame 或 PictureBox 中，或窗体中。常用属性：Caption：设置选项按钮显示的提示信息*Value：设置及接收选项按钮状态True-单选钮被选中,False-单选钮未被选中，缺省设置。其他属性：Name,Alignment,BackColor,Enable

21、d,DisablePicture,Font,DownPicture,Height,Left,MouseIcon,Picture,TabIndex,TabStop,Width,Visible,34,2.2 基本控件的使用复选框,CheckBox控件：为用户提供了“True/False”或“yes/no”的选择。常用属性：Caption：设置复选框显示的提示信息*Value：设置及接收复选框状态 0-unchecked,缺省设置;1-checked;2-grayed（灰）.其他属性：Name,Alignment,BackColor,Enabled,DisablePicture,Font,DownP

22、icture,Height,Left,MouseIcon,Picture,TabIndex,TabStop,Width,Visible,35,2.2 基本控件的使用框架(祯)控件,Frame控件：把控件分组，每组控件用一个框起来。常用于单选钮、复选钮分组，组之间控件选择互不干扰。常用属性：Name,Caption*.事件：(略).一般很少用到事件。建立方法：（略）使用复制粘贴,36,2.2 基本控件的使用图片框,PictureBox 控件：为用户显示图片。常用属性：*Picture 属性：被显示的图片的文件名（及可选的路径名）。要在运行时显示或替换图片，可利用函数 LoadPicture 来设

23、置 Picture 属性。picPannel.Picture=LoadPicture(”Cloud.Bmp)AutoSize 属性：当该属性设置为 True 时，PictureBox 能自动调整大小与显示的图片匹配。,37,2.2 基本控件的使用图片,Image 控件：与 PictureBox 控件相似，但它只用于显示图片。它不能作为其它控件的容器。常用属性：*Picture 属性：图片加载于 Image 控件的方法和它们加载于 PictureBox 中的方法一样。设计时，将 Picture 属性设置为文件名和路径，运行时，利用 Loadpicture 函数。Stretch 属性：调整Imag

24、e 控件大小,设为 False（缺省值）时，Image 控件可根据图片调整大小。将 Stretch 属性设为 True 将根据 Image 控件的大小来调整图片的大小，这可能使图片变形。,38,2.2 基本控件的使用图形及线条,Shape 和 Line 控件：可用来在窗体表面画图形元素。这些控件不支持任何事件，只用于表面装饰。常用属性：*Shape 属性：设置Shape 控件可显示为矩形、正方形、椭圆型、圆角矩形或圆角正方形。BorderColor 和 FillColor 属性：可以改变颜色BorderStyle、BorderWidth、FillStyle 和 DrawMode 属性：控制如何

25、画图。Line 控件与 Shape 控件相似，但仅用于画线。,39,2.2 基本控件的使用滚动条,Scroll Bar 控件为那些不能自动支持滚动的应用程序和控件提供了滚动功能。常用属性：LargeChange和 SmallChange 属性：指定滚动条中的移动量。Value 属性增加或减少的长度是由 LargeChange 和 SmallChange 属性设置的数值。Max 和 Min属性：Value属性的最大值和最小值,40,2.2 基本控件的使用滚动条（二）,Value 属性：缺省值为 0的一个整数，对应于滚动框在滚动条中的位置。除了可用鼠标单击改变滚动条数值外，也可将滚动框沿滚动条拖动

26、到任意位置。如果希望滚动条显示的信息从大到小，将 Min 大于 Max。常用事件:Change：在释放滚动框或单击滚动条或滚动箭头时发生。Scroll：在移动滚动框时发生。可访问滚动条被拖动后的数值。,41,2.2 基本控件的使用定时器1,Timer控件独立于用户，用于在一定的时间间隔执行操作。常用属性：*Interval 属性，指定定时器事件之间的毫秒数。间隔的取值在 0 到 64,767（64.8）秒之间。间隔实际的精确度不会超过 18 分之一秒。只在设计时出现在窗体上，运行时不可见，所以其位置和大小无关紧要。,42,2.2 基本控件的使用定时器2,*Enabled属性若希望窗体一加载定时

27、器就开始工作，应将此属性设置为 True。否则，保持此属性为 False将 Enabled 设置为 False 时就会暂停定时器操作。注意：Timer 事件是周期性的。应将间隔设置为精确度的一半。定时器事件生成越频繁，响应事件所使用的处理器事件就越多。这将降低系统综合性能。除非有必要，否则不要设置过小的间隔。,43,2.2 基本控件的使用焦点,焦点是接收用户鼠标或键盘输入的能力。将焦点赋给对象：运行时选择对象或用快捷键选择对象。在代码中用 SetFocus 方法。当对象得到或失去焦点时，会产生 GotFocus 或 LostFocus 事件。按 TAB 键将使焦点按控件建立的顺序在控件间移动，

28、设置 TabIndex 属性将改变一个控件的 tab 键顺序。将控件的 TabStop 属性设为 False(0)，便可将此控件从 tab 键顺序中删除。,44,对象的事件1,Change 事件指示一个控件的内容已经改变的。此事件如何和何时发生则随控件的不同而不同：ComboBox 改变控件的文本框部分的正文。该事件仅在 Style 属性设置为 0（下拉 Combo）或 1（简单 Combo）和正文被改变或者通过代码改变了 Text 属性的设置时才会发生。DirListBox 改变所选择的目录。该事件在双击一个新的目录或通过代码改变 Path 属性的设置时发生。DriveListBox 改变所

29、选择的驱动器。该事件当选择一个新的驱动器或通过代码改变 Drive 属性的设置时发生。HScrollBar 和 VScrollBar（水平和垂直滚动条）移动滚动条的滚动框部分。该事件在进行滚动或通过代码改变 Value 属性的设置时发生。PictureBox 改变 PictureBox 的内容。该事件当一个 DDE 链接更新数据或通过代码改变 Picture 属性的设置时发生。TextBox 改变文本框的内容。该事件当一个DDE链接更新数据、用户改变正文或通过代码改变 Text 属性的设置时发生。,45,对象的事件2,GotFocus 事件和LostFocus 事件*当对象获得（失去）焦点时产

30、生该事件；通过诸如 TAB 切换，或单击对象之类的用户动作，或在代码中用 SetFocus 方法改变焦点将触发事件。,46,对象的事件3,KeyDown、KeyUp 事件当一个对象具有焦点时按下(KeyDown)或松开(KeyUp)一个键时发生。语法：Private Sub object_KeyUp(index As Integer,keycode As Integer,shift As Integer)index 是一个整数，它用来唯一标识一个在控件数组中的控件。keycode 是一个键代码，诸如 vbKeyF1（F1 键）或 vbKeyHome（HOME 键）。要指定键代码，可使用对象浏览

31、器中的 Visual Basic(VB)对象库中的常数。shift 是在该事件发生时响应 SHIFT,CTRL 和 ALT 键的状态的一个整数。shift 参数是一个位域，它用最少的位响应 SHIFT 键（位 0）、CTRL 键（位 1）和 ALT 键（位 2）。这些位分别对应于值 1、2 和 4。可通过对一些、所有或无位的设置来指明有一些、所有或零个键被按下。例如，如果 CTRL 和 ALT 这两个键都被按下，则 shift 的值为 6。,47,对象的事件4,KeyPress事件*当用户按下和松开一个 ANSI 键时发生。语法：Private Sub object_KeyPress(inde

32、x As Integer,keyascii As Integer)index一个整数，用来唯一标识一个在控件数组中的控件。keyascii 是返回一个标准数字ANSI键代码的整数。用于测试击键的有效性或在字符输入时对其进行格式处理。可使用Chr(KeyAscii)将keyascii参数转变为一个字符。用KeyAscii=Asc(char)将该字符反译成一个控件可通过该表达式解释的 ANSI 数字。应当使用KeyDown和KeyUP事件过程来处理任何不被 KeyPress 识别的击键，诸如：功能键、编辑键、定位键以及任何这些键和键盘换档键的组合等。,48,对象的事件,Click 事件（DbCli

33、ck 事件）*是在一个对象上按下然后释放一个鼠标按钮时发生。它也会发生在一个控件的值改变时。对一个 Form 对象来说，该事件是在单击一个空白区或一个无效控件时发生。对一个控件来说，这类事件的发生是当：用鼠标的左键或右键单击一个控件。对 CheckBox,CommandButton,Listbox 或 OptionButton 控件来说，Click 事件仅当单击鼠标左键时发生。通过按下箭头键或者单击鼠标按钮，对 ComboBox 或 ListBox 控件中的项目进行选择。当 CommandButton,OptionButton 或 CheckBox 控件具有焦点时，按下 SPACEBAR 键。

34、对控件按下一个快捷键、缺省键或取消键。也可在代码中触发 Click 事件，通过：将 CommandButton 控件的 Value 属性设置为 True。将一个 OptionButton 控件的 Value 属性设置为 True。改变一个 CheckBox 控件的 Value 属性的设置。,49,(数据类型的校验)建立如下图示界面，要求输入为数字数据，对于输入正确的数据，显示正确的信息，对输入的非数字数据，则显示“错误，请重新输入！”。,Private Sub Text1_LostFocus()Dim i As Integer If IsNumeric(Text1.Text)Then Text

35、2.Text=正确!Else Text1.Text=清除输入文本框中的内容 Text1.SetFocus 控制权重新回到输入文本框 Text2.Text=错误,再输入!在显示文本框显示有关 End IfEnd Sub,例题2-5,50,建立如下图示界面，要求text1可以输入字串并可以选取字串，label1显示“起始位置”；label2放入选取子字串的开始位置值；label3显示“长度”；label4放入选取子字串的长度值。按钮1设置“清除”按钮，按钮2设置为“移动”按钮。当按清除是所有内容清除为空；当按移动时，把text1选种的子字串放入到text2中。,Private Sub Comman

36、d1_Click()Text1.Text=Text2.Text=Label2.Caption=Label4.Caption=End SubPrivate Sub Command2_Click()Text2.Text=Text1.SelText Label2.Caption=Text1.SelStart Label4.Caption=Text1.SelLengthEnd Sub,例题2-6,51,例题2-7 如图所示，当程序运行后，根据选项的字体和大小，按确定键后生效。,Private Sub cmdCancel_Click()Unload MeEndSubPrivate Sub cmdOk_C

37、lick()If optSong Then txtVB.FontName=宋体 Else txtVB.FontName=黑体 EndIf If optEight Then txtVB.FontSize=8 Else TxtVB.FontSize=12 End IfEndSub,52,对象的事件,Timer 事件*在一个 Timer 控件的预定的时间间隔过去之后发生。使用 Timer 事件时，可用此事件在每次 Timer 控件时间间隔过去之后通知 Visual Basic 应该做什么：无论何时，只要 Timer 控件的 Enabled 属性被设置为 True 而且 Interval 属性大于 0

38、，则 Timer 事件以 Interval 属性指定的时间间隔发生。,示例 2.11：定时器示例,53,对象的方法,SetFocus方法*将焦点移至指定的控件或窗体。语法：object.SetFocus焦点只能移到可视的窗体或控件。因为在窗体的 Load 事件完成前窗体或窗体上的控件是不可视的，所以如果不是在 Form_Load 事件过程完成之前首先使用 Show 方法显示窗体的话，是不能使用 SetFocus 方法将焦点移至正在自己的 Load 事件中加载的窗体的。也不能把焦点移到 Enabled 属性被设置为 False 的窗体或控件。如果已在设计时将 Enabled 属性设置为 Fals

39、e，必须在使用 SetFocus 方法使其接收焦点前将 Enabled 属性设置为 True。,54,*additem:格式：.additem。表达式必须是字符串表达式，如果index省略，则新增项目添加在最后，否则加到列表中索引号的位置。例如：list1.additem“张军”*removeitem:表示删除某个列表项 格式：.removeitem。*clear:表示删除整个列表项.clear。setfocus:.setfocus,列表框、下拉列表框方法,我们要求体验一下示例：,55,示例2-8：列表框中选项的移动：,将List1中选中（单选）的项目移动到List2中：Private Sub

40、 Command1_Click()List2.AddItem List1.Text List1.RemoveItem List1.ListIndexEnd Sub,List1中选中的序号（数值）,选中的文本内容（字符串）,56,例题2-9,设计阶段装入“李宁、张伟、王春华、关红梅”，利用form_load事件装入“华成、范杰、樊平、陈蓉”。当点击“显示学生籍贯”时在文本框中显示该生的籍贯。,57,Dim provinceSub Form_Load()lstStudent.AddItem 华成 lstStudent.AddItem 范杰 lstStudent.AddItem 樊平 lstStud

41、ent.AddItem 陈蓉 对province数组赋初值 province=Array(江苏省,江西省,浙江省,上海市,河南省,湖南省,浙江省,上海市)End SubSub cmdDisplay_Click()On Error Resume Next 显示列表框选定项对应的数组元素 txtProvince.Text=province(lstStudent.ListIndex)End Sub,58,例题2-10 如图所示界面建立列表框控件的基本操作。,PrivateSubCommand1_Click()If List1.ListIndex=0 Then List2.AddItem List1.

42、Text List1.RemoveItem _ List1.ListIndex End IfEnd Sub,注意：Font=Wingdings 3:Caption=uu,tt,59,additem,Private Sub Command5_Click()Dim listItem As String listItem=InputBox(Enter item to add to the list)If Trim(listItem)Then List1.AddItem listItem End IfEnd Sub,60,Private Sub Command2_Click()Dim i As Int

43、eger If List2.SelCount=1 Then List1.AddItem List2.Text List2.RemoveItem List2.ListIndex ElseIf List2.SelCount 1 Then For i=List2.ListCount-1 To 0 Step-1 If List2.Selected(i)Then List1.AddItem List2.List(i)List2.RemoveItem i End If Next End IfEnd Sub,61,本讲小结,应用程序界面,方法,属性,SetFocus*,(*)NameCaptionLocke

44、dTextValueDefault,GotFocus*LostFocus*KeyPress*Change*Click*,Enabled*MaxLenth*Multiline*PasswordChar*SelStart*SelText*,事件,2.1 窗体,2.2 基本控件,6 扩展控件,Label、TextBox、CommandButton、Frame、CheckBox、OptionButton,62,本讲小结,应用程序界面,方法,属性,Show*Unload*Hide,(*)NameCaptionLockedTextValue,Load*UnLoad*DbClick*Activate*,Ma

45、xButtonMinButtonControlBoxPicture、IconWidth、HeightTop、Left,事件,2.1 窗体,2.2 基本控件,6 扩展控件,Label、TextBox、CommandButton、ListBox、ComboBox、CheckBoxOptionButton、Frame、Timer、菜单、PictureBox、Image、Shape、ScrollBar,63,2.2 基本控件的使用菜单1,菜单控件是一个对象；与其它对象一样，它具有定义它的外观与行为的属性。在设计或运行时可以设置 Caption 属性、Enabled 和 Visible 属性、Check

46、ed 属性以及其它属性。菜单控件只包含一个事件，即 Click 事件，当用鼠标或键盘选中该菜单控件时，将调用该事件。弹出式菜单是显示于窗体之上，独立于菜单栏的浮动式菜单。显示在弹出式菜单上的项取决于鼠标右键按下时指针的位置，因此，弹出式菜单又称为上下文菜单。应该用弹出式菜单提供一种访问公共的上下文命令的高效方法。例如，用鼠标右键单击一个 TextBox，将会出现一个上下文菜单。使用 PopupMenu 方法可显示弹出式菜单。Name 这是代码中用来引用菜单控件的名字。Caption 这是出现在控件上的文本。,64,2.2 基本控件的使用菜单编辑器2,65,2.2 基本控件的使用菜单引用3,1）

47、通过给 MDI 窗体和子窗体添加菜单控件，可以为 Visual Basic 应用程序创建菜单。2）至少含有一个菜单项的任何菜单都可以作为弹出式菜单被显示。显示弹出式菜单使用PopupMenu方法：object.PopupMenu menuname,flags,x,y,boldcommand 例如：Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)If Button=2 Then 检查是否单击了鼠标右键。PopupMenu mnuFile End IfEnd Sub直到菜单中被选

48、取一项或者取消这个菜单时，调用 PopupMenu 方法后面的代码才会运行。,66,本讲小结,应用程序界面,方法,属性,SetFocus*,(*)NameCaptionLockedTextValueDefault,GotFocus*LostFocus*KeyPress*Change*Click*,Enabled*MaxLenth*Multiline*PasswordChar*SelStart*SelText*,事件,2.1 窗体,2.2 基本控件,6 扩展控件,Label、TextBox、CommandButton、Frame、CheckBox、OptionButton,67,本讲小结,应用程

49、序界面,方法,属性,Show*Unload*Hide,(*)NameCaptionLockedTextValue,Load*UnLoad*DbClick*Activate*,MaxButtonMinButtonControlBoxPicture、IconWidth、HeightTop、Left,事件,2.1 窗体,2.2 基本控件,6 扩展控件,Label、TextBox、CommandButton、ListBox、ComboBox、CheckBoxOptionButton、Frame、Timer、菜单、PictureBox、Image、Shape、ScrollBar,68,本讲小结,Visual Basic,事件驱动,可视化编程,属性,方法,事件,对象,应用程序的创建,运行,调试,编译,保存,69,作业,见：12软件开发工具实验-常用控件.ppt预习：程序设计语言基础要求：“数据类型”部分内容以自学为主，教师在课堂上串讲,Thank YouAny Questions?,