1、第第2章章 VB可视化编程基础 Visual Basic 6.0是一种面向对象（Oriented-Object）的可视化开发工具。在Visual Basic6.0中，窗口是应用程序与用户交互的界面，通过窗体对象和控件对象可以完成窗口界面的设计。在面向对象的程序设计中，通过对象将数据和方法封装到一体，通过窗体对象完成可视化的设计窗口界面。本章要点2.1 VB对象的概念2.2 窗体和基本控件2.3 综合实训对象l 对象是指现实世界中的实体。l 每个对象都有自己的特征、行为和发生在该对象上的活动，它们分别被称为对象的属性、方法和事件。l 每个对象都是用类定义的。2.1 对象和类类l 类就是对这种同一
2、类对象的抽象统称。在面向对象程序设计中，每个对象都是用类定义的。l 类是面向对象程序设计的核心技术，可以理解成一种定义了对象行为和外观的模板；而对象则可以看作类的复制品。1对象的属性、事件和方法1）属性(Property)根据对象的定义，属性、方法和事件是构成对象的三要素。属性(Property):是对对象特征的描述，VB为每一类对象都规定了若干属性，具体对象的属性值可以在设计中改变。对象属性有两种设置方法：a.设计阶段：利用属性窗口直接设置属性值，设置TextBox对象上显示的文字Text属性。b.程序运行时：通过语句 对象名对象名.属性名属性名=属性值属性值 来设置，如textbox1.T
3、ext=“textbox对象1”。注意：如果属性在程序运行阶段不可改变，只能在设计阶段设置，这类属性成为只读属性。2)事件(Event)是发生在对象上的动作。事件的发生不是随意的，某些事件仅可以发生在特定的对象上。事件的具体步骤或过程称为时间过程其形式如下：Sub 对象名_事件(参数)事件过程代码End Sub3)方法(Method)是指控制对象动作行为的方式。它是对象本身包含的函数或过程，它也是一个动作，是一个简单的不必知道细节的无法改变的事件；同样，方法也不是随意的，一些对象有一些特定的方法。在VB中方法的调用形式是：对象名对象名.方法名方法名 l 窗体是VB最重要的对象，是构成应用程序界
4、面的基本模块。在程序运行时，窗体是用户与应用程序之间进行交互的窗口，新建工程系统会自动建立一个空窗体。l VB通过控件箱提供与用户交互的可视化部件，在窗体中使用控件箱可以方便的向窗体中添加控件。2.2窗体和基本控件1.窗体在VB中，窗体是Visual Basic编译环境提供的用于开发桌面程序的通用窗体类，其中包含设计好的属性和方法(1)窗体的基本属性Name、Height、Width、Left、Top、Font、Enabled、Visible、ForeColor、BackColor。(2)窗体的特有属性WindowState属性、Icon属性、ShowInTaskbar属性、MaxButton
5、属性、MinButton性等。(3)窗体的常用事件1）鼠标事件：Click、DblClick、MouseDown、MouseUp、MouseMove。2）键盘事件：键盘事件包括:KeyPress事件、KeyDown事件和KeyUp事件。3)窗体装载事件：Load和Unload。(4)窗体的常用方法1)LoadPicture方法：用于在窗体中装入图片。2)Show方法：用来显示窗体3)Hide方法：用来隐藏窗体4)Print方法：用于在窗体上输出表达式的值5)Cls方法：用于清除运行时在窗体中显示的文本或图形。6)Move方法：用于移动并改变窗体的位置和大小。2.常用控件如图2-3所示是常用控件
6、。VB中还支持ActiveX控件，这种控件一般很多以OCX后缀的文件独立存在，是对标准控件的扩充。图2-3 常用控件(1)控件的通用属性和窗体一样，其他控件也具备各种属性，以下属性为控件的通用属性。1）Name属性。2）Caption属性。3）Height、Width、Left、Top。4）BackColor、ForeColor。5）此外还有 Font属性、Enabled属性、Visible属性等。属性说明Name名称属性，运行时是只读的Caption标题文本属性，其中个Label控件标题大小没有限制，其他有标题的控件的标题大小限制为255个字符Height、Width、Left、Top用于设
7、置对象的高度、宽度和空间距离容器的左边距和上边距BackColor、ForeColor用于设置控件的前景色和背景色(2)命令按钮控件 命令按钮控件是用来接受用户输入的命令。输入命令可以有三种形式：鼠标单击、Tab键焦点到该按钮、快捷键。命令按钮包含以下属性：1)Default。2)Cancel。3)Style。4)Picture。5)DownPicture。属性说明Default属性值为true时，则该按钮为默认按钮，按下回车键相当于单击该按钮。在一个窗体中，只允许一个命令按钮的Default属性设置为trueCancel属性值为true时，则该按钮为默认的取消按钮，按ESC相当于单击该按钮。
8、在一个窗体中，只允许一个命令按钮的Cancel属性设置为trueStyle用来设置命令按钮的显示类型。0表示Standard；1表示GraphicalPicture设置命令按钮中要显示的图形，但只有在Style属性设置为1时，图形才能显示DownPicture设置按钮按下时显示的图形，通过文件加载此图形(3)显示和输入文本的控件 在VB中，用于显示和输入文本的控件分别是Label和TextBox。1)Label控件 Label控件，用来在窗体中显示文本内容，标签控件的属性有(名称)、Caption,Left,Top,Height,Width,BackColor,ForeColor和Visibl
9、e等。属性说明Alignment确定标签标题的对齐方式AutoSize确定标签是否随标题自动调整大小BorderStyle确定标签的边框。0为无边框；1为有边框BackStyle指定背景是透明或不透明。1为不透明；0为透明WordWrap指示返回随标题沿垂直方向自动扩展。属性说明Text返回或设置文本框显示的内容。例如：Text1.Text=“欢迎使用VB”MultiLine决定是否可以显示多行文本PasswordChar常用于输入口令，即在文本框中输入字符显示为该指定的字符。ScrollBars用于确定文本框是否带滚动条以及滚动条的方向2)TextBox控件 TextBox控件，即文本框，用
10、来输入文本内容。文本框控件的基本属性与标签控件的基本属性基本一样，但没有Caption属性(4)时钟控件和Time函数1）时钟控件：时钟控件可以按照一定的时间间隔触发计时事件(Timer)，执行相应的程序。时钟控件有(名称)，Enabled,Left,Top,Internal等属性。它的事件只有一个Timer事件。2）Time函数：Time函数给出了计算机的系统时间，其格式为:小时小时:分钟分钟:秒秒属性说明Enabled当它的值为True时，时钟控件有效，开始从Interval属性的设置值计时；当它的值为False时，时钟控件无效，停止计时。Interval它表示两个计时事件之间的时间间隔，
11、其值以ms(毫秒)为基本单位，1s秒)=1000ms。取值范围在0ms到64757ms之间，当其值为0时，时钟控件无效。在程序运行时，时钟控件不会显示在窗体当中。【综合实训一】1.实训内容“窗体操作”程序运行后，在屏幕的中央显示一个窗体，窗体的画面如图2-4所示，单击窗体中的“向左移动”按钮，可以使窗体向左移动；单击“向右移动”按钮.可以使窗体向右移动:单击“向下移动”按钮，可以使窗体向下移动:单击“向上移动”按钮.可以使窗体向上移动；单击“最小化”按钮.可以使窗体最小化在Windows的状态栏中显示程序最小化后的按钮(按钮上有最小化图标)；单击“最大化”按钮，可以使窗体最大化，此时窗体没有边
12、框；单击“正常”按钮，可以使窗体恢复起始状态，窗体有边框；单击“退出”按钮或者按Alt+E键，可以关闭窗体结束程序。2.3综合实训Private Sub Command1_Click()Form1.Left=Form1.Left-8End SubPrivate Sub Command2_Click()Form1.Left=Form1.Left+8End SubPrivate Sub Command3_Click(Index As Integer)Form1.Top=Form1.Top+8End SubPrivate Sub Command4_Click(Index As Integer)For
13、m1.Top=Form1.Top-8End SubPrivate Sub Command5_Click()Form1.WindowState=vbMinimizedEnd SubPrivate Sub Command6_Click()Form1.WindowState=vbMaximizedEnd SubPrivate Sub Command7_Click()Form1.WindowState=NormalEnd SubPrivate Sub Command8_Click(Index As Integer)EndEnd Sub【综合实训二】创建一个动画电子钟表程序如图2-8所示。“动画电子钟表”程序运行后，一个不断随系统时间变化的电子钟表从窗体的左边水平向右移动。当钟表移出窗体后，又从窗体左边移入窗体，如此不断循环播放。Private Sub Timer1_Time()Label1.Caption=Time$LabeI3.Caption=Date$End SubPrivate Sub Timer2_Timer()Label1.Left=CInt(Label1.Left)+10End SubPrivate Sub Timer3_Timer()Label1.Left=-2000End SubThank You
