数据库原理及应用(VB部分).ppt

《数据库原理及应用(VB部分).ppt》由会员分享，可在线阅读，更多相关《数据库原理及应用(VB部分).ppt（182页珍藏版）》请在三一办公上搜索。

1、Visual Basic程序设计基础,Visual Basic 编程入门 Visual Basic 语言基础 Visual Basic 窗体及控件,Visual Basic 编程入门,Visual Basic 编程入门,属性窗口,Visual Basic 编程入门,代码编辑器窗口,代码窗口,Visual Basic 编程入门,传统过程化应用程序,从第一行开始执行,并按照预定的路径执行,用户无法改变程序的流程,事件驱动的应用程序,代码不是按预定的路径执行,而是在响应不同事件时执行不同的代码段,事件触发由用户触发由操作系统触发由其它应用程序的消息触发,面向对象程序设计,Visual Basic 编

2、程入门,对象,是系统中的基本运行实体,是代码和数据的集合。,VB中，对象分为 系统定义，如窗体、菜单等 用户定义,类,是封装数据和隐藏数据的工具,是一组用来定义对象的相关过程和数据的集合。,一个对象就是类的一个实例,类具有封装性、继承性和多态性特征,Visual Basic 编程入门,创建VB程序的步骤,建立工程设计界面设置对象属性编写代码保存程序运行程序生成可执行文件,Visual Basic 编程入门,1.建立工程 工程是组成一个应用程序的文件集合(.vbp)，最常用的是标准EXE类型的工程。2.设计应用程序界面 使用工具箱中的各种控件，在窗体设计器上“画”界面。,Visual Basic

3、 编程入门,3.设置对象属性 属性是一个对象的特性，不同的对象有不同的属性。常见的属性：标题(Caption)名称(Name)颜色(Color)字体(Font)是否可见(Visible)格式：.=例如，Label1.Caption=VB程序设计示例,Visual Basic 编程入门,3.设置对象属性,Visual Basic 编程入门,4.编写程序代码(事件响应代码)事件是预先设置好的、能够被对象识别和响应的动作。在VB中，系统为每一对象预先定义好一系列的事件，如：单击(Click)双击(DblClick)装入事件(Load)改变事件(Change)鼠标移动事件(MouseMove)获取焦点

4、事件(GotFocus),事件过程的一般格式:Private Sub _()End Sub例:Private Sub Command1_Click()Form1.BackColor=vbRedEnd Sub,Visual Basic 编程入门,4.编写程序代码(事件响应代码),Visual Basic 编程入门,4.编写程序代码(事件响应代码)方法是一种特殊的过程和函数,可供用户直接调用。如:打印(Print)方法显示窗体(Show)方法清除(Cls)方法移动(Move)方法格式：.例如：Form2.Show,Visual Basic 编程入门,5.保存程序,Visual Basic 编程入门

5、,6.运行程序“运行启动”或7.生成可执行文件 生成能够脱离VB集成环境运行的exe文件,Visual Basic 编程入门,事件,是指发生在对象上的事情。,在VB中，系统为每一对象预先定义好一系列的事件，如：单击(Click)双击(DblClick)装入事件(Load)改变事件(Change)鼠标移动事件(MouseMove)获取焦点事件(GotFocus),事件过程的一般格式:Private Sub _()End Sub例:Private Sub Command1_Click()Form1.BackColor=vbRedEnd Sub,Visual Basic 编程入门,方法,是指对象要执

6、行的动作。,方法是面向对象程序设计中所特有的，是一种特殊的过程和函数,可供用户直接调用。如:打印(Print)方法显示窗体(Show)方法清除(Cls)方法移动(Move)方法,格式：.,Visual Basic 语言基础,例：单击窗体输出交换前后的变量a和变量b的值。Private Sub Form_Click()Dim a As Integer,b As Integer,Temp As Integer 声明变量a=10 变量赋值b=20Print 变量a和变量b交换前：;a;b变量交换Temp=aa=bb=TempPrint 变量a和变量b交换后：;a;bEnd Sub,Visual Ba

