【正文】 vate Sub Command1_Click() = + 1 End Sub Private Sub Command2_Click() End End Sub (2) 編寫 Sub Main過程 Private Sub MAIN() Do While True 39。把控制權(quán)交給系統(tǒng)去處理所發(fā)生的事件 39。 由于加入 DoEvents函數(shù)，則可以在執(zhí)行閑置循環(huán)過程中執(zhí)行其他操作，如重設(shè)窗體的大小及最大化 /最小化，還能響應(yīng)命令按鈕 Command1和 Command2的單擊事件等。 例 設(shè)計(jì)一個(gè)調(diào)色板應(yīng)用程序 建立三個(gè)水平滾動(dòng)條作為 紅、綠、藍(lán) 三種基本顏色的輸入工具，合成的顏色顯示在右邊的標(biāo)簽中 (圖 )，用其背景顏色屬性 BackColor值的改變實(shí)現(xiàn)合成顏色的調(diào)色 說明： 根據(jù)調(diào)色原理，基本顏色有紅、綠、藍(lán)三種，選擇這三種顏色的不同比例，可以合成所需要的任意顏色 (1)創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對(duì)象屬性 三個(gè)水平滾動(dòng)條名稱從上至下分別為 HScroll HScrollHScroll3 其 Max屬性均設(shè)置為 255， Min屬性均設(shè)置為 0， SmallChange屬性設(shè)置為 1， LargeChange屬性設(shè)置為 10，Value設(shè)置為 0?！捌瘘c(diǎn)”的默認(rèn)值為 0，“終點(diǎn)”的默認(rèn)值為 2π (3)縱橫比 為圓的縱軸和橫軸的尺寸比?？v橫比的默認(rèn)值為 1，將產(chǎn)生一個(gè)標(biāo)準(zhǔn)圓。圖片框可以作為其他控件的容器，還可以在圖片框上面放置其他控件，這些控件隨圖片框的移動(dòng)而移動(dòng) 2. Picture屬性： 用于設(shè)置在圖片框中要顯示的圖像文件 =LoadPicture(圖形文件名 ) =LoadPicture() ?清除圖片 Align屬性： 設(shè)置圖片框在窗體中的顯示方式 AutoSize屬性： 確定圖片框如何與圖形相適應(yīng) 圖片框 (PictureBox) 3. (1)顯示和消除圖形：見 Picture (2)用 Print (3)用圖形方法在圖片框中畫圖形 可以使用 Circle(畫圓 )、 Line(畫線 )、 Pset(畫點(diǎn) )等方法在圖片框中畫圖形 示例 Private Sub Form_Load() Show 在圖片框內(nèi)寫字和畫圓 (1200, 1000), 600, RGB(0, 0, 255) (1200, 1000), RGB(255, 0, 0) End Sub 圖像框 (Image) 圖像框 (Image)控件的作用與圖片框 PictureBox控件相似，但它只能用于顯示圖形，不能作為其他控件的容器 Shape形狀控件 VB提供了畫圖形的基本工具，如 Shape(形狀控件 )、 Line(線控件 )。 Line直線控件 Line直線控件可用來在窗體、框架和圖片框中繪制簡(jiǎn)單的線段。秒針長(zhǎng)度 len_S = Sqr(( ) ^ 2 + ( ) ^ 2) 39。時(shí)針長(zhǎng)度 len_H = Sqr(( ) ^ 2 + ( ) ^ 2) Call Timer1_Timer End Sub Private Sub Timer1_Timer() 39。繪制秒針 = len_S * Cos(pi * s / 30) = + len_M * Sin(pi * m / 30) 39。繪制時(shí)針 = len_H * Cos(pi * h / 6) End Sub 計(jì)算指針位置的方法 s秒 K 60秒 2π K = 2πS / 60 = πs / 30 x2 = x1 + x = x1 + L * Cos(π/2 – k ) = x1 + L * Sink = + Len_s * Sin(pi * s / 30) x x2 x1 K (s秒 ) π/2 K 菜單設(shè)計(jì) 應(yīng)用程序通過菜單為用戶提供一組命令 菜單一般分為兩種：即 下拉式菜單 和 彈出式菜單 下拉式菜單 1. 下拉式菜單基本結(jié)構(gòu)包括：頂層菜單、菜單項(xiàng)和子菜單 子菜單項(xiàng) 子菜單提示符 訪問鍵 快捷鍵 分隔線 復(fù)選標(biāo)記 菜單項(xiàng) 頂層菜單 菜單編輯器 設(shè)計(jì)菜單的工具 啟動(dòng)菜單編輯器的方法 菜單編輯器分為上、下兩部分， 上半部分 用來 設(shè)置屬性 ，下半部分 是 菜單顯示區(qū) ，用來顯示用戶輸入的菜單內(nèi)容。菜單項(xiàng)的訪問鍵，用“ (amp。內(nèi)縮符號(hào) (4個(gè)點(diǎn)“ 例 編一程序，進(jìn)行兩個(gè)操作數(shù)的算術(shù)運(yùn)算練習(xí) 設(shè)計(jì)步驟如下： (1)創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對(duì)象屬性 菜單欄向用戶提供功能選擇，包括 運(yùn)算數(shù)的位數(shù)，運(yùn)算符類型和退出程序 菜單設(shè)計(jì) 各個(gè)菜單項(xiàng)名稱 (2)編寫程序代碼 功能要求 Option Explicit 39。位數(shù)標(biāo)記 sel2 = 39。設(shè)置位數(shù)標(biāo)記 End Sub Private Sub Mnu12_Click() sel1 = 10 End Sub Private Sub Mnu13_Click() sel1 = 100 End Sub Private Sub Mnu21_Click() sel2 = + 39。命題 按鈕單擊事件 Dim a As Long, b As Long If sel1 = 0 Or sel2 = Then MsgBox 先選擇運(yùn)算數(shù)的位數(shù)和運(yùn)算類型 Exit Sub End If a = sel1 + Int(9 * sel1 * Rnd) 39。組成算式 Select Case sel2 39。答題 按鈕單擊事件 Dim r2 As Long If = Then MsgBox 請(qǐng)輸入答案 Exit Sub End If r2 = Val() 39。判斷答案 = 正確 Else = 錯(cuò)誤 End If End Sub Private Sub Mnu30_Click() ?“退出”菜單命令 End End Sub 運(yùn)行時(shí)改變菜單屬性 1. 使菜單命令有效或無效 所有的菜單項(xiàng)都具有 Enabled屬性，當(dāng)該屬性為 True(默認(rèn)值 )時(shí)，有效；若為 False時(shí)，菜單項(xiàng)會(huì)變暗，菜單命令無效。 舉例： =True 3. 使菜單項(xiàng)不可見 舉例： =True 彈出式菜單 彈出式菜單又稱為快捷菜單?？梢愿鶕?jù)右 使用 VB提供的菜單編輯器，把某個(gè)菜單設(shè)置成隱藏。 ［對(duì)象 ] PopupMenu 菜單名 [, 位置常數(shù) ][, 橫坐標(biāo) [, 縱坐標(biāo) ]]] 例 在例 ，把 “ 位數(shù) ” 菜單改為快捷菜單 (1)打開例 ，選定窗體，然后在菜單編輯器中將“位數(shù)”菜單標(biāo)題的“可見”框中的“ √”取消 (即不選中 ) (2)增加以下的 MouseUp事件過程代碼： Private Sub Form_MouseUp(Button As Integer, _ Shift As Integer, X As Single, Y As Single) If Button = 2 Then ?檢查是否右擊 ,擊左鍵為 1 PopupMenu mnu10 End If End Sub 程序運(yùn)行時(shí)，右擊窗體空白處，即會(huì)彈出快捷菜單，如圖 彈出式菜單 工具欄和狀態(tài)欄 分別通過 Active X控件 ToolBar和 StatusBar來實(shí)現(xiàn) Active X控件簡(jiǎn)介 VB中使用的控件有三類： 標(biāo)準(zhǔn)控件、 ActiveX控件和可插入對(duì)象 (如 Word文檔、 Excel工作表等，可當(dāng)作控件使用 ) Active X控件是一段可重復(fù)使用的程序代碼和數(shù)據(jù)。 Active X控件以單獨(dú)的文件存在 (.ocx) 工具欄 (ToolBar) 工具欄為用戶帶來比用菜單更為快速的操作 為窗體添加工具欄，應(yīng)使用 工具條 (ToolBar)控件和 圖像控件列表 (ImageList)控件 (不是標(biāo)準(zhǔn)控件 ) 創(chuàng)建工具欄的 大致步驟 (1)添加 ToolBar控件和 ImageList (2)用 ImageList (3)創(chuàng)建 ToolBar控件，并將 ToolBar控件與 ImageList控件相關(guān)聯(lián)，創(chuàng)建 Button對(duì)象 (4)編寫 Button的 Cli