第二章VB基本概念

.,26.04.2020,第2章简单的VB程序设计,2.2VB中的对象及其属性、事件、方法2.3简单应用程序的建立2.4窗体和基本控件2.5VB常用方法2.6VB工程结构和工程管理,.,26.04.2020,2.2VB中对象及其属性、事件和方法,一、VB中的对象及其分类二、对象的属性、事件和方法,.,26.04.2020,一、对象和类的概念,对象是指在现实世界中可以独立存在的、可以被区分的一些实体，也可以是一些概念上的实体。举例说明：书，笔，手机，飞机等,.,26.04.2020,类是所有具有一定共性的对象的集合，即类是同种对象的抽象，而对象是类的一次实例化结果。举例说明类的涵义（见下图）,.,26.04.2020,例1.举例说明类和对象的关系:,鞋,皮鞋绿,皮鞋白,皮鞋黑,一个类,三个对象,.,26.04.2020,这是一个类不专指特定的事物,汽车,一辆白色小汽车,举例2如下：,这是一个对象，因为它是指一辆具体的汽车实体，该对象的属性为白色、小型等,.,26.04.2020,（一）VB中的类,.,26.04.2020,（二）VB中的对象,定义:VB中的对象是指具有特殊属性和行为方法的实体。如：窗体对象、命令按钮等在VB中大多数对象是由系统设计好的，直接供用户使用。,.,26.04.2020,（三）VB中的对象类型,VB中的对象多数已由系统设计好，常用的对象如下：1.窗体对象最基本的对象，用于创建程序的界面，在窗体上可放置不同的控件对象。,.,26.04.2020,2.控件对象,工具箱中的各种控件工具图标，实际上就是代表了各个不同对象的类。当在窗体上画一个控件，并设置其属性后，就创建了一个控件对象。VB中最基本的控件对象有标签、文本框等20个.,.,26.04.2020,构成了对象的三要素属性是指一个对象的特征（性质）事件是指作用在对象上、且能够为对象所识别和响应的一系列动作。如鼠标的单击等.方法是指对象所发出的动作,举例说明,二、对象的属性、事件和方法,.,26.04.2020,方法:爆炸,事件：针刺,属性：黄色充满氢气,对象、属性、事件和方法的含义。,例3：用针刺一只黄色充满氢气的气球，气球发生爆炸。,对象:气球,.,26.04.2020,（一）属性1.属性的概念属性是用来描述和反映对象特征的参数.2.属性和属性值的区别及属性的共有性和私有性(举例说明：在属性窗口中进行查看和设置),.,26.04.2020,3.设置对象属性值的两种方法：,1）在设计阶段利用属性窗口直接设置属性2）在程序代码中通过赋值设置属性，语法格式为：对象名称.属性名称=属性值例Form1.Caption=“输入”Text1.Left=100,.,26.04.2020,（二）事件及事件过程,1.事件的概念事件是指作用在某对象上、由VB预先设置好的、能够为某对象所识别和响应的一系列动作。举例说明如鼠标的单击(Click),.,26.04.2020,又例如：每个对象都可识别一系列事件。如：窗体对象可识别单击(Click)、双击(Dblclick)等,.,26.04.2020,2.有关说明,1)鼠标的单击(Click)、双击(DblClick)、装载，载入（Load）都是VB中常用的事件。2)事件可以由用户触发，也可由系统触发。,.,26.04.2020,3.事件过程的概念,它是用来说明该事件发生后所要做的事情,它是由编程人员来完成的代码设计。,当事件发生时，VB就立即寻找相应的程序进行处理，那么，响应一个事件的程序代码就称为对象的事件过程。,.,26.04.2020,Sub对象名_事件名（参数列表）(事件过程代码)EndSub,事件过程名,事件过程的形式：,说明：事件过程名由对象名、下划线和事件名组成,.,26.04.2020,举例4：PrivateSub女生蟑螂爬过去（）高声尖叫的程序代码EndSub,PrivateSub男生蟑螂爬过去（）高声喊打的程序代码EndSub,.,26.04.2020,例5举实例说明事件过程及程序代码应写在何处,应用程序窗体（界面）,代码窗口,.,26.04.2020,4.事件过程是指事件发生后，响应一个事件的程序代码。事件一发生，系统就去执行程序代码,如若希望事件a作用在对象甲上时，执行程序代码。则必须在事件过程()中编写程序代码,5.总结：如何确定在事件过程中编写程序代码的位置,对象甲_事件a(),.,26.04.2020,在代码窗口中对事件过程编程的步骤：如若希望事件a作用在对象甲上时执行程序代码,则(1)单击“对象列表框”右边的箭头，选择需进行事件过程编程的对象甲。(2)单击“过程列表框”右边的箭头，选择与所选对象甲对应的事件a。(3)在所选事件过程代码模板中编写程序代码。,如下所示,.,26.04.2020,对象列表框,事件名列表框,事件过程模板,.,26.04.2020,本题涉及的控件对象:界面要求如下：1个文本框（用于显示信息）2个命令按钮,.,26.04.2020,事件过程代码为：,“确定”命令按钮的单击事件过程PrivateSubCommand1_Click()Text1.Text=欢迎学习VisualBasic!给Text1文本框的Text属性赋值EndSub,.,26.04.2020,“退出”命令按钮的单击事件过程PrivateSubCommand2_Click()End程序结束EndSub,窗体的装载事件过程PrivateSubForm_Load()Text1.Text=第一个VB应用程序EndSub,.,26.04.2020,特别提醒易出错的属性：对象的名称属性,（1）命名：每个对象都有自己的名字，有了名字才能在程序代码中引用该对象，在属性窗口“名称”设置对象名称。（2）命名格式：名字以字母或汉字开头，由字母、汉字、数字串、下划线组成，长度=40个字符.（3）系统的默认名：如：Form1，Label1,Command1.,.,26.04.2020,特别提醒关于事件过程名的命名,一、对于控件来说，事件过程名是由对象名、下划线和事件名三部分组成。而对于窗体来说，事件过程名由Form、下划线和事件名组成,二、举例1、某命令按钮的名称属性为cmddisp，标题为command1，则它的click事件过程名为：A、cmddisp_click()B、command1_click(),举例2、窗体的名称属性为fm，则它的click事件过程名为：A、Fm_click()B、Form1_click()C、Form_click(),.,26.04.2020,认识与提高：,当在VB的设计环境中建立对象后，若希望某个对象在收到某个事件后能做出预期的反应。此时，只要在该对象的某一特定事件过程中编写相应的程序代码即可。事件过程代码是由一系列语句行组成的,.,26.04.2020,（三）方法,1.方法的概念方法指的是控制对象动作行为的方式。从对象本身的角度，可通俗地理解为对象的动作。,.,26.04.2020,举例6.说明对象的属性、事件和方法三者之间的关系。,属性：红色,事件：箭刺,方法:放气,.,26.04.2020,2.对象方法的调用格式：对象名.方法名参数列表例:方法PrintForm1.Print“欢迎同学们学习VB”或Print“欢迎同学们学习VB”注意：省略对象时表示在当前对象,一般指当前窗体PrivateSubForm_Click()Print“欢迎同学们学习VBEndSub,.,26.04.2020,在开发应用程序时，对象、属性、事件和方法的作用体现在何处？,1.对象：它是面向对象程序设计的核心，体现在界面设计中。2.属性：是用来描述对象的特征的数据,思考与提高：,.,26.04.2020,3.事件：事件是程序代码执行的导火索，即如果用户或系统不触发对象的事件，程序代码就不可能执行,引入“事件驱动”的概念事件驱动是指程序的执行是靠事件的发生引起的。简言之，只有事件的发生，才能引起程序代码的执行。,.,26.04.2020,2.4窗体和基本控件,2.4.1基本属性1.名称(Name)对象名在此设置.是所有对象都具有的属性.在设计时,系统会给出默认名字,如命令按钮command1,用户可修改.对象名称不显示在窗体上.在运行过程中不可再改变,控件是可视化编程的基础。窗体和控件的属性影响他们的外观和性能。,.,26.04.2020,2.标题(Caption)用于设置窗体或控件的标题（少数控件没有此属性）如:命令按钮上的文字,标题(Caption),.,26.04.2020,Top,Left,Width,Height,3.高度(Height)宽度(Width)距顶部(Top)距左边(Left)属性用于确定控件的位置。单位:twip1twip=1/20点=1/1440英寸=1/567cm,.,26.04.2020,4.Enabled属性确定是否允许对控件的操作True:允许False:不允许5.Visible属性控件运行时是否可见True:可见False:不可见注意：可见的对象不一定可操作，不可见的对象一定不能操作。举例演示：四个按钮，运行，单击按钮1，按钮2变灰色不可用，单击按钮3，按钮4消失，同时按钮2又能用了,.,26.04.2020,PrivateSubCommand1_Click()Command2.Enabled=FalseEndSubPrivateSubCommand3_Click()Command4.Visible=FalseCommand2.Enabled=TrueEndSub,事件代码：,.,26.04.2020,6.Font系列属性用于设置字体，文本的外观。包括字体、字型、字号和下划线等FontName正文字体(字符型)FontSize大小(整型)FontBold是否粗体(逻辑型)FontItalic是否斜体(逻辑型)FontStrikethru是否加删除线FontUnderline是否加下划线说明:若要对窗体中的所有控件设置相同Font属性,可先对窗体设置.,.,26.04.2020,7.ForeColor前景色，显示正文的颜色BackColor背景色8.BackStyle背景风格(如：标签）0透明显示，看不到背景色1不透明显示9.BorderStyle边框风格（如：窗体、标签）0没有边框1有单边框,.,26.04.2020,10.Alignment对齐方式0LeftJustify正文左对齐1RightJustify右对齐2Center居中11.AutoSize自动调整尺寸（如标签）True：自动调整False：保持原来大小12.WordWrap文字缩放（当AutoSize为True时才有效）True:垂直方向发生变化,水平方向不变False:水平方向发生变化,垂直方向不变,.,26.04.2020,14.控件默认属性在VB中，把某个控件的最重要的属性,称为该控件的默认属性或值.举例：运行时，文本框清空，标签清空。单击窗体，文本框内显示“欢迎学习VB”，标签显示“输入框”。PrivateSubform_Click()Text1.Text=欢迎学习VB“Label1.caption=“输入框”EndSubPrivateSubForm_Load()Text1.Text=Label1.caption=EndSub,.,26.04.2020,2.4.2窗体,是VB中最重要的对象，用于创建VB应用程序的用户界面或对话框。一个工程文件中，至少应包括一个窗体,1.属性(1)基本属性：Name,Font(2)Caption属性,.,26.04.2020,(3)BorderStyle(边框风格)属性0None:无边框1FixedSingle:固定单线边框2Sizeable:可调双线边框，缺省3FixedDialog:固定双线边框4FixedToolWindow:固定工具窗口5SizeableToolWindow:可变工具窗口,.,26.04.2020,(4)MaxButton和MinButton,作用：是否显示最大化或最小化按钮值为True或False只有BorderStyle属性的值为1或2时起作用，且只能在属性窗口设置,(5)Icon属性,设置当窗体最小化时的图标,.,26.04.2020,(6)ControlBox属性,作用：用来设置窗口的控制图标。该属性只适用于窗体。值为True或False,(7)Picture属性,作用：用来在窗体工作区显示一个图形在属性窗口设置代码中使用LoadPicture函数Form1.Picture=LoadPicture(“d:image1.bmp”),.,26.04.2020,(8)WindowState属性,作用：更改窗体的外观0Normal/窗体为正常状态，有窗口边界1Minimized/窗体最小化为一个示意图标，为最小化状态。2Maximized/窗口充满整个屏幕，无边界，为最大化状态。在程序运行时查看效果,.,26.04.2020,2.常用事件,(1)Load事件：窗体被装入时（启动应用程序），系统自动触发的事件。此时系统会自动执行form_load事件过程。可在其内进行变量初始化,对窗体、空间的属性进行设置。,.,26.04.2020,2.常用事件,(2)Click事件：当在程序运行过程中，单击一个窗体的空白区域，则会产生窗体的单击事件，此时系统自动会调用执行窗体事件过程Form_Click.,.,26.04.2020,3.常用方法,Print,.,26.04.2020,1.定义是用于显示文本或输出信息的控件。注意：不能作为输入信息的界面2.标签属性(Name、Caption、Alignment、Autosize、Font、Backcolor、Forecolor、Enabled、Borderstyle等)3.标签事件:Click,2.4.3标签（Label）,.,26.04.2020,说明：标签中的标题文字对齐方式1.左对齐：0-left2.右对齐：1-right3.居中对齐：2-center,标签属性：Alignment,.,26.04.2020,例：用标签显示当前时间要求：两个按钮，一个标签，设置标签前景色为红色和背景色为蓝色及字体（隶书）、字号（二号）功能：单击“显示时间”按钮，标签内显示当前时间，单击“退出”按钮，退出界面。PrivateSubCommand1_Click()Label1.Caption=现在的时间是:若没选,则将字符串插入到当前光标所在处.,.,26.04.2020,例2-5：在窗体单击事件中，将选中文本框中的所有文本，并用“Thisisanewtext”代替。PrivateSubForm_Click()Text1.SelStart=0Text1.SelLength=Len(Text1.Text)Text1.SelText=“Thisisanewtext”EndSub,.,26.04.2020,PrivateSubCommand1_Click()Text2.Text=Text1.SelText显示被选取的文本Text3.Text=Text1.SelStart显示被选取的文本起始位置Text4.Text=Text1.SelLength显示被选取的文本的长度EndSubPrivateSubCommand2_Click()Text1.SelText=Text2.Text用text2文本框中的字符去替换text1文本框中被选取的文本。EndSub,.,26.04.2020,2.事件（1）Change（改变）事件当Textbox控件里的文字有所改变时，发生这个事件。,.,26.04.2020,2.4.5命令按钮(最基本最常用的控件对象)选中命令按钮的三种方法,（一）属性1.基本属性(Name,Height,Font)2.Caption（标题）属性：标题，即显示在命令按钮键面上的文字。,.,26.04.2020,3.Style(风格）属性用于设置或返回命令按钮的显示类型和行为，只能在属性窗口设置。0Standard(缺省):标准Windows风格命令按钮，按钮上不能显示图形。1Graphical:图形命令按钮，按钮上可以显示图形的样式，与（Picture）属性混用。,.,26.04.2020,4.Picture（图片）属性该属性只有在Style属性设置为1时才有效，它为图形命令按钮装入一幅示意图（.bmp，.ico）。,5.ToolTipText(工具显示）属性用于设置当鼠标在控件上暂停时显示的提示性文本。一般与Picture属性同时使用，为图形命令按钮加简短文字说明其功能。,.,26.04.2020,6.Default（确认）属性：只有命令按钮支持Default属性。,值为True时，按Enter键相当于单击该命令按钮在一个窗体中，只能有一个按钮的Default属性设为True。,.,26.04.2020,7.Cancel(取消）属性值为True时，按Esc键相当于单击该命令按钮在一个窗体中，只能有一个按钮的Cancel属性设为True。,.,26.04.2020,8.Value(检查按钮状态）属性：该属性只能在程序运行期间设置或利用值为True时，用于以程序方式来引发该命令按钮的Click事件，从而转去执行其相应的程序。例：若要在窗体的单击事件程序中调用并执行命令按钮的Click事件过程，可用以下语句实现：Command2.Value=True,.,26.04.2020,(二)事件命令按钮的最基本最重要的事件就是Click（鼠标单击）,.,26.04.2020,(四)命令按钮的应用举例要求：窗体上放四个按钮,单击按钮1，按钮2标题改为“新标题”，单击按钮3，按钮4“隐藏”,PrivateSubCommand1_Click()Command2.Caption=新标题EndSubPrivateSubCommand3_Click()Command4.Visible=FalseEndSub,.,26.04.2020,形状控件(shape),指定控件的外观,有6种可选：0矩形1正方形2椭圆3圆4圆角矩形5圆角正方形,常用属性：1、shape,.,26.04.2020,形状控件(shape),2、FillColor属性填充在简单图形内部的颜色注：只有属性FillStyle的值为0时有效。3、FillStyle属性用来定义形状内部的填充图案样式4、BorderColor(边框颜色)属性5、BorderStyle(边框线的线型样式）属性6、BorderWidth(边框线的宽度)属性,.,26.04.2020,2.4.6图像框(Image),（一）属性1.Picture属性可在属性窗口中设置，也可在程序代码中用LoadPicture函数设置，方法是：对象名.Picture=LoadPicture(“图像文件名”），也就是图像的路径例：image1.picture=loadpicture(“d:tempabc.jpg”)如果是清除图像：image1.picture=loadpicture(“”),.,26.04.2020,2.Stretch(可伸缩性）属性True:被装入的图像按Image框的大小做等比缩放，Flase:Image框的大小会随着被装入的图像大小做变化,.,26.04.2020,(二)图像框的应用举例要求：窗体上放三个按钮，按钮1标题改为“显示图像”，按钮2标题改为“清除图像”，按钮3标题改为“退出程序”,PrivateSubCommand1_Click()Image1.Picture=LoadPicture(d:a.jpg)EndSubPrivateSubCommand2_Click()Image1.Picture=LoadPicture()EndSubPrivateSubCommand3_Click()EndEndSub,.,26.04.2020,2.4.7列表框(List)列表框能将多个项目列出，供用户从中作出选择。,（一）属性1.Listcount属性表示了列表框中的表项的总个数2.Listindex属性表示用户在列表框中选择的那一表项的序号，由于列表框中的表项的序号排列从0开始计数，所以第一项的序号为了0，第二项的序号为1，.，列表框中的最后一项的序号为listcount-1,如果列表框中没有选中任何项，listindex属性的值为了-1,.,26.04.2020,3.List属性该属性用来返回或设置列表框中的某一列表项的内容，它是一个保存了列表框中所有项的值的数组。由于列表框中的每一列表项都有一个序号（取值为0listcount-1之间）所以list(i)就代表了一个列表项的值，i为其中某一项的序号。,.,26.04.2020,（二）方法1.Additem方法用于向列表框中新增数据项。格式：列表框.additem字符串2.clear方法用于清除列表框中的所有列表项。格式：列表框.clear3.RemoveItem方法：用来删除列表框中指定的列表项格式：列表框.RemoveItem索引号,.,26.04.2020,例：要求：窗体上添加二个文本框，四个按钮，一个列表框，单击“加入列表框”按钮，文本框内的内容添加到列表框，单击“从列表框中删除”按钮，在列表框中选中的列表项删除。单击“清空列表框”按钮，在列表框清空。单击“列表框内项数”按钮，在文本框内显示总项数。PrivateSubCommand1_Click()IfText1.TextThenList1.AddItemText1.TextEndIfEndSubPrivateSubCommand2_Click()List1.RemoveItemList1.ListIndexEndSubPrivateSubCommand3_Click()List1.ClearEndSubPrivateSubCommand4_Click()Text2.Text=List1.ListCountEndSub,.,26.04.2020,2.4.8计时器(Timer)独立于用户，按一定时间间隔周期性自动引发事件。它必须依附在窗体上，设计阶段可见，运行时不可见。,（一）属性1.Enabled属性属性值设置为true时，计时器工作，当设置为false时，计时器暂停工作。2.Interval属性该属性用于设置两个计时器事件间的时间间隔，以毫秒为单位，如果将interval属性设置为1000(即1秒）,则表示每一秒就发生一个计时器事件；如果设置为10000,则表示每10秒发生一个计时器事件。,.,26.04.2020,(二)计时器的应用举例要求：窗体上放一个标签，一个计时器,PrivateSubTimer1_Timer()Label1.Caption=Time将系统当前时间显示到标签label1中EndSub,.,26.04.2020,2.5VB常用方法,1.Print方法对象名.Print表达式表；|，作用:在VB中采用print输出数据，它作为对象的方法使用，print方法可用于窗体，也可用于其他对象。说明：1.对象名：可省略2.“表达式表”是被输出的内容，可以是数值表达式或字符表达式，如果是数值表达式，则打印出该表达式的值；如果是字符表达式则照原样输出。注：字符表达式都加双引号，而数值表达式不加双引号,.,26.04.2020,PrivateSubForm_Click()a=10b=20PrintaPrinta+bPrintthisisastringEndSub3.“表达式表”可以是一个或多个表达式，当有多个表达式时，各表达式之间可用逗号，分号隔开，如果各表达式之间用逗号分隔，则按标准输出格式显示各数据，如果各表达式之间用分号分隔，则按紧凑格式输出数据。PrivateSubForm_Click()a=10b=20Printa,b的值为：,a,bPrinta+b的值为：;输出;结束EndSub,.,26.04.2020,4.Print方法具有计算和输出的双重功能，对于数值表达式，它先计算其值，然后再输出，如：printa+b,对于字符表达式，直接输出。如：print”圆的面积是：”5.当一个print方法后面无任何表达式时，表示输出一个空行PrivateSubForm_Click()a=10b=20PrintPrinta;bPrintPrint它的和是PrintPrinta+bEndSub,.,26.04.2020,与print方法有关的标准函数：,Tab(n)函数：将被输出的内容放在由参数n所指定的位置（列数）处，被输出的内容在书写时要放在tab函数的右面，并用分号分隔。如printtab(20);40该语句表示在第20列处输出值40说明：1.参数n为数值表达式，其值为一整数，它表示下一个输出位置的列号，表示在输出前把光标移到该列，通常最左边的列号为1，如果当前的显示位置已超过n，则自动下移到下一行的这个位置输出。,.,26.04.2020,例如：PrivateSubForm_Click()Print学号;Tab(20);姓名;Tab(40);班级Print9901;Tab(20);赵光;Tab(40);计算机99-2Print9902;Tab(20);李丰;Tab(40);计算机99-2EndSubSpc(n)函数：用在print方法中，表示跳过n个空格PrivateSubForm_Click()Printabc;Spc(5);xyzEndSub,.,26.04.2020,例在窗体Form1的单击事件中写入如下代码：PrivateSubForm_Click()a=10:b=3.14:c=100Printa=