【教学课件】第14章多窗体程序设计.ppt
第14章多窗体程序设计,人民邮电出版社,21世纪高等学校计算机基础教育系列教材,建立多窗体应用程序,多窗体程序设计相关的语句：Load 语句Unload 语句Show语句Hide语句,多窗体的执行与应用,详细举例完成可调用,程序代码（form1）,Private Sub Command1_Click()Form2.Show Me.HideEnd SubPrivate Sub Command2_Click()Form3.Show Me.HideEnd SubPrivate Sub Command3_Click()Form4.Show Me.HideEnd SubPrivate Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)Static i As Integeri=i+1If i Mod 10=0 Then Print Chr$(KeyCode);-;Hex$(KeyCode);Print:PrintElseIf KeyCode=13 Then i=0 Print:Print:PrintElse Print Chr$(KeyCode);-;Hex$(KeyCode);End IfEnd Sub,程序代码（form2）,Dim paintnow As BooleanPrivate Sub Command1_Click()Form1.Show Unload MeEnd SubPrivate Sub Form_DblClick()ClsEnd SubPrivate Sub Form_Load()DrawWidth=4 ForeColor=RGB(255,0,0)End SubPrivate Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)paintnow=TrueEnd SubPrivate Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)If paintnow Then PSet(X,Y)End IfEnd SubPrivate Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)paintnow=FalseEnd Sub,Dim trace As BooleanPrivate Sub Command1_Click()Form1.Show Unload MeEnd SubPrivate 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),rEnd SubPrivate Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)trace=FalseEnd Sub,程序代码（form3）,Private Sub Command1_Click()Form1.Show Unload MeEnd SubPrivate Sub Form_Click()MouseIcon=LoadPicture(f:djksppton.ico)End SubPrivate Sub Picture1_Click()picture1.Picture=LoadPicture(f:djksppthn.jpg)End Sub,程序代码（form4）,多窗体程序的保存与执行,设置工程的启动窗体，如果没有启动窗体或过程的话，工程将无法运行，执行方法如下：工程工程1属性，打开如下窗口，在其中选择启动对象。,保存多窗体：在新建工程中直接保存即可（要同时保存工程和窗体）装入工程，打开工程即可，无须每个窗体打开一次。工程的扩展名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 iEnd SubPrivate Sub Command3_Click()EndEnd Sub,Sub main()Form1.Show Do While DoEvents()If Form1.Command2.Left=Form1.Width Then Form1.Command2.Left=+1 Beep Else Form1.Command2.Left=Form1.Left End If LoopEnd Sub,
