《高级语言程序设计教程——Visual Basic 6.0 中文版 教学课件 ppt 作者 张露2 第14章》由会员分享，可在线阅读，更多相关《高级语言程序设计教程——Visual Basic 6.0 中文版 教学课件 ppt 作者 张露2 第14章（10页珍藏版）》请在金锄头文库上搜索。
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 P
2、rivate 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）
3、,Dim paintnow 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 = Tru
4、e End Sub Private 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_C
5、lick() Form1.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 = Fals
6、e End Sub,程序代码（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）,多窗体程序的保存与执行,设置工程的启动窗体，如果没有启动窗体或过程的话，工程将无法运行，执
7、行方法如下： 工程工程1属性，打开如下窗口，在其中选择启动对象。,保存多窗体：在新建工程中直接保存即可（要同时保存工程和窗体） 装入工程，打开工程即可，无须每个窗体打开一次。 工程的扩展名vbp 窗体的扩展名frm,注意：可以从最新和现存中选择，以最快速度地找到你的工程文件,Visual basic 工程结构,包括标准模块、窗体模块和sub main 过程 如： 下列选项中，不属于vb主要模块的是： A 标准模块 C 工程模块 B 窗体模块 D 类模块 答案是： 完整的应用程序的组成：结构图,闲置循环与doevents语句,闲置：无事件在触发时 忙碌：正在执行某事件触发程序 闲置循环：idle
8、 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 = Form1.Width Then Form1.Command2.Left = Form1.Command2.Left + 1 Beep Else Form1.Command2.Left = Form1.Left End If Loop End Sub,
