第2章对象及其操作课件

1.3 1.3 对象及其操作对象及其操作 本节的学习要点本节的学习要点u 掌握面向对象程序设计的基本概念掌握面向对象程序设计的基本概念u 掌握窗体的三要素掌握窗体的三要素u 了解标准控件及其命名方法了解标准控件及其命名方法u 掌握控件的画法和基本操作掌握控件的画法和基本操作对象对象面向对象技术是基于对象概念的，一个面向对象的程序的面向对象技术是基于对象概念的，一个面向对象的程序的每一个成分都是对象每一个成分都是对象。程序是通过。程序是通过建立对象及对象之间的建立对象及对象之间的通信通信来执行的。来执行的。对象是一个数据和代码的集合对象是一个数据和代码的集合。如。如VBVB中窗体就是一个对象，中窗体就是一个对象，窗体中任何控件也分别是一个对象。每个对象都有窗体中任何控件也分别是一个对象。每个对象都有属性属性、事件事件和和方法方法。1.3.1 1.3.1 面向对象程序设计的基本概念面向对象程序设计的基本概念小明小明窗窗 体体文本框文本框按按 钮钮对象的属性对象的属性对象都有自已的对象都有自已的属性属性。它们是用来。它们是用来描述描述和和反映对象特征反映对象特征的参数的参数。例如：窗体名称。例如：窗体名称(Name)(Name)、标题、标题(Caption)(Caption)、颜色、颜色(Color)(Color)、字体、字体(FontName)(FontName)等都是属性。等都是属性。对象属性设置的方法：对象属性设置的方法：方法一方法一：在设计模式下，通过在设计模式下，通过属性窗口属性窗口直接设置对象直接设置对象的属性。的属性。方法二方法二：在程序的代码中通过在程序的代码中通过赋值赋值实现，其格式为：实现，其格式为：对象对象.属性属性=属性值属性值 Form1.Caption=Form1.Caption=显示显示 1.3.1 1.3.1 面向对象程序设计的基本概念面向对象程序设计的基本概念 必须必须先先选中对象，选中对象，后后设置属性。在属性窗口中设置属性。在属性窗口中列出的大多属性值都可采用系统缺省值。列出的大多属性值都可采用系统缺省值。属性设置的两种方法适用于大部分属性，但有属性设置的两种方法适用于大部分属性，但有些属性只能用程序代码或属性窗口设置。通常把些属性只能用程序代码或属性窗口设置。通常把只能通过属性窗口设置的属性称为只能通过属性窗口设置的属性称为“只读属性只读属性”。对象的事件对象的事件VBVB中，事件是中，事件是预先定义好预先定义好的的能够被对象所识别能够被对象所识别的动作，是的动作，是导致执行某导致执行某过程的通知过程的通知。如按下一个键、单击一下鼠标、选择一个菜单等都是一。如按下一个键、单击一下鼠标、选择一个菜单等都是一个事件。个事件。事件类型大致可以分为：事件类型大致可以分为：键盘事件键盘事件、鼠标事件鼠标事件和和程序事件程序事件。键盘事件键盘事件：用户按下键盘上的按钮后产生的事件。：用户按下键盘上的按钮后产生的事件。鼠标事件鼠标事件：用户移动、单击、双击和拖动鼠标时所产生的：用户移动、单击、双击和拖动鼠标时所产生的事件。事件。程序事件程序事件：指：指VBVB程序在装入、打开和关闭一个窗体时所产程序在装入、打开和关闭一个窗体时所产生的事件。生的事件。事件过程事件过程:是指附在该是指附在该 对象上的程序代码，是事件触发后处理的程对象上的程序代码，是事件触发后处理的程序。编写事件过程的形式如下：序。编写事件过程的形式如下：Private Sub Private Sub 对象名对象名_ _事件名事件名()()语句序列语句序列End SubEnd Sub 1.3.1 1.3.1 面向对象程序设计的基本概念面向对象程序设计的基本概念例如：例如：Private Sub cmdOk_Click()cmdOk.FontSize=20 设置命令按钮的字体大小为设置命令按钮的字体大小为20End Sub对象的方法对象的方法对象的方法是对象的行为方式，即对象要执行的操作。对象的方法是对象的行为方式，即对象要执行的操作。方法是面向对象的，所以对象的方法调用一般要指明方法是面向对象的，所以对象的方法调用一般要指明对象。对象。对象方法调用形式：对象方法调用形式：对象名对象名.方法方法 参数列表参数列表 如省略对象，表示当前对象，一般指窗体。如省略对象，表示当前对象，一般指窗体。1.3.1 1.3.1 面向对象程序设计的基本概念面向对象程序设计的基本概念 对象是一个数据和代码的集合。其中数据就对象是一个数据和代码的集合。其中数据就是对象的属性，代码就是对象的方法。是对象的属性，代码就是对象的方法。对象的三要素小明小明小兰小兰属属 性性姓名：姓名：小明小明年龄：年龄：20岁岁身高：身高：1.6m姓名：姓名：小兰小兰年龄：年龄：19岁岁身高：身高：1.7m事事 件件小明喊小兰，对小兰来说，小明喊小兰，对小兰来说，“喊喊”就是一个事件。就是一个事件。方方 法法 小兰向小明走来，小兰向小明走来，“走走”就是小兰一个方法。就是小兰一个方法。窗体的结构与窗体的结构与WindowsWindows下的窗口十分类似，在程序运下的窗口十分类似，在程序运行前，即设计阶段，称为窗体；程序运行后也可以行前，即设计阶段，称为窗体；程序运行后也可以称为窗口。称为窗口。1.31.3.2 .2 窗体的窗体的结结构构系统菜单系统菜单窗体窗体最小化按钮最小化按钮最大化按钮最大化按钮关闭按钮关闭按钮标题栏标题栏 窗体名窗体名.Caption=.Caption=字符串字符串窗体的属性窗体的属性NameName：设置窗体的名称。：设置窗体的名称。所有对象都具有该属性；所有对象都具有该属性；在同一范围内不允许该属性值相同；在同一范围内不允许该属性值相同；该属性只能通过属性窗口设置，在代码窗口中不能改变该属性只能通过属性窗口设置，在代码窗口中不能改变。CaptionCaption：设置窗体标题栏上显示的内容。：设置窗体标题栏上显示的内容。在代码窗口修改该属性值的语法格式为：在代码窗口修改该属性值的语法格式为：注意注意CaptionCaption属性与属性与NameName属性的区别！属性的区别！1.31.3.2 .2 窗体的三要素窗体的三要素NameCaptionCommand1.Caption=确定确定对象名对象名.属性名属性名=属性值属性值Sub 对象名对象名_事件名事件名()对象名对象名.方法方法(参数参数)v窗体的属性窗体的属性BackColorBackColor、ForeColorForeColor：返回或设置窗体的背景颜色和前景颜色。属性值是一个16进制的常数；通常在编写代码时，常用Qbcolor或RGB函数为其设置颜色。1.31.3.2 .2 窗体的三要素窗体的三要素Form1.BackColor=Form1.BackColor=&H&HFF0000FF0000 低字节到高字节依次表示红、绿和蓝的值低字节到高字节依次表示红、绿和蓝的值Form1.BackColor=RGB(255,0,0)Form1.BackColor=RGB(255,0,0)Form1.ForeColor=vbRedForm1.ForeColor=vbRedRGB颜色函数讲解颜色函数讲解 蓝蓝红红绿绿256等份等份256等份等份256等份等份Form1.BackColor=RGB(255,13,222)v窗体的属性窗体的属性BorderStyle BorderStyle：设置窗体的边框样式。语法格式：1.31.3.2 .2 窗体的三要素窗体的三要素窗体名窗体名.BorderStyle=0|1|2|3|4|5.BorderStyle=0|1|2|3|4|5属性值说 明0-None窗体无边框1-Fixed Single含控制菜单、标题栏、最大、最小化按钮的固定单边框2-Sizable默认值，可调整的双线边框。3-Fixed Double含控制菜单、标题栏，无最大、最小化按钮、窗体大小固定的双线边框。4-Fixed Tool Window只有关闭按钮、缩小的字体显示标题栏、窗体大小固定的工具窗口。5-Sizable Tool Window只有关闭按钮，并用缩小的字体显示标题栏、窗体大小可变的工具窗口。注意：注意：该属性只能在属性窗口中设置该属性只能在属性窗口中设置v窗体的属性窗体的属性Enabled Enabled：设置窗体是否被响应。语法格式：当该属性值为True(默认值)时表示窗体有效，能响应用户或系统事件；为False时表示窗体无效，不能响应，并且窗体上的所以控件都无效。1.31.3.2 .2 窗体的三要素窗体的三要素 窗体名窗体名.Enabled=True|False Enabled=True|Falsev窗体的属性窗体的属性FontFont系列字体属性系列字体属性：设置窗体上文本的字体、字号、字形等样式。1.31.3.2 .2 窗体的三要素窗体的三要素 属 性类 型 功 能FontName字符型决定对象上正文的字体(缺省为宋体)FontSize整型决定对象上正文的字体大小FontBold逻辑型决定对象上正文是否是粗体FontItalic逻辑型决定对象上正文是否是斜体FontUnderline逻辑型决定对象上正文是否带下划线FontStrikeThru 逻辑型决定对象上正文是否加一删除线v窗体的事件窗体的事件 不同的对象对应不同事件的发生，不同的对象对应不同事件的发生，VBVB中窗体有很中窗体有很多事件。在一个窗体的代码窗口中列出了所有窗体多事件。在一个窗体的代码窗口中列出了所有窗体事件。事件。1.31.3.2 .2 窗体的三要素窗体的三要素在此选中对象在此选中对象列出选中对象事件列出选中对象事件v窗体的事件窗体的事件 ActivateActivateActivateActivate：当窗体变为激活的当前窗口时，引发本事件。ClickClick：当用户单击窗体时触发本事件。DblClickDblClick：当用户双击窗体时触发本事件。DeactivateDeactivate：当窗体失去激活状态，即另一个窗体成为当前窗口时，引发本事件。LoadLoad：当窗体被加载到内存时触发本事件。Load事件往往用于在启动程序时对属性和变量进行初始化。UnloadUnload：当关闭窗体时，触发卸载事件，将窗体从内存中卸载。注意：注意：Load事件发生时窗体是不活动的，而事件发生时窗体是不活动的，而Activate事件发事件发生时窗体是活动的，生时窗体是活动的，Print方法不能在不活动窗体上使用，方法不能在不活动窗体上使用，因此因此Print不能用于不能用于Load事件中。事件中。1.31.3.2 .2 窗体的三要素窗体的三要素 “双击双击”实际上触发两个事件，第一次按鼠实际上触发两个事件，第一次按鼠标按钮时产生标按钮时产生ClickClick单击事件，第二次按鼠标单击事件，第二次按鼠标按钮时产生按钮时产生DblClickDblClick事件事件。Private Sub Form_Click()Private Sub Form_Click()Form1.BackColor=vbRedForm1.BackColor=vbRedEnd SubEnd SubPrivate Sub Form_Click()Private Sub Form_Click()Form1.BackColor=vbRedForm1.BackColor=vbRedEnd SubEnd Sub 当触发了当触发了Form对象的对象的Click事件时，该事件时，该事件过程事件过程Form_Click就会被执行。就会被执行。窗体名称为窗体名称为Form1，为何在其事件过程中，为何在其事件过程中用用Form。？Print在Load和Activate事件中的区别。Private Sub Form_Load()Print*End SubPrivate Sub Form_Activate()Print*End Sub例例1 1例2：程序运行时，用户在窗体上输入字符时，窗体上显示输入结果。窗体窗体事件示例事件示例分析：添加什么事件过程在窗体上显示输入结果用什么代码当用户输入a时触发了Form_KeyPress事件过程，该过程的参数KeyAscii值是多少？通过什么方法在窗体上显示出a？代码：Form_KeyPress97Private Sub Form_KeyPress(KeyAscii As Integer)Print Chr(KeyAscii)End SubForm1.printchr(x)函数：将函数：将ASCII码转换为对应的字符码转换为对应的字符;v窗体的方法在代码窗口中，输入“form1.”后，会显示该窗体对象的所有属性和方法。1.31.3.2 .2 窗体的三要素窗体的三要素对象的属性和方法对象的属性和方法属性属性方法方法v窗体的方法Show和Hide：分别用于显示和隐藏窗体。调用格式：窗体名.Show Style 窗体名.Hide 窗体名缺省，表示显示或隐藏当前窗体；Show方法的Style参数取值：vbModel(模式)：不允许用户同时与其他窗体交互。vbModeless(无模式)：允许用户同时与其他窗体交互。1.31.3.2 .2 窗体的三要素窗体的三要素v窗体的方法Print：用于将文本输出到窗体的一行上。调用格式：对象名.Print 输出项列表;|,对象除了窗体外，还可以是图片框(PictureBox)、Debug或打印机(Printer)，若缺省对象名，表示将文本输出到当前窗体上。输出项列表：是由0个、1个或多个待输出的数值表达式或字符串表达式构成；当输出项是由多个项构成，则中间必须用逗号或分号分隔；若Print后什么都不跟，则表示输出一个空行。1.31.3.2 .2 窗体的三要素窗体的三要素如下代码：如下代码：Private Sub Form_Click()Print 1,-2 Print Print We,studyEnd Sub标准格式标准格式v窗体的方法Print：用于将文本输出到窗体的一行上。调用格式：对象名.Print 输出项列表;|,对象除了窗体外，还可以是图片框(PictureBox)、Debug或打印机(Printer)，若缺省对象名，表示将文本输出到当前窗体上。输出项列表：是由0个、1个或多个待输出的数值表达式或字符串表达式构成；当输出项是由多个项构成，则中间必须用逗号或分号分隔；若Print后什么都不跟，则表示输出一个空行。1.31.3.2 .2 窗体的三要素窗体的三要素如下代码：如下代码：Private Sub Form_Click()Print 1;-2 Print Print We;studyEnd Sub紧缩格式紧缩格式注意：标准格式即参数以“,”分割，下一个输出项将与上一个输出项间隔14列；紧缩格式即参数以“;”分割，下一个输出项将以紧凑格式，紧跟着上一个输出项输出。Print方法输出的位置是由窗体的绘图坐标CurrentX和CurrentY属性决定的，默认为对象的左上角(0,0)。该方法可以结合定位输出函数一起使用：Spc(n)：在下一个输出项前插入n个空格；Tab(n)：输出定位在绝对n列号上。代码：1197513111591317Private Sub Form_Click()End Sub Print Tab(11);A Print Tab(9);B;Spc(3);B Print Tab(7);C;Spc(3);C;Spc(3);C Print Tab(5);D;Spc(3);D;Spc(3);D;Spc(3);D10864333333窗体的方法Cls方法：用于清除运行时窗体上或图形上的用Print方法生成的文本和图形。语法格式：对象名.Cls对象名可以是窗体或图片框。当对象名缺省时，表示清除当前窗体上的内容。例如：Form1.ClsCls Picture1.Cls1.31.3.2 .2 窗体的三要素窗体的三要素窗体的方法Move(移动)方法：用于移动对象，并且可以在移动时变化对象的大小。语法格式：对象名.Move Left,Top,Width,Height其中，对象名可以是窗体和除时钟、菜单以外的所有控件。窗体名缺省(即未选对象名)时，默认为当前窗体。Move方法中的Left、Top、Width、Height4个参数，单位为Twip(特维)。1.31.3.2 .2 窗体的三要素窗体的三要素注意注意！P9 例例3 3：编写一个程序，实现功能：每单击窗体：编写一个程序，实现功能：每单击窗体一次，窗体向右移动。一次，窗体向右移动。1.31.3.2 .2 窗体的三要素窗体的三要素思路：窗体向右移动是一个动作，应该执行什么方法；该动作是被什么对象的什么事件触发的？代码：Private Sub Form_Click()Form1.Move Left+1500 End Submove窗体窗体clickForm1.Move Left+1500,top,Width+1500？每次移动并变大如何实现每次移动并变大如何实现编程实现：单击和双击窗体时分别改变标签和窗体标题栏的文字，单击单选按钮改变标签文字。界面设计例例4 4：窗体的简单应用：窗体的简单应用对象属性属性值FormNameForm1Caption学习之道LabelNameLabel1Caption空白BackColor&H00FFC0C0&OptionButtonNameOption1Caption上课OptionButtonNameOption2Caption复习属性设置属性设置编写代码Private Sub Form_Click()窗体的单击事件过程 Label1.Caption=成功通过考试！End SubPrivate Sub Form_DblClick()窗体的双击事件过程 Form1.Caption=欢迎你学习VB！End SubPrivate Sub Option1_Click()单选按钮的单击事件过程 Label1.Caption=听明白 勤思考 记下来！End SubPrivate Sub Option2_Click()单选按钮的单击事件过程 Label1.Caption=多上机 善提问 多总结！End Sub1.31.3.3.3 VB VB可视化设计基本步骤可视化设计基本步骤创建创建 VBVB应用程序有四个主要步骤：应用程序有四个主要步骤：创建一个工程创建一个工程界面设计界面设计设置属性设置属性编写代码编写代码调试运行调试运行 保存并退出保存并退出一个简单程序一个简单程序功能：当单击功能：当单击“显示显示”按钮时，文本框中出现按钮时，文本框中出现“扬州职业扬州职业大学大学”；单击；单击“清除清除”按钮时，文本框内的文字消失；单按钮时，文本框内的文字消失；单击击“退出退出”按钮，对话框关闭。按钮，对话框关闭。1.3.3 VB1.3.3 VB可视化设计基本步骤可视化设计基本步骤创建一个工程创建一个工程单击单击“开始开始”-“-“程序程序”-“VB6.0”-“VB6.0”就可以启动就可以启动VB6.0VB6.0程序。程序。在出现的在出现的“新建工程新建工程”对话框中选择对话框中选择“标准标准EXE”EXE”，点，点“打开打开”按钮。按钮。新创建的工程包含两个主要的文件，一个是工程文件新创建的工程包含两个主要的文件，一个是工程文件(.vbp)(.vbp)，一个是窗体文件，一个是窗体文件(.frm)(.frm)。双击工程文件就可以。双击工程文件就可以打开该工程。打开该工程。1.3.3 VB1.3.3 VB可视化设计基本步骤可视化设计基本步骤第一步：界面设计第一步：界面设计在这个程序中需要在这个程序中需要4 4个控件对象：分别是一个文本个控件对象：分别是一个文本框控件和三个按钮控件。单击工具箱中的文本框框控件和三个按钮控件。单击工具箱中的文本框控件按钮控件按钮 ，当光标变成十字形后可以在窗体，当光标变成十字形后可以在窗体合适的位置拖动鼠标，画出一个矩形区域，表示合适的位置拖动鼠标，画出一个矩形区域，表示当前控件的大小。松开鼠标后，刚刚出现的矩形当前控件的大小。松开鼠标后，刚刚出现的矩形区域就出现了一个文本框，文本框中默认出现文区域就出现了一个文本框，文本框中默认出现文字字Text1Text1；或者双击文本框控件按钮；或者双击文本框控件按钮 也同样可也同样可以添加一个文本框控件，当选中某个控件对象时，以添加一个文本框控件，当选中某个控件对象时，会出现会出现8 8个句柄，可以直接利用鼠标的拖动来调整个句柄，可以直接利用鼠标的拖动来调整控件大小，用同样的方法选择工具箱中的按钮控控件大小，用同样的方法选择工具箱中的按钮控件按钮件按钮 。在窗体上添加三个按钮。在窗体上添加三个按钮。1.3.3 VB1.3.3 VB可视化设计基本步骤可视化设计基本步骤1.3.3 VB1.3.3 VB可视化设计基本步骤可视化设计基本步骤第二步：设置属性第二步：设置属性控 件属 性属性值FormNameForm1Caption欢迎进入Visual Basic的世界！TextBoxNameText1Text空白CommandButtonNameCommand1Caption显示CommandButtonNameCommand2Caption清除CommandButtonNameCommand3Caption退出第三步：编写代码第三步：编写代码Private Sub Command1_Click()Private Sub Command1_Click()按钮按钮Command1Command1的的ClickClick事件过程事件过程Text1.Text=“Text1.Text=“扬州职业大学扬州职业大学”End SubEnd SubPrivate Sub Command2_Click()Private Sub Command2_Click()按钮按钮Command2Command2的的ClickClick事件过程事件过程Text1.Text=Text1.Text=End SubEnd SubPrivate Sub Command3_Click()Private Sub Command3_Click()按钮按钮Command3Command3的的ClickClick事件过程事件过程EndEndEnd SubEnd Sub 1.3.3 VB1.3.3 VB可视化设计基本步骤可视化设计基本步骤双击按钮进入双击按钮进入“代码代码”窗口窗口选择对象选择对象选择事件选择事件第四步：调试运行第四步：调试运行当程序代码编写好了就可以调试了。点当程序代码编写好了就可以调试了。点 “启动启动”按钮或按按钮或按F5F5按钮调试程序、排除错误直按钮调试程序、排除错误直至正确运行。至正确运行。1.3.3 VB1.3.3 VB可视化设计基本步骤可视化设计基本步骤保存并退出保存并退出选择选择“文件文件”/“/“保存工程保存工程”，分两部保存工程文件，分两部保存工程文件和窗体文件。和窗体文件。1.3.3 VB1.3.3 VB可视化设计基本步骤可视化设计基本步骤保存窗体保存窗体保存工程保存工程分析分析事件驱动机制：以事件驱动机制：以“用鼠标单击用鼠标单击”按钮为例，如图：按钮为例，如图：1.3.3 VB1.3.3 VB可视化设计基本步骤可视化设计基本步骤 用户用户单击单击“用鼠用鼠标单击标单击”按钮按钮 系统调用系统调用Command1_Click事件过程来响应该事件过程来响应该事件。事件。Private Sub Command1_Click()语句块语句块End Sub1.31.3.4 .4 isual Basicisual Basic控件控件Visual Basic 6.0的控件分为以下几类的控件分为以下几类:u标准控件标准控件uActiveX 控件控件u可插入对象可插入对象u标准控件由系统提供，又称为内部控标准控件由系统提供，又称为内部控件件1.在窗体上添加控件 单击工具箱中的图标，在窗体上拖放出所需控件 双击工具箱中的图标(窗体中央出现一个缺省大小的控件)，根据需要移动控件或更改控件的大小。2.选中窗体上的控件 选中一个控件：单击选中多个控件：Ctrl或Shift+单击用鼠标拖放出一个矩形框控件的基本操作控件的基本操作3.改变控件大小 拖动选中控件四周的8个控制点修改Width和Height的属性值 4.删除、移动控件 删除：选中后按Delete键 移动：拖动选中的控件修改Top和Left的属性值 控件的基本操作控件的基本操作p经常不断地学习,你就什么都知道。你知道得越多,你就越有力量pStudyConstantly,AndYouWillKnowEverything.TheMoreYouKnow,TheMorePowerfulYouWillBe写在最后感谢聆听不足之处请大家批评指导Please Criticize And Guide The Shortcomings结束语讲师：XXXXXX XX年XX月XX日