【正文】 tivate事件僅當窗體成為活動窗口時才發(fā)生。QueryUnload事件可提供造成窗體卸載的原因（單擊“關閉”按鈕 /程序中執(zhí)行 Unload語句 /在應用程序中關閉 /在 Windows中的關閉）。所以 QueryUnload提供了取消關閉窗體的機會，同時也允許在需要時從代碼中關閉窗體。 3 對話框 計算機應用基礎——總述 杭 上 專 職 VB程序設計——菜單程序設計 ?添加窗體：使用“工程 /添加窗體”命令 ?將窗體定義成對話框風格，不能移動、最大或最小化 ?在對話框上添加按鈕，如“確定”與“取消”按鈕 ?在對話框上添加其它控件 ?在適當?shù)奈恢?編寫顯示對話框的代碼 顯示模式對話框（打開時焦點不可切換） : – 窗體名 .Show vbModal (或窗體名 .Show 1) 顯示無模式對話框 : – 窗體名 .Show vbModeless (或窗體名 .Show 0) ?編寫從對話框退出的代碼 –例如 Unload Form2 或 自定義對話框 計算機應用基礎——總述 杭 上 專 職 VB程序設計——菜單程序設計 【 例 4】 設計對話框 Form2如下圖所示。如果輸入文件名錯誤，將給出警告并返回該對話框 Text1 Option1 Option2 Option3 Command1 Command2 計算機應用基礎——總述 杭 上 專 職 VB程序設計——菜單程序設計 在窗體 Form1 的“運行”菜單項（設菜單控件名為 SRun）的Click事件過程中顯示對話框，代碼如下： Private Sub SRun_Click() 1 ?顯示模式對話框 End Sub 在主窗體 Form1的菜單有一“運行”菜單項，運行時單擊“運行”打開模式對話框Form2 計算機應用基礎——總述 杭 上 專 職 VB程序設計——菜單程序設計 對話框 Form2代碼設計如下： Private Sub Command1_Click() On Error GoTo ErrorHandler ?設置錯誤陷阱。 例： 下面的程序代碼由于先打開對話框，再進行屬性設置，在第一次執(zhí)行本段代碼時，無法過濾文件， Showopen語句后面的屬性設置語句對下一次執(zhí)行 Showopen有效。 Visual Basic通過系統(tǒng)對象 Err來記錄程序運行期間所發(fā)生的錯誤。 例如，當在 CancelError 屬性為 True的通用對話框中選擇“ 取消 ” 按鈕時，產(chǎn)生一個錯誤， Err． Number被設置為 32755， Description屬性被設置為 “ 選擇 ‘ 取消 ’ ” 。為防止由于錯誤造成停止程序運行的問題，可以使用 On Error語句捕獲錯誤，然后根據(jù)捕獲的錯誤進行處理。 以下程序說明當在顏色對話框內(nèi)選取 “ 取消 ” 按鈕時， 32755號錯誤。 Private Sub Commandl Click（） On Error GoTo ErrorHaandler ‘ 錯誤捕獲語句 =True ‘使選取 “ 取消 ” 按鈕時 能對出錯誤做響應 =CommonDialogl． Color ‘設置顏色 Exit Sub ‘無錯誤時正常退出本過程 常用的 On Ermr語句形式有： 計算機應用基礎——總述 杭 上 專 職 VB程序設計——菜單程序設計 3． 在使用 Commonlnalog控件控制字體選擇時出現(xiàn)錯誤 這是由于沒有設置 CommonDialog控件的 Flags屬性，或?qū)傩灾挡徽_。 以下為錯誤處理的語句 ErrorHandler： ’ 語句標號，錯誤處理語句開始 If =32755 Then =“放棄操作” End Sub 計算機應用基礎——總述 杭 上 專 職 VB程序設計——菜單程序設計 ? VB中允許應用程序有多個窗體，每個窗體有自己的代碼和不同的操作，從而實現(xiàn)復雜的功能。 模式 =0(非模態(tài) )或 1(模態(tài) )，默認模式為 0。 4 多重窗體 計算機應用基礎——總述 杭 上 專 職 VB程序設計——菜單程序設計 二、多重窗體設計 ? 多重窗體設計與單重窗體設計一致，大致可分為三步： ?建立界面 ?編寫代碼 ?運行程序 ? 指定啟動窗體：在 “ 工程 /工程屬性 /通用 ” 中可以根據(jù)需要指定應用程序的啟動窗體。Load Form2 = UCase() End Sub Private Sub Command2_Click() 39。 ? 窗體文件 (.frm, .frx) 包括有窗體、窗體上的對象及窗體上的事件響應代碼。 ?窗體模塊：每個窗體都有一個對應的窗體模塊，通常包括聲明、通用過程及事件過程三部分。 計算機應用基礎——總述 杭 上 專 職 VB程序設計——菜單程序設計 167。界面如下： 計算機應用基礎——總述 杭 上 專 職 VB程序設計——菜單程序設計 計算機應用基礎——總述 杭 上 專 職 VB程序設計——菜單程序設計 ‘Form1主窗體 FrmMaint Private Sub cmdEnd_Click() End End Sub Private Sub cmdInput_Click() End Sub Private Sub cmdOutput_Click() End Sub 計算機應用基礎——總述 杭 上 專 職 VB程序設計——菜單程序設計 Form2:數(shù)據(jù)輸入窗體 FrmInput Private Sub cmdReturn_Click() sMath = Val(Text1) sChinese = Val(Text2) sChemistry = Val(Text3) sEnglish = Val(Text4) sPhysics = Val(Text5) End Sub 計算機應用基礎——總述 杭 上 專 職 VB程序設計——菜單程序設計 Form3：數(shù)據(jù)輸出窗體 FrmOutput Private Sub Command1_Click() End Sub Private Sub Form_Activate() stotal = sMath + sChinese + sChemistry + sEnglish + sPhysics txtAverage = stotal / 5 txtTotal = stotal End Sub Private Sub Form_Load() stotal = sMath + sChinese + sChemistry + sEnglish + sPhysics txtAverage = stotal / 5 txtTotal = stotal End Sub 計算機應用基礎——總述 杭 上 專 職 VB程序設計——菜單程序設計 總結