7、sic 语言基础,语句输入时不区分大小写，一条语句通常写在一行中。一行中若输入多条语句，需用“:”分隔。例如，Temp=a:a=b:b=Temp 长语句可通过续行符“_”(空格后加下划线)分行。例如，Print a变量和b变量内容交换前：;a;b可分成以下两行输入：Print a变量和b变量内容交换前：;_a;b单引号后面的内容为注释，可放在一行语句的最后，或单独占据一行。数值前加上前缀&H和&O分别表示十六进制和八进制数。,Visual Basic 语言基础,标识符：变量、过程、函数以及其它对象的名字。命名规则：由字母、汉字、数字或下划线组成，第一个字符必须是字母或汉字。长度不超过255个字

8、符。其中，窗体、控件和模块的标识符长度不能超过40个字符。不要与VB中的关键字同名“见名知义”,Visual Basic 语言基础,赋值语句语法格式：变量名=表达式 作用：变量赋值或设置对象属性。例如：Pi=3.1415926strTemp=“Hello!”Form1.Caption=“VB程序设计示例”Form1.BackColor=vbWhite说明：只有当表达式的类型与变量的数据类型兼容时，该表达式的值才可以赋给相应的变量或属性。不管表达式是什么类型，都可以赋给Variant(变体类型)变量。,Visual Basic 语言基础 P270,Visual Basic 语言基础,字符串型(S

9、tring)VB字符串是由双引号括起来的一串字符不含任何字符(长度为0)的字符串称为空串String型变量有变长和定长之分例:Dim NameA As String 声明变长字符串变量Dim NameB As String*20 声明定长字符串变量 逻辑型(Boolean)逻辑型数据的取值：True或False 例：Dim BoolR As Boolean BoolR=68 Print BoolR 输出：False,Visual Basic 语言基础,日期型(Date)日期型变量可存放日期和时间日期型常数的表现形式：#mm/dd/yyyy hh:mm:ss#mm/dd/yyyy hh:mm:s

10、s 日期型数据的输出格式取决于系统的区域设置例：Dim D As Date声明日期型变量D D=#10/5/2002#日期型变量赋值 Print D输出日期型变量的值,Visual Basic 语言基础,对象型(Object)声明对象变量后，用Set语句指定实际引用的对象例：窗体上有命令按钮Command1，执行如下语句，可将该按钮的显示文字改为OKDim a As Object声明a为对象型变量Set a=Command1指定a引用Command1命令按钮a.Caption=OK 与Command1.Caption等价变体型(Variant)变体：在程序运行期间可存放不同类型的数据。例：Di

11、m XX缺省为 Variant类型 X=17X被赋予字符串 17 X=X 2X被赋予数值15 X=A&XX被赋予字符串 A15,Visual Basic 语言基础,自定义数据类型 在模块的“通用”声明段声明 Private|Public Type 数据类型名 元素名1 As 类型名 元素名2 As 类型名 End Type Public：声明的类型在工程中所有模块的任何过程中可用Private：声明的类型只能在当前模块中使用 声明自定义数据类型后，可使用该类型。例 Dim studTemp As student 声明为student类型变量访问自定义数据类型的变量：变量名.成员名，如：stud

12、Temp.id=030005 studTemp.xm=李斌,Visual Basic 语言基础,常量,Form1.BackColor=vbBlue vbBlue是表示蓝色的内部常量,内部常量：由系统提供。,Visual Basic 语言基础,常量,声明格式：Public|Private Const 常量名As 类型=表达式,符号常量：自定义常量。,例：Const conMax As Integer=9声明Integer型常量 Const conDate=#10/5/2002#声明Date型常量 Const CodeName=ASCII 声明String型常量,Visual Basic 语言基础

13、,变量,S&=10 声明S为长整型变量,通过类型符号：直接在变量名后面加上类型符号,使用声明语句 Dim 变量名 As 类型Dim 变量名 类型符,例如，下面两条声明语句的效果相同：Dim a As Integer,b As Long,c As Single,d As Double Dim a%,b&,c！,d#,若省略类型说明，被声明的变量为Variant型。,Visual Basic 语言基础,常量,在程序运行期间值不发生变化的量。在VB中，有两种形式的常量直接常量符号常量。,符号常量又分为:用户自定义符号常量系统定义符号常量,例如：”欢迎使用Visual Basic”字符串常量，长度为2

14、0 12345数值型常量 True布尔型常量#11102001#日期型常量,声明的格式如下：Public|Private Const As=例如：Const Pi=3.14159,可以从“对象浏览器”中获得。,Visual Basic 语言基础,变量,VB变量的命名规则：不区分字母的大小写，第一个字符必须是字母 长度不超过255个字符。不可以包含小数点或者内嵌的类型声明字符。不能使用关键字。不能与过程名或符号常量同名。,Dim|Private|Static|Public As,Visual Basic 语言基础,自定义数据类型,定义：Public|Private Type As As.End

