【正文】 根據(jù)在按下或釋放鼠標(biāo)按鈕時(shí)是否同時(shí)按下 Shift、 Ctrl或 Alt鍵返回一個整數(shù)。 第九章 Visual Basic常用控件 9 鼠標(biāo)事件 1. MouseDown、 MouseUp事件 MouseDown事件：在按下鼠標(biāo)按鈕時(shí)發(fā)生； MouseUp事件：在釋放鼠標(biāo)按鈕時(shí)發(fā)生。例如，鼠標(biāo)事件有 單擊、雙擊、按下、抬起、移動、拖動 等，鍵盤事件有 按鍵的按下、抬起 等。 ?MouseIcon屬性：設(shè)置在運(yùn)行時(shí)當(dāng)鼠標(biāo)移動到對象上時(shí)要顯示的圖標(biāo)，在 MousePointer屬性設(shè)置為 99時(shí)使用。 ?在代碼中的使用格式 : 控件名 .Font.屬性名 屬性名 : Name、 Size、 Bold、 Italic、 Underline、 Strikethrough 例 : = 14 = True 【 例 91】自學(xué) P170 例 91 第九章 Visual Basic常用控件 7 9． MousePointer、 MouseIcon屬性 ?MousePointer屬性：返回或設(shè)置一個值，指示在運(yùn)行時(shí)當(dāng)鼠標(biāo)移動到對象上時(shí)要顯示的鼠標(biāo)指針的類型。 3) 設(shè)置 ForeColor屬性值不會影響已經(jīng)打印的文本或繪制的圖形。 注意： 1) 在 Label和 Shape控件中，如果 BackStyle屬性的設(shè)置值為 0(透明 )，則忽略 BackColor屬性。 第九章 Visual Basic常用控件 5 6. BackColor、 ForeColor屬性 BackColor屬性用來設(shè)置或返回控件的背景顏色。 注意 : 如果在屬性窗口中將控件的 Visible屬性設(shè)置為 False， 則控件在設(shè)計(jì)窗體上仍是可見的，僅在運(yùn)行時(shí)才不可見。 第九章 Visual Basic常用控件 4 3. Enabled屬性 決定控件是否能夠?qū)τ脩舢a(chǎn)生的事件作出響應(yīng)。其他有標(biāo)題的控件，標(biāo)題大小限制為 255個字符?！狈?。符號可以為某些控件創(chuàng)建訪問鍵，如果需要在標(biāo)題中加入一個“ amp。 注意： 1) 當(dāng)創(chuàng)建一個新的對象時(shí)，其缺省 Caption屬性值與其缺省的 Name屬性值相同。第九章 Visual Basic常用控件 1 第 9章 常用內(nèi)部控件 本章要點(diǎn) : ?控件的公共屬性 ?鼠標(biāo)和鍵盤事件 ?常用內(nèi)部控件 ?動畫控件和多媒體控件 第九章 Visual Basic常用控件 2 控件的公共屬性 1. Name屬性 Name屬性用于標(biāo)識窗體、控件、或數(shù)據(jù)訪問對象的名稱。在屬性窗口的屬性名為“ (名稱 )” 注意： 1) Name屬性運(yùn)行時(shí)是只讀的 2) 新建立的控件有其缺省名稱，如 TextText2… 3) 以字母開始 , 最長 40個字符，可包括字母、數(shù)字和下劃線，不能包括標(biāo)點(diǎn)符號或空格 (允許漢字 ) 4) 控件數(shù)組的名稱 : Name(Index) 例如： Text1(0)、 Text1(1) Command1(0)、 Command1(1) 第九章 Visual Basic常用控件 3 2. Caption屬性 Caption屬性用于設(shè)置或返回對象的標(biāo)題或在對象上顯示的文字。 2) 使用 amp?！狈柖皇莿?chuàng)建訪問鍵，需在標(biāo)題中加入連續(xù)的兩個“ amp。 3) Label控件標(biāo)題大小沒有限制。 3) 注意與 Name屬性、 Text屬性的區(qū)別。 4. Visible屬性 用來確定一個窗體或控件是否可見。 5. Left、 Top、 Height、 Width屬性 Height Left Top Width 對于窗體，這些屬性總是以緹為單位表示；對于控件，它們的度量單位取決于其容器的坐標(biāo)系統(tǒng)。ForeColor屬性用來設(shè)置或返回在控件里顯示的圖形或文本的顏色（前景顏色）。 2) 如果在 Form對象或 PictureBox控件中設(shè)置BackColor屬性，則所有已經(jīng)打印的文本或用繪圖方法繪制的圖形都將被擦除掉。 第九章 Visual Basic常用控件 6 7. FontName、 FontSize、 FontBold、 FontItalic、FontStrikethru、 FontUnderline屬性 分別對應(yīng)于： 字體、字號、粗體、斜體、刪除線、下劃線 8. Font對象屬性 ?在設(shè)計(jì)時(shí)在屬性窗口需要進(jìn)一步打開對話框進(jìn)行設(shè)置。 0～ 15：使用系統(tǒng)定義的鼠標(biāo)指針類型 99 :使用自定義的鼠標(biāo)指針類型 ， 鼠標(biāo)指針為通過 MouseIcon屬性所指定的圖標(biāo)。 第九章 Visual Basic常用控件 8 鼠標(biāo)和鍵盤事件 Visual Basic應(yīng)用程序可以響應(yīng)多種鼠標(biāo)與鍵盤事件。利用這些事件可以編寫響應(yīng)各種事件的應(yīng)用程序。 例如，某按鈕的 MouseDown事件過程如下： Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) …… End Sub ? Button ：根據(jù)所按下或抬起的是鼠標(biāo)的左按鈕、右按鈕還是中間按鈕返回一個整數(shù)。見 P172 ? X、 Y： 返回鼠標(biāo)指針在對象上的當(dāng)前位置。 第九章 Visual Basic常用控件 10 2． MouseMove事件 當(dāng)鼠標(biāo)指針在對象上移動時(shí)發(fā)生該事件。由于應(yīng)用程序能在短時(shí)間內(nèi)識別大量的 MouseMove事件，因此，不應(yīng)在 MouseMove事件過程中編寫需要大量計(jì)算時(shí)間的程序。如下圖： 窗體的 MouseMove事件過程如下： Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) = X : = Y End Sub Text1 Text2 第九章 Visual Basic常用控件 12 鍵盤事件 1． KeyPress事件 當(dāng)用戶按下并釋放鍵盤上一個會產(chǎn)生 ASCII碼的按鍵時(shí)產(chǎn)生 KeyPress事件。 例如，某文本框 Text1的 KeyPress事件過程如下： Private Sub Text1_KeyPress(KeyAscii As Integer) …… End Sub ? KeyAscii參數(shù) ： 與按鍵對應(yīng)的 ASCII碼值。 ?只有當(dāng)對象具有焦點(diǎn)時(shí)才可以接收 KeyPress事件。 ?使用文本框的 KeyPress事件可以及時(shí)對輸入的內(nèi)容進(jìn)行檢查，以保證輸入內(nèi)容的有效性。 分析： 可以在 Text1的 KeyPress事件過程中對參數(shù)KeyAscii的值進(jìn)行判斷。 代碼如下： Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii 48 Or KeyAscii 57 Then Beep 39。消除該字符 End If End Sub 第九章 Visual Basic常用控件 15 2． KeyDown、 KeyUp事件 KeyDown事件 : 在對象有焦點(diǎn)時(shí)按下按鍵時(shí)發(fā)生； KeyUp事件 : 在對象具有焦點(diǎn)時(shí)松開按鍵時(shí)發(fā)生。在鍵盤上只要按的是同一個鍵，則返回的 KeyCode值相同。 VB為 KeyCode值定義了符號常量，如 vbKeyF1(F1鍵 ) 或 vbKeyHome(Home鍵 )。見 P171表 92。 分析： 鍵盤上的方向鍵“ ←”、“ ↑”、“ →”、“ ↓”的 KeyCode值分別為 3 3 3 40，也可以分別用 vbKeyLeft、 vbKeyUp、 vbKeyRight、vbKeyDown符號常量來代替。 Shape1 第九章 Visual Basic常用控件 17 代碼如下： Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyUp = 100 Case vbKeyDown = + 100 Case vbKeyLeft