vb6.0ppt教程第14章.ppt

1、第14章多窗体程序设计,人民邮电出版社,21世纪高等学校计算机基础教育系列教材,建立多窗体应用程序,多窗体程序设计相关的语句： Load 语句 Unload 语句 Show语句 Hide语句,多窗体的执行与应用,详细举例完成 可调用,程序代码 （form1）,Private Sub Command1_Click() Form2.Show Me.Hide End Sub Private Sub Command2_Click() Form3.Show Me.Hide End Sub Private Sub Command3_Click() Form4.Show Me.Hide End Sub Pr

2、ivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Static i As Integer i = i + 1 If i Mod 10 = 0 Then Print Chr$(KeyCode); -; Hex$(KeyCode); ; Print: Print ElseIf KeyCode = 13 Then i = 0 Print: Print: Print Else Print Chr$(KeyCode); -; Hex$(KeyCode); ; End If End Sub,程序代码（form2）,Dim paintn

3、ow As Boolean Private Sub Command1_Click() Form1.Show Unload Me End Sub Private Sub Form_DblClick() Cls End Sub Private Sub Form_Load() DrawWidth = 4 ForeColor = RGB(255, 0, 0) End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) paintnow = True End Sub P

4、rivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If paintnow Then PSet (X, Y) End If End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) paintnow = False End Sub,Dim trace As Boolean Private Sub Command1_Click() Form

5、1.Show Unload Me End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) r = Rnd * 800 If r 200 Then r = 200 trace = True Circle (X, Y), r End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) trace = False End Sub,程

6、序代码（form3）,Private Sub Command1_Click() Form1.Show Unload Me End Sub Private Sub Form_Click() MouseIcon = LoadPicture(f:djksppton.ico) End Sub Private Sub Picture1_Click() picture1.Picture = LoadPicture(f:djksppthn.jpg) End Sub,程序代码（form4）,多窗体程序的保存与执行,设置工程的启动窗体，如果没有启动窗体或过程的话，工程将无法运行，执行方法如下： 工程工程1属性，

7、打开如下窗口，在其中选择启动对象。,保存多窗体：在新建工程中直接保存即可（要同时保存工程和窗体） 装入工程，打开工程即可，无须每个窗体打开一次。 工程的扩展名vbp 窗体的扩展名frm,注意：可以从最新和现存中选择，以最快速度地找到你的工程文件,Visual basic 工程结构,包括标准模块、窗体模块和sub main 过程 如： 下列选项中，不属于vb主要模块的是： A 标准模块 C 工程模块 B 窗体模块 D 类模块 答案是： 完整的应用程序的组成：结构图,闲置循环与doevents语句,闲置：无事件在触发时 忙碌：正在执行某事件触发程序 闲置循环：idle loop：在空闲时用一个循环来执行其他操作，就是在闲置情况执行的循环。闲置循环时，cpu全部占用，要夺回cpu控制权，用doevents来实现。 Doevens 即可作为语句，也可作为函数。例如：,Private Sub Command1_Click() FontSize = 12 Print 执行按钮1的单击事件过程 For i = 1 To 10000 x = x * 2 Next i End Sub Private Sub Command3_Click() End End Sub,Sub main() Form1.Show Do While DoEvents() If Form1.Command2.Left =