15、Type,说明：1)必须为定长字符串2)定义自定义数据类型变量用：Dim As 3)元素名引用：.,Visual Basic 语言基础,运算符与表达式,Visual Basic 语言基础,运算符与表达式,字符串运算符：“&”、“+”作用：将两个字符串连接合并成一个新的字符串。“+”运算符两边的操作数应均为字符串，如果都为数值型，则进行算术运算，如果有一个为字符串，另一个为数值型，则出错；“&运算符两边的操作数不论是数值型的还是字符串型，都进行字符串的连接运算，系统先将数值型操作数转换为字符串，然后再进行连接运算。,例如：“Hello”&“World”结果为“Hello World”“Check

16、”&123结果为“Checkl23”“Check”+123错误,Visual Basic 语言基础,运算符与表达式,关系运算符,Visual Basic 语言基础,运算符与表达式,逻辑运算符,Visual Basic 语言基础,常用内部函数,内部函数分5类:数学函数 字符串函数 随机函数、格式输出函数 转换函数 日期和时间函数见教材P273275,Visual Basic 语言基础,Print方法,格式：对象.Print 输出项,|;对象缺省为当前窗体，输出项缺省则打印一空白行输出项之间可用分号或逗号分隔：使用分号，其后的输出项紧接着前一个输出项输出；使用逗号，其后的输出项在下一个输出区输出。

17、两个输出区默认相隔14列 各输出项表示要打印的表达式，组成 Spc(n)|Tab(n)表达式 Spc(n)：指定在输出之前插入n个空白字符 Tab(n)：指定在第n列上输出,Visual Basic 语言基础,Print方法,例：Private Sub Form_Click()Print Print Tab(15);*Print Tab(13);*;Spc(1);*;Spc(1);*End Sub,Visual Basic 语言基础,输入框函数(InputBox),InputBox函数产生一个对话框，作为输入数据的界面，等待用户输入正文或按下按钮，并返回所输入的内容。,格式:InputBox(

18、,),例如：MyStr=InputBox(提示&vbCrLf&信息,对话框标题,aaaaaa),Visual Basic 语言基础,消息框函数(MsgBox),MsgBox函数产生一个消息框，提示用户进行选择，系统根据选择确定其后的操作。,格式:MsgBox(,),：用于指定显示在对话框中的信息。：用来指定对话框中出现的按钮和图标的种类及数量。：用来显示在对话框的标题。,Visual Basic 语言基础,消息框函数(MsgBox),Visual Basic 语言基础,消息框函数(MsgBox),Visual Basic 语言基础,消息框函数(MsgBox),Private Sub Form_

19、Click()a=MsgBox(提示信息)End Sub,Private Sub Form_Click()a=MsgBox(提示信息&Chr(13)&换行显示)End Sub,Visual Basic 语言基础,消息框函数(MsgBox),Private Sub Form_Click()a=MsgBox(提示信息,标题)End Sub,Private Sub Form_Click()a=MsgBox(提示信息,1,标题)End Sub,Visual Basic 语言基础,消息框函数(MsgBox),Private Sub Command1_Click()a=MsgBox(提示信息,1+16,标

20、题)End Sub,Private Sub Command1_Click()a=MsgBox(提示信息,2+32+0,标题)End Sub,显示停止图标,设第一按钮是默认按钮,Visual Basic 语言基础,顺序结构,VB采用事件驱动方法，但仍需要结构化程序设计方法，用控制结构控制程序执行的流程。程序流程有三种最基本的结构：顺序、选择、循环。,例：使用文本框输入圆的半径，计算圆的面积并用标签输出。运行界面如下图所示：,Private Sub Command1_Click()Dim r As Double,s As Double Const pi=3.1415926 r=Val(Text1.

21、Text)s=pi*r*r Label1.Caption=圆的面积：&sEnd Sub,Visual Basic 语言基础,选择结构,If Then语句格式1：If 条件 Then 语句序列格式2：If 条件 Then 语句序列End If,If Then Else语句 格式：If Then语句序列1Else语句序列2End If,Visual Basic 语言基础,选择结构,嵌套的If语句 If 条件1 Then语句序列1ElseIf 条件2 Then语句序列2ElseIf 条件3 Then语句序列3ElseIf 条件n 语句序列nEnd If,多分支选择控制语句 Select Case 表

