vb第八章系統(tǒng)環(huán)境資源的應(yīng)用-全文預(yù)覽
【正文】 上也會(huì)產(chǎn)生 DragOver事件，這個(gè)事件發(fā)生在 DragDrop事件之前。 167。 DragIcon 指定拖動(dòng)控件時(shí)顯示的圖標(biāo)。 鼠標(biāo)事件 四、 MouseUp事件 ? 釋放鼠標(biāo)按鈕時(shí)， MouseUp 事件將會(huì)發(fā)生。 鼠標(biāo)事件 3. MouseMove 工作情況 ? 并不是對(duì)鼠標(biāo)經(jīng)過的每個(gè)像素， VisualBasic都會(huì)生成 MouseMove事件。 ElseIf Button = 3 Then Print 您同時(shí)按下了鼠標(biāo)左、右鍵 End If End Sub 167。 鼠標(biāo)事件 三、 MouseMove事件 Button參數(shù)判斷鼠標(biāo)按鍵 ? MouseMove事件可以檢測是否同時(shí)按下了兩個(gè)以上的鼠標(biāo)按鍵。 Private Sub Form_MouseDown (Button As Integer,Shift As Integer,X As Single,Y As Single) x, y End Sub 167。 Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X as Single,Y as Single) If Button=1 Then Print “ 您按下了鼠標(biāo)的左鍵 !” If Button=2 Then Print “ 您按下了鼠標(biāo)的右鍵 !” End Sub 167。 111 7 vbRightButton + vbMiddleButton + vbLeftButton 按下三個(gè)按鈕。 二進(jìn) 制值 十進(jìn)制值 常 數(shù) 意 義 000 0 未按下任何按鈕。 167。 鼠標(biāo)事件 ? Button參數(shù)用十進(jìn)制數(shù)值或常數(shù)表示這些二進(jìn)制模式。 167。 167。當(dāng)鼠標(biāo)指針在控件上方時(shí)，控件將識(shí)別鼠標(biāo)事件。 鼠標(biāo)事件 ? 通過 MouseDown、 MouseUp、 MouseMove事件，來了解程序?qū)κ髽?biāo)位置及狀態(tài)的變化。 鼠標(biāo)屬性 二、 MouseIcon MouseIcon屬性提供了一個(gè)自定義圖標(biāo)，它在 MousePointer屬性設(shè)為 88時(shí)使用。 ? 語法： =value ? 說明： Value：按照設(shè)置值中的說明指定顯示的鼠標(biāo)指針類型。 鍵盤事件 ? 根據(jù) Shift、 Ctrl、 Alt鍵的狀態(tài)可在 Shift中設(shè)置任一位或設(shè)置所有位，下表列出了這些值和常數(shù)。通過鍵代碼常數(shù)或相應(yīng)的 ASCII值檢測這些鍵。 167。它們是有相同的 KeyCode值。 167。 （ 3） PageUp和 PageDown鍵。 鍵盤事件 ? 例 1：將某文本框中正在輸入的所有字符都強(qiáng)制轉(zhuǎn)換為大寫字符 Private Sub Text1_KeyPress(KeyAscii As Integer) KeyAscii = Asc(Ucase(Chr(KeyAscii))) End Sub ? 例 2：檢測用戶是否正在按 BackSpace鍵 : Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii=8 then MsgBox “ 您按下了 BackSpace鍵。 此事件中只有一個(gè)參數(shù)，是用戶按鍵的 ASCII碼值。當(dāng)您希望無論何時(shí)按下某按鍵都會(huì)執(zhí)行同一個(gè)操作，而不管哪個(gè)控件在此時(shí)具有焦點(diǎn)時(shí)，設(shè)置 KeyPreview屬性將極為有用。 ? 只有獲得焦點(diǎn)的對(duì)象才能夠接受鍵盤事件。 拖放 167。第八章 系統(tǒng)環(huán)境資源的應(yīng)用 主要內(nèi)容 167。 鼠標(biāo)事件 167。單擊鼠標(biāo)任意鍵和按下鍵盤上的任何按鍵都可觸發(fā)事件。但是，如果將窗體上的 KeyPreview屬性設(shè)置為 True，則對(duì)每個(gè)控件在控件識(shí)別其所有鍵盤事件之前，窗體就會(huì)接受這些鍵盤事件。通過 KeyPress事件可對(duì)標(biāo)準(zhǔn)鍵盤編寫代碼來處理大多數(shù)按鍵。 167。 （ 2）方向鍵。 （ 6）與菜單命令無聯(lián)系的功能鍵。這時(shí)將“ A” 與“ a”作為同一個(gè)鍵返回。只有檢查此參數(shù)才能判斷輸入的是大寫字母還是小寫字母。 Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyA Then MsgBox 你按的是 A鍵 “ End Sub ? 例 4： KeyDown和 KeyUp事件可識(shí)別標(biāo)準(zhǔn)鍵盤上的大多數(shù)控制鍵。 鍵盤事件 ? Shift參數(shù)是用來在事件發(fā)生時(shí)記錄 Shift， Ctrl和Alt鍵狀態(tài)的一個(gè)整數(shù)，它實(shí)際上是一個(gè)位域，它用第 0位對(duì)應(yīng) Shift鍵，第 1位對(duì)應(yīng) Ctrl鍵，第 2位對(duì)應(yīng) Alt鍵，如圖所示： 167。也就是說，鼠標(biāo)在不同的對(duì)象上可以有不同的顯示類型。 鼠標(biāo)屬性 常數(shù) 值 說明 vbDefault 0 (默認(rèn)值 )形狀由對(duì)象決定 vbArrow 1 箭頭 vbCrosshair 2 十字線（ crosshair指針） vbIbeam 3 I型 vbIConPointer 4 圖標(biāo)（矩形內(nèi)的小矩形） vbSizePointer
規(guī)章制度相關(guān)推薦
鄂ICP備17016276號(hào)-1