《Visual Basic 程序设计 清华大学出版社 第二章课件.ppt》由会员分享，可在线阅读，更多相关《Visual Basic 程序设计 清华大学出版社 第二章课件.ppt（38页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、第二章 类与对象 TIPSOnly those who have the patience to do simple things perfectly ever acquire the skill to do difficult things easily。只有有耐心圆满完成简单工作的人，才能够轻而易举地完成困难的事。2.1.1对象和类的概念对象是代码和数据的集合，类是同类对象集合的抽象。简单来说：简单来说：类对象属性是用于描述对象特征的参数。如控件的名称如控件的名称（Name）、控件的高度（）、控件的高度（Height）、字体（）、字体（Font）、背景颜色）、背景颜色（BackColor）
2、等。）等。对象的属性设置可通过两种方法进行：对象的属性设置可通过两种方法进行：1）在设计阶段选择某个对象，利用属性窗口直接设置所，利用属性窗口直接设置所选对象属性。选对象属性。2）在代码窗口编辑程序代码时，通过给属性赋值来设置，其格式为：，其格式为：对象名.属性名属性值例如：例如：text1.text=“上海”2.1.2属性属性2.1.2属性属性VB为每类控件规定了一个属性，引用这个属性时可，引用这个属性时可不必给出属性名，通常把这个属性称为不必给出属性名，通常把这个属性称为默认属性例如：Text1=“hello”等价于Text1.text=“hello”控件控件默认属性默认属性控件控件默认属
3、性默认属性控件控件默认属性默认属性文本框文本框Text单选按钮单选按钮Value图形框图形框图图像框像框Picture命令按钮命令按钮Default标签标签Caption复选框复选框Value出错指数：出错指数：方法是附属于对象的行为和动作，其方法是附属于对象的行为和动作，其实际上是对象本身内含的一些特殊的函数或过程。对象方法的调用格式是：对象方法的调用格式是：对象名.方法名 参数表 例如：Form1.Print“程序设计基础”注意：若当前窗体(活动窗体)就是Form1，可简化为Print“程序设计基础”2.1.3方法方法事件是由事件是由VB预先设置的、能被对象的、能被对象识别和响应的动作。当
4、的动作。当在对象上在对象上触发某个事件后，就执行与事件相关的事件过程。后，就执行与事件相关的事件过程。事件过程的形式是：事件过程的形式是：Sub 对象名_事件过程名(参数列表)事件过程代码End Sub例如：SubText1_Click()Text2.Text=Text1.TextEndSub2.1.4事件事件（1 1）启动应用程序，窗体、控件载入）启动应用程序，窗体、控件载入（2 2）用户界面上的对象等待事件发生，事件可由用户操）用户界面上的对象等待事件发生，事件可由用户操作发生，也可由系统引发。作发生，也可由系统引发。（3 3）如为相应的对象和事件设计了事件过程代码，则就）如为相应的对象和
5、事件设计了事件过程代码，则就执行，实现相应功能。执行，实现相应功能。（4 4）用户界面上的对象等待下一事件发生。）用户界面上的对象等待下一事件发生。事件驱动应用程序典型的工作方式是：VB中控件的分中控件的分类标准控件（内部控件（内部控件)出现在工具箱上的出现在工具箱上的20个控件。ActiveX控件扩展名为扩展名为.OCX或或.DLL的独立文件，通过的独立文件，通过“工程”-“部件”-“控件”添加到工具箱添加到工具箱可插入对象通过通过“工程”-“部件”-“可插入对象”添加添加到工具箱到工具箱VB控件介绍本节将介绍几种本节将介绍几种VB的常用控件；每个控件都将的常用控件；每个控件都将从属性、事件
6、、方法三个层面进行介绍。三个层面进行介绍。VB控件常用属性有这样几种属性几乎每个控件都具有：有这样几种属性几乎每个控件都具有：nName-定义对象名称。只能在设计状态下设置。nCaption-定义控件标题。nEnabled设置控件激活或禁止。nVisible-设置可见性。True可见；False不可见nHeight、Width、Left、Top定义控件大小和位置nFont字形设置nAligment-内容的对齐方式。0-左对齐；1-右对齐；2-居中VB控件常用方法有这样几种方法很常见：有这样几种方法很常见：nClick单击鼠标左键的事件单击鼠标左键的事件nDblClick双击鼠标左键的事件双击鼠
7、标左键的事件2.2窗体 窗体类似一块窗体类似一块“画布画布”，是，是所有控件的容器，各种控件，各种控件可以建立在窗体内，一个窗体对应工程资源管理器中的一个可以建立在窗体内，一个窗体对应工程资源管理器中的一个窗体模块。窗体模块。nBorderStyle-设置窗体边框。共设置窗体边框。共6种。种。nMaxButton、MinButton-True时有最大、最小按钮；False时没有。只能在设计状态下设置。nControlBox-True时有窗口控制框；False时没有。nIcon-窗体最小化图标。窗体最小化图标。ControlBox为True时才可设置。nBackColor-背景色。背景色。可用十
8、六进制数或符号常量表示颜色。nWindowsState-窗体运行时状态。窗体运行时状态。0-正常，1-最小，2-最大nPicture设置显示图形。设置显示图形。nAutoRedraw-屏幕图像重画。屏幕图像重画。当使用Print方法时应为True。出错指数：出错指数：2.2.1窗体属性窗体属性 2.2.2事件 Load窗体装入工作区的事件窗体装入工作区的事件Unload窗体卸载时触发的事件窗体卸载时触发的事件Activate成活动窗体时的事件成活动窗体时的事件Deactivate其它窗口变成活动窗口事件其它窗口变成活动窗口事件Paint移动放大或覆盖时事件移动放大或覆盖时事件2.2.3方法 窗
9、体常用的方法有窗体常用的方法有Cls（清除）、（清除）、Move（移动）、（移动）、Print（显示（显示或打印）等。或打印）等。Cls方法：清除运行时窗体上显示的文本或图形。但不能清除：清除运行时窗体上显示的文本或图形。但不能清除设计状态下设置的内容。设计状态下设置的内容。窗体名窗体名.Cls例如：例如：Form1.ClsMove方法：用来在屏幕上移动窗体。调用的格式是：用来在屏幕上移动窗体。调用的格式是：窗体名窗体名.MoveLeft,Top,Width,Height例如：例如：Form.Move50,50,10000,8000Print方法：用来在窗体上显示或打印。：用来在窗体上显示或打
10、印。窗体名窗体名.Print例如：例如：Form1.Print“hello”2.3.1文本框属性uText-设置文本框中显示的内容。设置文本框中显示的内容。文本框没有Caption属性uMaxLength-设置文本框中内容的最大长度设置文本框中内容的最大长度.值为0表示最大长度受系统限制uMultiLine-内容超出文本框宽度时是否可以多行显示。内容超出文本框宽度时是否可以多行显示。True-可以；False-不可以。接上页uScrollBars-文本是否具有水平和垂直滚动条。文本是否具有水平和垂直滚动条。0-没有；没有；1-水平；水平；2-垂直；垂直；3-水平和垂直。水平和垂直。uLocke
11、d-设置文本框的内容是否可以编辑。设置文本框的内容是否可以编辑。True-不可以；False-可以。uPasswordChar设置掩盖字符。设置掩盖字符。若设为*，则任何输入的字符都显示为*。属性值只能是一个字符。uSelStart、SelLength、SelText-只能在代码中设置使用。分别是只能在代码中设置使用。分别是设置所选文本的起始位置或光标插入点的位置；所取字符个数；选设置所选文本的起始位置或光标插入点的位置；所取字符个数；选定的内容。定的内容。例如：Text1.SelStart=1Text1.SelLength=3Form1.PrintText1.SelText2.3.2文本框事
12、件与方法 Change事件事件-文本框的文本框的Text值改变时会触发该事件。值改变时会触发该事件。KeyPress事件事件按下并释放键盘上的键时触发，并有按下并释放键盘上的键时触发，并有与所按键相对应的整数返回值存放于KeyAscii参数。回车键返回的。回车键返回的KeyAscii参数值为参数值为13。privatesubText1_KeyPress(KeyAsciiAsInteger)ifKeyAscii=13then.EndifEndSubLostFocus事件事件-文本框失去焦点时触发文本框失去焦点时触发SetFocus方法方法将焦点设为该文本框，用法为：将焦点设为该文本框，用法为：对
13、象对象.SetFocus例如：例如：Text1.SetFocus2.4命令按钮 2.4.1属性Style-设置按钮风格。设置按钮风格。0-标准风格；标准风格；1-图形风格。图形风格。Default-设置是否为缺省命令按钮。设置是否为缺省命令按钮。窗体中只能有一个命令按钮可以为缺省命令按钮。当某个命令按钮的Default设置为True时，窗体中其它的命令按钮自动设置为False。当命令按钮的Default设置为True而且其父窗体是活动的，用户可以按ENTER键选择该按钮。Cancel设置默认的设置默认的“取消取消”按钮。按钮。True-是；是；False-不是不是ToolTipText-设置光
14、标停留在按钮上时的文字提示设置光标停留在按钮上时的文字提示Picture-设置按钮上显示的图形。设置按钮上显示的图形。Style的属性值 应设为1。2.4.2事件与方法 命令按钮常用的命令按钮常用的事件有有Click、MouseDown和和MouseUp。这三个事件有一定关联，单击命令按钮时，三个事件发生的这三个事件有一定关联，单击命令按钮时，三个事件发生的先后顺序是：先后顺序是：MouseDownClickMouseUp。命令按钮常用的命令按钮常用的方法有有Move、SetFocus等。等。2.52.5标签 2.5.1属性属性BorderStyle-设置标签的边框。设置标签的边框。BackS
15、tyle-标签背景是否透明。标签背景是否透明。0-透明；1-不透明。AutoSize-是否随内容自动调整标签大小。是否随内容自动调整标签大小。True-是；False-否。WordWrap是否可多行显示。是否可多行显示。True-是；False-否。AutoSize应为真。BackColor、ForeColor-设置标签的背景色、前景色。设置标签的背景色、前景色。2.5.2事件与方法 标签的事件有标签的事件有Click、DblClick、Change等。等。标签主要是用于文本显示，一般不需要设计事件代码。标签的方法有标签的方法有Move、Refresh等等。(真题真题)为了使文本框同时具有水平
16、和垂直滚动条，应先把为了使文本框同时具有水平和垂直滚动条，应先把MultiLine属性设置为属性设置为True，然后再把然后再把ScrollBars属性设置属性设置为为()A)0B)1C)2D)3D例例题2.1在窗体上建立一个命令按钮在窗体上建立一个命令按钮Command1和和Command2，先在属性，先在属性窗口设置窗体和命令按钮的窗口设置窗体和命令按钮的Caption属性，再进一步用代码分别设属性，再进一步用代码分别设置窗体和命令按钮的有关属性。置窗体和命令按钮的有关属性。注意：将将Form1.MousePointer=k改为改为Form1.MousePointer=val(k)修改后选
17、弹出窗口选择修改后选弹出窗口选择“取消取消”键也不会出错键也不会出错Option ExplicitDim k 定义变量定义变量kPrivate Sub Command2_Click()k=InputBox(输入鼠标指针形状参数输入鼠标指针形状参数0-15,鼠标指针形状参数鼠标指针形状参数,0)Form1.MousePointer=val(k)设置窗体区域鼠标指针形状设置窗体区域鼠标指针形状End SubPrivate Sub Command1_Click()改变命令按钮属性改变命令按钮属性 Command1.FontName=黑体黑体 Command1.FontSize=10 10磅磅 Com
18、mand1.FontBold=True 加粗加粗 Command1.FontItalic=True 斜体斜体 Command1.FontUnderline=True 带下划线带下划线 Command1.Enabled=False 失效，呈暗淡色失效，呈暗淡色 Command2.FontName=隶书隶书 Command2.Enabled=TrueEnd Sub(真题)在设计阶段，当双击窗体上的某个控件时，所打开的窗口是()A)工程资源管理器窗口B)工具箱窗口C)代码窗口D)属性窗口C(真题)要使一个标签透明且具有边框，则应()A)将其BackStyle属性设置为0，BorderStyle属性设
19、置为0B)将其BackStyle属性设置为0，BorderStyle属性设置为1C)将其BackStyle属性设置为1，BorderStyle属性设置为0D)将其BackStyle属性设置为1，BorderStyle属性设置为1B B(真题)我们可以在设计时(属性窗口中)和运行时(程序代码中)设置属性的属性值，以下关于属性设置的说法正确的是()A)在属性窗口中可以设置所有属性的属性值B)在程序代码中可以设置所有属性的属性值C)属性的名称由VB事先定义，用户不能改变D)所有对象的属性都是可见的C(真题真题)以下说法中正确是的以下说法中正确是的()A)当焦点在某个控件上时，按下一个字母键当焦点在某
20、个控件上时，按下一个字母键,就会执行该控件的就会执行该控件的keypress事件过程事件过程B)因为窗体不接受焦点因为窗体不接受焦点,所以窗体不存在自己的所以窗体不存在自己的keypress事件过事件过程程C)若按下的键相同若按下的键相同,keypress事件过程中的事件过程中的keyascii参数与参数与keydown事件过程中的事件过程中的keycode参数的值也相同参数的值也相同D）在）在keypress事件过程中，事件过程中，keyascii参数可以省略参数可以省略A A2.62.6创建建应用程序用程序 2.6.1程序的组成程序的组成 在在VisualBasic中，一个应用程序就是一个
21、工程，以中，一个应用程序就是一个工程，以.vbp工工程文件的形式保存。一个工程应包含一个（或多个）程文件的形式保存。一个工程应包含一个（或多个）.frm窗窗体文件、自动产生的体文件、自动产生的.frx二进制文件（如属性窗口装入的图二进制文件（如属性窗口装入的图片等），还可有片等），还可有.bas标准模块文件及标准模块文件及.cls类模块文件。类模块文件。2.6.2程序的保存程序的保存保存一个工程时不要遗漏文件，一般先保存保存一个工程时不要遗漏文件，一般先保存frm文件（若有文件（若有多个多个frm或有或有bas、cls，应分别对其加以保存），最后，应分别对其加以保存），最后保存工程文件。保存工
22、程文件。注意：注意：要区分窗体名称和要区分窗体名称和窗体文件名，窗体名称是在程序中使窗体文件名，窗体名称是在程序中使用的窗体对象名；窗体文件名是存放在磁盘上的文件名。用的窗体对象名；窗体文件名是存放在磁盘上的文件名。例如在程序中叫做例如在程序中叫做Form.frm的窗体可以的窗体可以Main.frm名名称保存。称保存。出错指数：出错指数：例题例题2.2设计一个应用程序，实现人民币和欧元双向兑换。设计一个应用程序，实现人民币和欧元双向兑换。Option ExplicitPrivate Sub Command1_Click()清空文本框清空文本框 Text1=Text2=Text3=End Sub
23、Private Sub Command2_Click()人民币换成欧元人民币换成欧元 Text3=Val(Text1)/(Text2)Val为文本转换成数值函数为文本转换成数值函数End SubPrivate Sub Command3_Click()欧元换成人民币欧元换成人民币 Text1=Val(Text3)*Val(Text2)End SubPrivate Sub Command4_Click()结束程序结束程序 EndEnd Sub2.6.3常见错误类型与调试常见错误类型与调试 语法错误语法错误：系统显示编译错误。系统显示编译错误。运行时错误运行时错误：单击单击“调试调试”按钮，修改错误
24、。按钮，修改错误。逻辑错误逻辑错误：程序正常运行但没有得到预期结果。程序正常运行但没有得到预期结果。调试方法：调试方法：设置断点设置断点利用利用Debug.Print在立即窗口中显示相关变量的值在立即窗口中显示相关变量的值2.6.4创建应用程序的过程创建应用程序的过程 建立用户界面的控件对象。建立用户界面的控件对象。控件属性的设置。控件属性的设置。控件事件过程及编程。控件事件过程及编程。保存应用程序。保存应用程序。程序调试和运行。程序调试和运行。2.72.7错误与与难点点1.标点符号错误标点符号错误：VB只允许使用西文标点。只允许使用西文标点。2.字母和数字相似字母和数字相似：字符：字符l和数
25、字和数字1；字符；字符o和数字和数字03.对象名称输入错误对象名称输入错误：系统显示：系统显示“要求对象要求对象”4.Name和和Caption混淆混淆5.属性名、方法名输入错误属性名、方法名输入错误:系统显示系统显示“方法或数据成员方法或数据成员”未找到未找到6.变量名输入错误变量名输入错误7.语句书写位置错误语句书写位置错误：除了：除了Dim和和Option，其他语句都应放在事件，其他语句都应放在事件过程中。过程中。8.代码无法更改代码无法更改：只有在设计或者中断模式时代码才能修改：只有在设计或者中断模式时代码才能修改9.打开工程时找不到对应的文件打开工程时找不到对应的文件：新建、修改或添加：新建、修改或添加出错指数：出错指数：2.82.8案例分析案例分析-成成绩统计程序程序