22、达式Case 值1,值2,语句序列1Case 值3 to 值4语句序列2Case Is 比较表达式语句序列3Case Else语句序列nEnd Select,Visual Basic 语言基础,循环结构,ForNext循环语句For=To Step Exit ForNext,Visual Basic 语言基础,循环结构,DoLoop循环语句格式一:前测式当型循环格式二:前测式直到型循环Do While Do Until Exit Do Exit Do LoopLoop,格式三:后测式当型循环格式四:后测式直到型循环Do Do Exit Do Exit Do Loop While Loop Un

23、til,Visual Basic 语言基础,循环结构,WhileWend循环语句While Wend,Visual Basic 语言基础,循环结构,例：打印九九乘法口诀表,Private Sub Form_Click()Dim i As Integer,j As IntegerFor i=1 To 9 For j=1 To i Print i;*;j;=;Format(i*j,);Next j PrintNext iEnd Sub,Visual Basic 语言基础,数组,数组的定义Dim 数组名(下界 To 上界)As 数据类型 例如:Dim Data(1 To 40)As Integer数

24、组元素的初值：数值型数组各元素为0，逻辑型数组各元素为False，字符串数组各元素为空串()。可同时声明几个数组，用逗号分隔，例如 Dim A%(10 To 100),B(800)As Long 定义数组时，下标的下界和上界值只能是常量或常量表达式，且数组的上界值不得小于下界值，也不得超出长整型范围。可以使用ReDim语句动态声明数组,Visual Basic 窗体及控件,常用的窗体属性Name窗体名称BackColor窗体的背景颜色BorderStyle窗体边框样式Caption标题栏显示的内容ControlBox决定窗体是否具有控制菜单Font输出字符的字体、大小、颜色等Icon决定窗体运

25、行时处于最小化时所显示的图标MaxButton 决定窗体标题栏中是否具有最大化按钮Moveable决定窗体是否能移动Picture设置在窗体上显示的图片WindowState决定运行时窗体是正常、最小化还是最大化Height窗体高度Width窗体的宽度Left窗体的最左端与包含它的容器的最左端之间的距离Top窗体的最上端与包含它的容器的最上端之间的距离,Visual Basic 窗体及控件,常用的窗体事件Click(单击)事件单击窗体的空白区DblClick(双击)事件双击窗体的空白区Load(装入)事件当窗体被装入工作区时Activate(活动)事件当窗体变为活动窗口时Unload(卸载)事

26、件当从内存中卸载窗体时QueryUnload 事件当从内存中卸载窗体之前时Resize事件当窗体首次显示在屏幕上或窗体大小改变KeyPress/KeyDown/KeyUp当敲击/按下/松开键盘的某个键时MouseDown/MouseUp/MouseOver当鼠标按下/松开/移动时,Visual Basic 窗体及控件,常用的窗体方法Load装载窗体到内存，但不显示窗体Show显示窗体 Hide隐藏窗体 Print在窗体上显示信息Cls清除窗体上的信息和用绘图方法生成的图形Move移动并改变窗体的位置和大小,Visual Basic 窗体及控件,控件的公共属性,Name属性,Name属性在代码中

27、用于标识窗体、控件或数据访问对象的名称。当建立一个新控件时，VB为其建立一个缺省名称，用户可更改缺省名，但必须以字母开始，包括字母、数字和下划线，不能包括标点符号或空格，最长40个字符。如果为同类型的控件取相同的Name属性，可以创建控件数组。,Visual Basic 窗体及控件,控件的公共属性,Caption属性,Caption属性用于确定对象的标题。对于窗体，该属性表示要显示在标题栏中的文本。当创建一个新的对象时，缺省标题与缺省的Name属性值相同。在设置Caption属性时，可在要指定为访问键的字符前加一个“&”符号。运行时，同时按下Alt键和带下划线的字符相当于单击相应的控件。,Vi

