第2章 VB程序设计初步

计算机科学与工程学院
《VB程序设计》
(3)Activate和deactivate事件 当一个窗体变为活动窗体时就会触发 activate事件。而当另一个窗或 应用程序被激活，原窗体不再是活动窗体时，就 会触发deactivate事件。 例:
计算机科学与工程学院
《VB程序设计》
例: 窗体1 Private Sub Command1_Click() Form2.Show End Sub Private Sub form_deactivate() Print "aaaaa" End Sub 窗体2 Private Sub Form_Activate() Text1.Text = "AAAAAA" End Sub
常用窗体属p19 表2-1
结合实例，初识窗体的设计步骤：
实例：编写程序将窗体的大小设置为屏幕的一半并使窗体居中显示,装入图 片，单击后图片消失，每单击一次窗体颜色变换一次。
计算机科学与工程学院
《VB程序设计》
Private Sub Form_load() Form1.Width = Screen.Width * 0.5 Form1.Height = Screen.Height * 0.5 Form1.Left = (Screen.Width - Width) / 2 Form1.Top = (Screen.Height - Height) / 2 Form1.Picture = LoadPicture("e:\sunswenku.baidu.comt.jpg") End Sub
在窗体和图 片框中写入 文字和作图
计算机科学与工程学院
《VB程序设计》
2.Move方法 格式：[对象名.]move left[,top[,width[,height]]]
使用此方法可以使对象(不包括时钟）移动，同时 也可以改变被移动对象的尺寸。例如： Private Sub Form_click() Form1.Move Left - 120, Top + 40, Width - 150, Height - 130 End Sub
计算机科学与工程学院
《VB程序设计》
• Wordwrap属性用来设置标签内容水平超宽时是否 换行，当wordwrap为true、autosiz也为true时，换 行，即高度自动调整，为false时，文本不换行。 若autosiz为false时无论wordwrap为何值均不换行 。 (5) Bordstyle属性 用于设置标签边框的样式 0----none(无边框) 1----fixed single(有边框)
计算机科学与工程学院
《VB程序设计》
2.常用属性（P24表） (1) caption属性 用来改变标签(label)控件中显示的文本。 • 允许文本的长度最多1024个字符。 • 当文本字符超过标签宽度时自动换行（中文有效 ,西文无效），超过高度时超出部分被自动截去。 (2) alignment属性 用于设置caption属性中的文本的对齐方式， 共有3种方式： 0----left justify(左对齐） 系统默认 1----right justify(右对齐) 2----center justify(居中对齐)
(1) Load事件
（当一个窗体被装载时触发）
计算机科学与工程学院
《VB程序设计》
Private Sub Form_Load() List1.AddItem “安理大" List2.AddItem “计算机学院" End Sub „在装入窗体后自动执行，并在窗体上的列表框中对应填入相应的文字 (2)Unload事件（运行程序后如果关闭窗体窗口，就会触发unload事件）。
Private Sub Form_click() Hide MsgBox "按下确定重新显 示窗体" Show ForeColor = vbRed FontSize = 40 Print: Print Print “ 安理大欢迎您！" End Sub
计算机科学与工程学院
《VB程序设计》
5.添加窗体与设置启动窗体 （1） 添加窗体的步骤： • 从“工程”菜单中选 “添加窗体”
计算机科学与工程学院
《VB程序设计》
(2) multiline属性 文本框默认为单行输入，可将此属性设为true 来使文本框接受多行信息，文本长度可达32kB, 字符数长度超过文本框宽度时自动换行。 (3)Scrobars属性 为浏览文本提供水平和垂直滚动条。 0----无滚动条 1-----horizontal 只有水平滚动条 2-----vertical 只有垂直滚动条 3-----both 具有水平和垂直滚两个滚动条。 注：此属性的前提是属性multiline为true。
输入(如Enter键）就自动引导到成为焦点的按钮上。例 如要想让第二个命令按钮在程序一运行时插入点就放在 此命令按钮上，就可在窗体的activate事件中添加：
command2.setfocus。
两点注意:
注：＊该事件不可出现在窗体的load事件中。 * 使用此方法前被指定的按钮的“visible” 和“enable”属性必须设为“true”。
计算机科学与工程学院
《VB程序设计》
二、 文本框(p25表) 文本框是一种通用控件用于显示用户输入的信息， 也可作为信息输出的对象。 1基本属性 文本框的Name、height、width、top、left、 enable、visible、font、forecolor\backcolor等属性 与标签相同。 2.常用属性 (1) text属性 其值就 是文本框的内容。 允许文本的长度最多2048个字符。 文本框无caption属性与其它常用控件不同。 可通过程序代码、属性窗口和程序运行时三种方式 向文本框输入信息。
计算机科学与工程学院
《VB程序设计》
Private Sub Form_click() Print "清除方法练习" Circle (３000, 1000), 700 Picture1.Print "画圆" Picture1.Circle (500, 500), 180 End Sub Private Sub Command1_Click() Form1.Cls 用cls方法 清除窗体1和 Picture1.Cls 图片框中的 End Sub 文字 和图形
3.show方法
计算机科学与工程学院
《VB程序设计》
格式：[对象名 .]show[style] 此方法用于显示指定的窗体，如果指定的窗体 未装载，VB将自动装入该窗体。若未指名对象，则默 认当前窗体。其中style=0为无模式， style=1为有 模式。 有模式：show后面的程序代码暂停执行,直到该窗体 被隐藏或卸载时才执行。 无模式： show后面的程序代码立即被执行。
计算机科学与工程学院
《VB程序设计》
第二章
VB程序设计初步
计算机科学与工程学院
《VB程序设计》
本章主要内容
1 面向对象编程的基本概念 2 窗体 3 标签、文本框、按钮 4 程序调试 目的和要求：
•掌握VB编程的关键性概念，掌握编程的一般步骤 •掌握窗体、标签、文本框和命令按钮的使用
•掌握程序调试的基本概念和方法
计算机科学与工程学院
《VB程序设计》
(4)maxlength属性 设置文本框中允许的字符数，其值范围为： ０～2048个字符，默认为0，此时，只要不超 出2048个字符均可 。 (5)passwordchar属性
为文本框输入的字符设置掩码，一般用于密码的输入。 属性值只能是一个字符。 此属性只影响文本框内容的显示，不影响内容。 若将passwordchar属性值设为“＊”，在生效期间， 无论输入什么字符，在文本框内只显示“＊”符号。
窗体1
Private Sub Form_unLoad(cancel As Integer) form2.show End Sub
窗体2
Private Sub Form_Load() Form2.caption= “这是第二个窗体” End Sub
计算机科学与工程学院
《VB程序设计》
2.setfocus方法 焦点设置:当某指定的按钮一旦使用了此方法，用户的
计算机科学与工程学院
《VB程序设计》
2.1面向对象编程的基本概念 2.2 窗体
（对象、对象的属性、事件和方法）
窗体是建立Visual Basic应用程序用户界面的平 台。程序运行前，即设计阶段，称为窗体；程序运行 后也可称窗口。既是VB中最常见的对象，又是其它控 件的容器 一、窗体的属性
窗体的属性决定了窗体的外观和内在结构特征， 其中一些属性是其他控件也具有的。
计算机科学与工程学院
《VB程序设计》
三、 窗体常用方法
窗体方法实际上是VB提供的特殊过程。在 窗体操作中可以使用以下方法：
1.Cls方法
格式：[对象名.]cls 此方法用来清除由print方法在窗体或 图片框中显示的文本或用作图方法在窗体或 图片框中显示的图形。例如，在窗体上添加 一个图片框picture1时，可编写以下窗体过 程：
例
计算机科学与工程学院
《VB程序设计》
Private Sub Command1_Click() a = Text1.Text If a = "123" Then Text2.Text = "祝你注册成功" Else Text2.Text ="你输入的密码不正确！" End If End Sub
计算机科学与工程学院
《VB程序设计》
(3) Backstyle属性 用于确定标签的背景是否透明。 0----transparenty(透明)；标签后面的背景和图 形可见。 1----opaque(不透明)；标签后面的背景和图形不 可见。系统默认 (4) Autosiz和wordwrap属性 Autosiz属性决定标签水平宽度是否随标题内容 的多少自动变化。 为true时标签水平宽度随标题内容多少自动水 平方向调整宽度。 为false时，标签水平宽度不随标题内容多少自 动水平方向调整宽度，超出内容不显示。
计算机科学与工程学院
《VB程序设计》
Show方法的有模式和 无模式程序实例 Private Sub form_click() Form2.Show 0 Font .size=20 ForeColor = vbRed Form1.Print "aaaaa" End Sub 4.hide方法 格式：[对象名.] hide 用以隐藏指定的窗体但 不能将其卸载。 例：
《VB程序设计》
2.3 命令按钮、标签、文本框
一、标签框 标签(label)控件是用来显示文本的控件,该控件和 文本框都是用来对文本进行处理的控件,但标签控件没 有文本输入的功能。 1. 基本属性 标签控件的Name、height、width、top、left、 enable、visible、font、forecolor、backcolor等属 性与窗体相同。
• 工程资源管理器窗口完成
（2）设置启动窗体 启动窗体设置的步骤:
可按下述步骤对工程属性进行设置： • 从“工程”菜单中选择“工程属性”命令，打开“工程 属性“对话框 • 选择该对话框中的“通用”选项卡。 • 在“启动对象”下拉列表框中，选取作为新启动窗体的 form2 • 单击“确定”。
计算机科学与工程学院
Private Sub Form_click() Form1.Picture = LoadPicture("") Form1.BackColor = QBColor(Rnd * 15) End Sub
计算机科学与工程学院
《VB程序设计》
二、 窗体的事件
VB采用了事件驱动的编程机制。当没有事件发生时，程 序处于等待状态，只有当事件发生时程序才会运行。 根据事件的来源，VB中的事件主要分为鼠标事件、键盘事 件和系统事件3种。 最常用的鼠标事件：click(单击)、dblclic(双击) 最常用的系统事件： initialize,load,unload,activate,deactivate事件。 注：1.initialize,load, activate三个触发事件的执行顺序为： initialize,load, activate 2.有些操作可在三事件中都可执行（如修改窗体的标题）， 有些则需特定的事件中完成，如print方法，在初始化中不可 执行，load事件中执行但不显示结果（除非将Autoredrawy设 为真值），在activate中可执行。