《鼠標鍵盤菜單》PPT課件

《《鼠標鍵盤菜單》PPT課件》由會員上傳分享，免費在線閱讀，更多相關(guān)內(nèi)容在教育資源-天天文庫。

1、第10章鍵盤事件、鼠標事件、菜單主要內(nèi)容：鍵盤與鼠標事件過程KeyPress事件KeyDown、KeyUp鼠標事件鼠標光標的形狀菜單程序設(shè)計VB中的菜單菜單編輯器建立菜單彈出式菜單KeyPress事件1、Keypress事件:此事件當用戶按下和松開一個鍵盤上的鍵時發(fā)生。格式：PrivateSub控件名_KeyPress([indexAsInteger,]keyasciiAsInteger)說明：可用于窗體、文本框、復(fù)選框、組合框、命令按鈕、列表框、圖片框、滾動條等具有焦點的控件。Keyascii參數(shù)的值是被按下的

2、鍵的ASCII值。它是以值為準，比如：按下大鍵盤上的1和按下小鍵盤上的1都返回1的Ascii碼，按下同一個鍵，但在大小寫不同時，返回不同的值。一個窗體僅在它沒有可視的且可獲得焦點的控件時才能接收該事件。但是當窗體的KeyPreview屬性被設(shè)置為True時，窗體是可以接收該事件的，但不影響其它控件的KeyPress事件的接收。例如：窗體上有一個文本框，當KeyPreview屬性被設(shè)置為True時，在文本框中輸入數(shù)據(jù)，每一次按鍵，都會先觸發(fā)窗體的Keypress事件，再觸發(fā)控件的Keypress事件。一個KeyPr

3、ess事件可以引用任何可打印的鍵盤字符可使用Chr(KeyAscii)表達式將keyascii參數(shù)轉(zhuǎn)變?yōu)橐粋€字符。使用這下面命令修改KeyAscii參數(shù)的值將改變所顯示的字符：KeyAscii=Asc(char)此事件不能識別下面的這些鍵：功能鍵（F1-F12）、編輯鍵(指INSERT鍵、DELETE鍵或BACKSPACE鍵)、定位鍵以及任何鍵和鍵盤換檔鍵的組合等。KeyPress事件2、舉例：例1:將輸入到文本框中的字符轉(zhuǎn)換為大寫。PrivateSubText1_KeyPress(KeyAsciiAsInteg

4、er)KeyAscii=Asc(UCase(Chr(KeyAscii)))EndSubKeyDown、KeyUp事件1、KeyDown和KeyUp事件：是當一個對象具有焦點時按下(KeyDown)或松開(KeyUp)一個鍵時發(fā)生的。格式：PrivateSub控件名_KeyDown([indexAsInteger,]keycodeAsInteger,shiftAsInteger)PrivateSub控件名_KeyUp([indexAsInteger,]keycodeAsInteger,shiftAsInteger)

5、說明：[indexAsInteger,]：當控件為控件數(shù)組時有此參數(shù)。表示被觸發(fā)控件的索引號。keycodeAsInteger：是一個鍵代碼。它是一個Ascii碼，但是它是以鍵為準，一個鍵一個碼，例如：A和a是同一個值，以大寫字母的Ascii值為準。由于是以鍵為準，所以，大鍵盤和小鍵盤上的數(shù)字鍵并不是同一值，例如：大鍵盤的1和小鍵盤的1不同值。對于有上下檔的鍵，以下檔鍵的值為準。shiftAsInteger：是在該事件發(fā)生時響應(yīng)SHIFT,CTRL和ALT鍵的狀態(tài)的一個整數(shù)。分別是1、2和4。例如，如果CTRL和

6、ALT這兩個鍵都被按下，則shift的值為6。KeyDown、KeyUp事件例：當按下“<”和“>”鍵時，窗體上的滾動條的滾動塊被移動。PrivateSubHScroll1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=188AndHScroll1.Value>HScroll1.MinThenHScroll1.Value=HScroll1.Value-HScroll1.LargeChangeEndIfIfKeyCode=190AndHScroll1.Value

7、”，并且要考慮是否滾動框處于最高或最低的位置，然后進行滾動條值屬性的修改，在當前Value值上增加或者減少。例：當按下Alt+P顯示照片，當放手時關(guān)閉顯示。PrivateSubForm_Load()Form1.KeyPreview=TrueEndSubPrivateSubForm_KeyDown(KeyCodeAs

8、Integer,ShiftAsInteger)IfKeyCode=80AndShift=4ThenImage1.Visible=TrueEndIfEndSubPrivateSubForm_KeyUp(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=80AndShift=4ThenImage1.Visible=FalseEndIfEndS