28、sual Basic 窗体及控件,控件的公共属性,Enabled属性,用来确定一个窗体或控件是否能够对用户产生的事件作出响应。若设置为True(缺省值)，则控件有效，允许控件对事件作出响应；若设置为False，则控件无效，阻止控件对事件作出响应。运行时，可以根据应用程序的当前状态，决定使某些控件无效或有效。控件的Enabled属性设置为False时，控件呈暗灰色显示。,Visual Basic 窗体及控件,控件的公共属性,Visible属性,用来确定一个窗体或控件是否可见。若将控件的Visible属性设置为True(缺值)，则控件在运行时可见；若将控件的Visible属性设置为False，则控

29、件在运行时不可见。对窗体用Show或Hide方法，分别和在代码中将窗体的Visible属性设置为True或False的果是一样的。,Visual Basic 窗体及控件,控件的公共属性,Left、Top、Height、Width属性,Left、Top、Height和Width属性用于设置或返回控件的位置或尺寸。其中Left属性表示控件内部的左边与它的容器的左边之间的距离，Top属性表示控件的内顶部和它的容器的顶边之间的距离，Height属性表示控件高度，Width属性表示控件宽度。,BackColor、ForeColor属性,BackColor属性用来返回或设置控件的背景颜色。ForeColo

30、r属性用来返回或设置在控件里显示图片和文本时的前景颜色。,Visual Basic 窗体及控件,控件的公共属性,FontName、FontSize、FontBold、FontItalic、FontStrikethru、FontUnderline属性,FontName：在控件中显示的文本所用的字体。FontSize：在控件中显示的文本所用的字体大小。FontBold：在控件中显示的文本是否为粗体样式。Fontltalic：在控件中显示的文本是否为斜体样式。FontStrikethru：在控件中显示的文本是否带有删除线。FontUndedine：在控件中显示的文本是否带有下划线。,Visual B

31、asic 窗体及控件,命令按钮CommandButton,Visual Basic 窗体及控件,命令按钮CommandButton,Visual Basic 窗体及控件,命令按钮CommandButton,Default属性：设置缺省的命令按钮。若设置为True，按回车键相当于单击该按钮。Cancel属性：设置缺省的取消按钮。若设置为True，按Esc键相当于单击该按钮。Index属性：设置按钮在控件数组中的编号。命令按钮的默认事件是Click(单击)，不支持双击事件。,Visual Basic 窗体及控件,标签Label,Caption属性：字符型。标签的标题。Alignment属性：数值型

32、。确定标签中标题的对齐方式，有以下设置值：0-LeftJustify 缺省值，标题从标签的左边开始显示。1-RightJustif 标题靠右显示。2-Center 标题居中显示。AutoSize属性：布尔型。设置为True时，可根据标题自动调整标签的大小；设置为False(缺省值)时，标签保持设计时定义的大小，太长的标题内容将不能显示出来。BackStyle属性：数值型。缺省值为1，标签不透明；设置为0时，标签透明。标签控件主要用来显示说明性文字，因此一般不对其进事件处理。,Visual Basic 窗体及控件,文本框TextBox,Text属性：字符串类型。返回或设置文本框中显示的内容。例如

33、：Text1.Text=“欢迎使用Visual Basic”MultiLine属性：布尔型。当MultiLine属性为True时，文本框可以输入或显示多行文本，且会在输入的内容超出文本框时自动换行。默认值为False。Locked属性：设置是否允许用户编辑文本框中的文本PasswordChar属性：用于口令输入。如果将PasswordChar属性设置为一个字符，如星号(*)，则在文本框中键入字符时，只显示星号，不显示键入的字符。ScrollBars属性：用于确定文本框是否带滚动条。,Visual Basic 窗体及控件,文本框TextBox,Change事件：当用户向文本框输入新的内容，或在程

34、序代码中对文本框的Text属性进行赋值从而改变了文本框的Text属性时，将触发Change事件。,GotFOCUS事件：当运行时用Tab键或用鼠标选择对象，或用SetFOCUS方法使光标落在对象上时，触发该事件，称之为“获得焦点”。该事件适用于窗体和大部分可接受键盘输入的控件。,LostFOCUS事件：当按下Tab键使光标离开当前文本框，或者用鼠标选择窗体的其他对象时触发该事件，称之为“失去焦点”。,Visual Basic 窗体及控件,文本框TextBox,例：同步显示 Private Sub Text1_Change()Text2.Text=Text1.TextEnd SubPrivate

