第14讲多窗体程序设计.pptVIP

建立多窗体应用程序 多窗体程序设计相关的语句： 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 Private 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 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 = True 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 程序代码（form3） Dim trace As Boolean Private Sub Command1_Click() 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 = False End Sub 程序代码（form4） Private Sub Command1_Click() Form1.Show Unload Me End Sub Private Sub Form_Click() MouseIcon = LoadPicture(f:\djks\ppt\on.ico) End Sub Private Sub Picture1_Click() picture1.Picture = LoadPicture(f:\djks\ppt\hn.jpg) End Sub 多窗体程序的保存与执行 设置工程的启动窗体，如果没有启动窗体或过程的话，工程将无法运行，执行方法如下： 工程?工程1属性，打开如下窗口，在其中选择启动对象。 Visual basic 工程结构 包括标准模块、窗体模块和sub main 过程 如： 下列选项中，不属于vb主要模块的是： A 标准模块 C 工程模块 B 窗体模块 D 类模块 答案是： 完整的应用程序的组成：结构图 闲置