35、 Sub Command1_Click()重新输入 Text1.Text=Text1.SetFocusEnd Sub,两个文本框：MultiLine设为TrueScrollBars设为2,Visual Basic 窗体及控件,例：彩票开奖器,两个控件数组：Command1和Label1控件数组是指同类控件(如本例中的四个标签控件)的Name属性值相同，使用下标引用控件数组中的各个控件,Label1控件数组,Command1控件数组,Private Sub Command1_Click(Index As Integer)Command1(Index).Enabled=False 使点击过的按钮不

36、可用 Randomize(Time)Label1(Index).Caption=Int(Rnd*10)对应标签显示随机数 Label1(Index).FontSize=24 Label1(Index).ForeColor=RGB(255,0,0)End Sub,Command1控件数组的Click事件带参数Index,Visual Basic 窗体及控件,例：彩票开奖器,Private Sub Command2_Click()点击ReDo按钮 For i=0 To 3 Command1(i).Enabled=True Label1(i).Caption=Next iEnd SubPrivate

37、 Sub Command3_Click()点击Exit按钮 EndEnd Sub,Visual Basic 窗体及控件,例：考生登录Private Sub Command1_Click()If Len(Txtcode.Text)8 Then Lblsm.Caption=准考证号必须输入,长度8位！Txtcode.SetFocusElseIf Len(Txtname.Text)=0 Then Lblsm.Caption=考生姓名必须输入 Txtname.SetFocus：Exit Sub ElseIf Len(TxtSeat.Text)=0 Then Lblsm.Caption=座位号必须输入

38、TxtSeat.SetFocus：Exit SubEnd IfLblsm.Caption=：MsgBox 正确 End Sub,Visual Basic 窗体及控件,例：考生登录Private Sub Txtcode_LostFocus()If Len(Txtcode.Text)8 Then Lblsm.Caption=准考证号必须输入,长度8位！Txtcode.SetFocus ElseIf Not IsNumeric(Txtcode.Text)Then Lblsm.Caption=准考证号必须是数字！Txtcode.SetFocus Else Lblsm.Caption=End IfEnd

39、 Sub,“准考证号”文本框失去焦点时的事件响应代码：检查是否输入8位数字。,Visual Basic 窗体及控件,例：考生登录Private Sub Txtname_LostFocus()If Len(Txtcode.Text)8 Or Not IsNumeric(Txtcode.Text)Then Txtcode.SetFocus ElseIf Len(Txtname.Text)=0 Then Lblsm.Caption=考生姓名必须输入！Txtname.SetFocus Else Lblsm.Caption=End IfEnd Sub,“姓名”文本框失去焦点时的事件响应代码：检查姓名是否

40、输入,Visual Basic 窗体及控件,例：考生登录Private Sub TxtSeat_LostFocus()If Len(Txtname.Text)=0 Then Txtname.SetFocus ElseIf Len(TxtSeat.Text)=0 Then Lblsm.Caption=座位号必须输入！TxtSeat.SetFocus ElseIf Not IsNumeric(TxtSeat.Text)Then Lblsm.Caption=座位号必须是数字 TxtSeat.SetFocus Else Lblsm.Caption=End IfEnd Sub,“座位号”文本框失去焦点时

41、的事件响应代码：检查座位号是否输入，是否是数字。,Visual Basic 窗体及控件,定时器Timer,Enabled 是否可用。为False时不发生Timer事件Interval 定时间隔单位为ms，取值范围为065535。,Private Sub Timer1_Timer()If Image1.Visible Then Image1.Visible=False Image2.Visible=True Else Image1.Visible=True Image2.Visible=False End IfEnd Sub,Visual Basic 窗体及控件,Value属性：表示选项按钮的状

42、态。Value属性为True时，表示选择了该按钮；Value属性为False时，表示没有选择该按钮。Alignment属性：决定选项按钮中的文本的对齐方式。Alignment属性为0-Left Justify时表示左对齐;1Right Justify的表示右对齐。Style属性：用于控制选项按钮的外观。Click事件：运行时单击选项按钮，使选项按钮从未选择状态变成选择状态时，或在代码中将一个选项按钮的Value属性从False改为True时，产生Click事件。,选项按钮OptionButton,Visual Basic 窗体及控件,Value属性：用来确定其状态即选择、取消选择或灰度状态。V

43、alue值为0表示取消选择状态；Value值为1表示选择状态；而Value值为2使复选框处于灰度状态Alignment属性：决定复选框中的文本的对齐方式。Alignment属性为0-Left Justify时表示左对齐;1Right Justify的表示右对齐。Style属性：用于控制复选框的外观。Click事件：运行时单击复选框时，或在代码中改变复选框的Value属性值时，产生Click事件。,复选框CheckBox,Visual Basic 窗体及控件,例：简易计算器 Private Sub Command1_Click()a=Val(Text1.Text):b=Val(Text2.Tex

44、t)If Option1 Then Text3.Text=a+b If Option2 Then Text3.Text=a-b If Option3 Then Text3.Text=a*b If Option4 Then Text3.Text=a/bEnd SubPrivate Sub Command2_Click()清除 Text1.Text=：Text2.Text=：Text3.Text=End Sub,Visual Basic 窗体及控件,例：简易计算器,Visual Basic 窗体及控件,List属性：返回或设置列表框的列部分的项目。Style属性：返回或设置列表框的显示样式。Tex

45、t属性：返回列表框中被选择的项目。ListIndex属性：返回或设置列表框中当前选择项目的索引，在设计时不可用。列表框的索引从0开始。ListCount属性：返回列表框中列表部分项目的总个数。Sorted属性：指定列表项目是否自动按字母表顺序排序。AddItem方法：向列表框中添加新的项目，使用格式为：.AddItem，RemoveItem方法：从列表框中移除项目，使用格式为：.RemoveItem Clear方法：清除列表框中的所有项目。,列表框ListBox,Visual Basic 窗体及控件,List属性：返回或设置组合框的列表部分的项目。Style属性：返回或设置组合框的显示样式。T

46、ext属性：返回返回或设置编辑域中的文本。ListIndex属性：返回或设置组合框下拉列表中当前选择项目的索引，在设计时不可用。ListCount属性：返回组合框中列表部分项目的总个数。Sorted属性：指定列表项目是否自动按字母表顺序排序。AddItem方法：向组合框中添加新的项目，使用格式为：.AddItem，RemoveItem方法：从组合框列表中移除项目，使用格式为：.RemoveItem Clear方法：清除列表框中的所有项目。,组合框ComboBox,Visual Basic 窗体及控件,例：对列表框中的项目进行添加、删除和统计,设计界面：姓名文本框：TextXM显示当前人数的标签

47、：Label2“添加”按钮：CommandAdd Default属性为True“删除”按钮：CommandDelete Enabled属性为False列表框：List1,Visual Basic 窗体及控件,例：对列表框中的项目进行添加、删除和统计,Private Sub CommandAdd_Click()单击“添加”按钮 If TextXM.Text Then List1.AddItem TextXM.Text Label2.Caption=List1.ListCount 显示当前人数 TextXM.Text=End If TextXM.SetFocusEnd Sub,Visual Bas

48、ic 窗体及控件,例：对列表框中的项目进行添加、删除和统计,Private Sub List1_Click()单击列表框中的项目 CommandDelete.Enabled=True 使“删除”按钮可用End SubPrivate Sub CommandDelete_Click()单击“删除”按钮 I=List1.ListIndex 获得当前所选项目的索引号 List1.RemoveItem I Label2.Caption=List1.ListCount CommandDelete.Enabled=False End Sub,Visual Basic 窗体及控件,例：显示、新增、删除、清空学

49、生记录,设计界面：学号文本框：Txt_id姓名文本框：Txt_xm班级文本框：Txt_bj学生记录列表框：Lst_data“新增”按钮：Cmd_add Default属性为True“删除”按钮：Cmd_dele“清空”按钮：Cmd_clear,Visual Basic 窗体及控件,例：显示、新增、删除、清空学生记录,“通用”段声明自定义数据类型及模块级变量 Private Type student id As String*6 xm As String bj As String End Type Dim stud(50)As student Dim num As Integer Private

50、 Sub Form_Load()num=0 统计记录数 Cmd_dele.Enabled=False End Sub,Visual Basic 窗体及控件,例：显示、新增、删除、清空学生记录,Private Sub Cmd_add_Click()单击“新增”按钮 Lst_data.AddItem Txt_id+Space(5)+Txt_xm+Space(5)+Txt_bj num=num+1 定义类型的变量，通过变量名.成员名访问变量中的成员 With stud(num).id=Txt_id.Text.xm=Txt_xm.Text.bj=Txt_bj.Text End With If num=