月二級VB等級考試輔導(dǎo)第9次

2009年9月等級考試輔導(dǎo)

二級VisualBasic1月二級VB等級考試輔導(dǎo)第9次共45頁，您現(xiàn)在瀏覽的是第1頁!第九講鼠標(biāo)、鍵盤、菜單、對話框第10章菜單2第9章鼠標(biāo)、鍵盤事件1第10章對話框3月二級VB等級考試輔導(dǎo)第9次共45頁，您現(xiàn)在瀏覽的是第2頁!第九章鍵盤與鼠標(biāo)事件過程KeyPress事件的一般格式Sub對象名_KeyPress(KeyAsciiAsInteger)……EndSub按下鍵的ASCII碼值KeyPress事件是在壓下鍵盤上的某個(gè)具有ASCII碼的鍵時(shí)觸發(fā)的，該事件可用于窗體、復(fù)選框、組合框、命令按鈕、列表框、圖片框、文本框、滾動(dòng)條及與文件有關(guān)的控件。當(dāng)按下某個(gè)鍵時(shí)，所觸發(fā)的是擁有輸入焦點(diǎn)（Focus）的那個(gè)控件的KeyPress事件。窗體中若有其他可獲得焦點(diǎn)的對象，則需設(shè)置窗體的KeyPreview屬性為True，窗體才會響應(yīng)KeyPress事件月二級VB等級考試輔導(dǎo)第9次共45頁，您現(xiàn)在瀏覽的是第3頁!例題真題P125真題1真題2月二級VB等級考試輔導(dǎo)第9次共45頁，您現(xiàn)在瀏覽的是第4頁!例題真題P127真題3真題4月二級VB等級考試輔導(dǎo)第9次共45頁，您現(xiàn)在瀏覽的是第5頁!P129-考點(diǎn)3鼠標(biāo)事件二、鼠標(biāo)位置鼠標(biāo)位置由x、y參數(shù)確定，x、y不需要給出具體的數(shù)值，其值隨鼠標(biāo)光標(biāo)在窗體或控件上的移動(dòng)而變化，（x、y）通常指接收鼠標(biāo)事件的窗體或控件上的坐標(biāo)。

鍵默認(rèn)左鍵右鍵中鍵Button0124三、鼠標(biāo)鍵狀態(tài)月二級VB等級考試輔導(dǎo)第9次共45頁，您現(xiàn)在瀏覽的是第6頁!上機(jī)真題【例】捷成57-5月二級VB等級考試輔導(dǎo)第9次共45頁，您現(xiàn)在瀏覽的是第7頁!P130-考點(diǎn)4鼠標(biāo)光標(biāo)一、MousePointer屬性鼠標(biāo)光標(biāo)的形狀通過MousePointer屬性來設(shè)置。該屬性可以在屬性窗口中設(shè)置，也可以在程序代碼中設(shè)置。MousePointer的屬性是一個(gè)整數(shù)，可以取0～15，是系統(tǒng)默認(rèn)的鼠標(biāo)光標(biāo)。取值為99時(shí)，可以使用自定義圖標(biāo)。月二級VB等級考試輔導(dǎo)第9次共45頁，您現(xiàn)在瀏覽的是第8頁!P130-考點(diǎn)5拖放一、與拖放有關(guān)的屬性、事件和方法1.屬性

（1）DragMode屬性默認(rèn)為0，表示人工手動(dòng)拖放，設(shè)為1表示自動(dòng)拖放。自動(dòng)拖放時(shí)，Click事件和MouseDown事件不再生效。

（2）DragIcon屬性用于設(shè)置在拖動(dòng)對象的過程中，顯示的代表對象的圖標(biāo)，當(dāng)放下后再恢復(fù)成原來的控件。它通常使用LoadPicture方法來裝入一個(gè)圖片進(jìn)行設(shè)置。月二級VB等級考試輔導(dǎo)第9次共45頁，您現(xiàn)在瀏覽的是第9頁!9.5拖放（2）DragOver當(dāng)拖動(dòng)的對象越過一個(gè)控件時(shí)，產(chǎn)生一個(gè)DragOver事件。該事件過程的格式為：月二級VB等級考試輔導(dǎo)第9次共45頁，您現(xiàn)在瀏覽的是第10頁!【例】窗體左邊的圖片框名稱為Picture1，框中還有6個(gè)小圖片框，它們是一個(gè)控件數(shù)組，名稱為Pic，在窗體右邊從上到下有三個(gè)顯示不同物品的圖片框，名稱分別為Picture2、Picture3、Picture4，還有一個(gè)文本框Text1以及四個(gè)標(biāo)簽，如圖1所示。程序運(yùn)行時(shí)，可以用鼠標(biāo)拖曳的方法把右邊的物品放到左邊的圖片框中（右邊的物品不同），同時(shí)把該物品的價(jià)格累加到Text1中，如圖2所示。最多可放6個(gè)物品。實(shí)現(xiàn)此功能的方法是：程序剛運(yùn)行時(shí)，Picture1中的圖片框數(shù)組不顯示，當(dāng)拖曳一次物品時(shí)，就顯示一個(gè)圖片框元素，并在該圖片框數(shù)組元素中加載相應(yīng)的圖片，產(chǎn)生物品被放入的效果。

圖1圖2補(bǔ)充題月二級VB等級考試輔導(dǎo)第9次共45頁，您現(xiàn)在瀏覽的是第11頁!P135菜單二、菜單編輯器窗口組成月二級VB等級考試輔導(dǎo)第9次共45頁，您現(xiàn)在瀏覽的是第12頁!P136編輯區(qū)用來對輸入的菜單項(xiàng)進(jìn)行簡單的編輯。左、右箭頭：用于產(chǎn)生或取消內(nèi)縮符號，控制升級、降級子菜單。上、下箭頭：用于移動(dòng)菜單項(xiàng)的位置。下一個(gè)（Next）：用于移動(dòng)選擇項(xiàng)，當(dāng)在最后一個(gè)菜單項(xiàng)時(shí)則產(chǎn)生一個(gè)新的菜單項(xiàng)。插入（Insert）：在當(dāng)前菜單項(xiàng)前插入一個(gè)新的菜單項(xiàng)。刪除（Delete）：刪除當(dāng)前選擇的菜單項(xiàng)。月二級VB等級考試輔導(dǎo)第9次共45頁，您現(xiàn)在瀏覽的是第13頁!P136(2007年9月選擇題第22題)窗體上有文本框Text1和一個(gè)菜單，菜單標(biāo)題、名稱如表，結(jié)構(gòu)見圖。要求程序執(zhí)行時(shí)單擊“保存”菜單項(xiàng)，則把其標(biāo)題顯示在Text1文本框中。下面可實(shí)現(xiàn)此功能的事件過程是：

（A）Private

Sub

save_Click()

（B）Private

Sub

save_Click()

Text1.Text=file.save.Caption

Text1.Text=save.Caption

End

Sub

End

Sub（C）Private

Sub

file_Click()

（D）Private

Sub

file_Click()

Text1.Text=file.save.Caption

Text1.Text=save.Caption

End

Sub

End

Sub標(biāo)題

名稱文件file新建new保存

save月二級VB等級考試輔導(dǎo)第9次共45頁，您現(xiàn)在瀏覽的是第14頁!上機(jī)真題【例8.8】捷成20-1月二級VB等級考試輔導(dǎo)第9次共45頁，您現(xiàn)在瀏覽的是第15頁!P137彈出式菜單PopupMenu方法用來顯示彈出式菜單，格式：PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenPopupMenumenu2EndIfEndSub月二級VB等級考試輔導(dǎo)第9次共45頁，您現(xiàn)在瀏覽的是第16頁!上機(jī)真題【例8.9】捷成31-3月二級VB等級考試輔導(dǎo)第9次共45頁，您現(xiàn)在瀏覽的是第17頁!P138考點(diǎn)5通用對話框1.通用對話框控件的使用步驟（1）執(zhí)行“工程”菜單中的“部件”命令，打開“部件”對話框（或按CTRL+T）。（2）在對話框中選擇“控件”選項(xiàng)卡，然后在列表框中選擇“MicrosoftCommonDialogControl6.0”。

(注意在上機(jī)考試中將屏蔽該選項(xiàng)，需要通過“瀏覽”按鈕，選擇dlg32.ocx文件)（3）單擊“確定”按鈕，通用對話框即被加入到工具箱中。月二級VB等級考試輔導(dǎo)第9次共45頁，您現(xiàn)在瀏覽的是第18頁!P140考點(diǎn)6文件對話框文件對話框分為兩種，即打開（Open）文件對話框和保存（SaveAs）文件對話框。文件對話框的屬性（1）DefaultEXT屬性—設(shè)置默認(rèn)文件類型，即擴(kuò)展名。（2）DialogTitle屬性—設(shè)置對話框的標(biāo)題。（3）FileName屬性—設(shè)置或返回要打開或保存的文件的路徑及文件名（4）FileTitle屬性—指定對話框中所選擇的文件名。(沒有路徑)月二級VB等級考試輔導(dǎo)第9次共45頁，您現(xiàn)在瀏覽的是第19頁!P141（2007年4月選擇題第29題）算法1：

Private

Sub

Command1_Click()

CommonDialog1.ShowOpen

Open

CommonDialog1.FileName

For

Input

As#1

End

Sub

算法2：

Private

Sub

Command1_Click()

CommonDialog1.ShowOpen

IfCommonDialog1.FileName<>""Then

Open

CommonDialog1.FileName

For

Input

As#1

End

If

End

Sub下面關(guān)于這兩種算法的敘述中正確的是(A)

顯示打開文件對話框后若未選擇或輸入任何文件名，則算法2會出錯(cuò)，算法1不會(B)

顯示打開文件對話框后若未選擇或輸入任何文件名，則算法1會出錯(cuò)，算法2不會(C)

兩種算法的執(zhí)行結(jié)果完全一樣(D)

算法1允許輸入的文件名中含有空格，而算法2不允許月二級VB等級考試輔導(dǎo)第9次共45頁，您現(xiàn)在瀏覽的是第20頁!上機(jī)真題【例8.10】捷成25-4:“打開文件”對話框月二級VB等級考試輔導(dǎo)第9次共45頁，您現(xiàn)在瀏覽的是第21頁!P142考點(diǎn)7其他對話框

用通用對話框控件除了能建立文件對話框外，還可以建立其他一些對話框，包括顏色對話框、字體對話框和打印對話框等。月二級VB等級考試輔導(dǎo)第9次共45頁，您現(xiàn)在瀏覽的是第22頁!P142考點(diǎn)7其他對話框三、打印（Printer）對話框用打印對話框可以選擇要使用的打印機(jī)，打印對話框通過ShowPrint或Action屬性（=5）建立。月二級VB等級考試輔導(dǎo)第9次共45頁，您現(xiàn)在瀏覽的是第23頁!課后作業(yè)（筆試教程）第9、11章課后習(xí)題完成2007年4月、2007年9月真題上機(jī)練習(xí)（上機(jī)教程）第9、10講真題及上機(jī)練習(xí)做筆試教程最后近幾年筆試真題課后作業(yè)&上機(jī)練習(xí)月二級VB等級考試輔導(dǎo)第9次共45頁，您現(xiàn)在瀏覽的是第24頁!P127-考點(diǎn)2KeyDown和KeyUp事件二、KeyDown和KeyUp事件的格式Sub對象名_KeyDown(KeyCodeAsInteger,_ShiftAsInteger)……EndSub（1）KeyCode參數(shù)當(dāng)按下鍵盤上的某個(gè)按鍵時(shí)，此參數(shù)反應(yīng)該鍵的鍵盤編碼而不是其ASCII碼。具體為：大鍵盤上的字母鍵，返回的是對應(yīng)大寫字母的ASCII值；有上、下檔字符的鍵，返回的是下檔字符的ASCII值。同時(shí)，大、小鍵盤的數(shù)字鍵KeyCode值不同。（2）Shift參數(shù)它是一個(gè)整數(shù)，包括Shift、Ctrl和Alt的狀態(tài)。默認(rèn)為0，按下Shift時(shí)取值加1；按下Ctrl時(shí)取值加2；按下Alt時(shí)取值加4月二級VB等級考試輔導(dǎo)第9次共45頁，您現(xiàn)在瀏覽的是第25頁!P129-考點(diǎn)3鼠標(biāo)事件一、鼠標(biāo)事件Sub對象名_鼠標(biāo)事件(ButtonAsInteger,_ShiftAsInteger,xAsSingle,yAsSingle)壓下鼠標(biāo)鍵事件過程

MouseDown

松開鼠標(biāo)鍵事件過程

MouseUp移動(dòng)鼠標(biāo)光標(biāo)事件過程

MouseMove1）Button為按下的鼠標(biāo)鍵。2）ShiftShift、Ctrl、Alt鍵的狀態(tài)。3）x、y鼠標(biāo)光標(biāo)的當(dāng)前位置坐標(biāo)。

月二級VB等級考試輔導(dǎo)第9次共45頁，您現(xiàn)在瀏覽的是第26頁!真題例題P129真題5月二級VB等級考試輔導(dǎo)第9次共45頁，您現(xiàn)在瀏覽的是第27頁!上機(jī)真題【例8.3】捷成42-3月二級VB等級考試輔導(dǎo)第9次共45頁，您現(xiàn)在瀏覽的是第28頁!上機(jī)真題【例8.4】捷成53-1月二級VB等級考試輔導(dǎo)第9次共45頁，您現(xiàn)在瀏覽的是第29頁!2.事件（1）DragDrop把控件拖到目標(biāo)之后，松開鼠標(biāo)鍵時(shí)，產(chǎn)生一個(gè)DragDrop事件。該事件過程的格式為：P130-考點(diǎn)5拖放月二級VB等級考試輔導(dǎo)第9次共45頁，您現(xiàn)在瀏覽的是第30頁!9.5拖放3.方法 月二級VB等級考試輔導(dǎo)第9次共45頁，您現(xiàn)在瀏覽的是第31頁!P135菜單一、打開菜單編輯器（1）執(zhí)行“工具”菜單中的“菜單編輯器”命令。（2）使用熱鍵Ctrl+E。（3）單擊工具欄中的“菜單編輯器”按鈕。（4）在要建立菜單的窗體上單擊鼠標(biāo)右鍵，在彈出的菜單中單擊“菜單編輯器”命令。月二級VB等級考試輔導(dǎo)第9次共45頁，您現(xiàn)在瀏覽的是第32頁!P135數(shù)據(jù)區(qū)標(biāo)題（Caption）：用來輸入菜單項(xiàng)的標(biāo)題，輸入減號(-)可在菜單中加入一條分隔線。名稱（Name）：用來輸入菜單及各菜單項(xiàng)的Name屬性，它是編程時(shí)事件過程中對象的名稱。索引（Index）：在創(chuàng)建菜單控件數(shù)組時(shí)設(shè)置下標(biāo)?？旖萱I（ShortCut）：用于設(shè)置菜單項(xiàng)的快捷鍵。應(yīng)注意一個(gè)窗體中的所有菜單項(xiàng)快捷鍵不可重復(fù)。復(fù)選（Checked）：不改變菜單項(xiàng)的作用，只是在設(shè)置菜單項(xiàng)前加“√”符號。有效（Enabled）：設(shè)置菜單項(xiàng)是否有效。可見（Visible）：設(shè)置菜單項(xiàng)是否可見。月二級VB等級考試輔導(dǎo)第9次共45頁，您現(xiàn)在瀏覽的是第33頁!P137考點(diǎn)2菜單項(xiàng)的控制鍵盤選擇用鍵盤選取菜單通常有兩種方法，即熱鍵和訪問鍵。1、熱鍵—在菜單“快捷鍵”欄選擇，可以直接執(zhí)行菜單命令。2、訪問鍵—在菜單的“標(biāo)題欄”設(shè)置，在準(zhǔn)備加下劃線的字母前加上一個(gè)“&”，表示按“Alt+相應(yīng)字母”可選取這個(gè)菜單項(xiàng)。月二級VB等級考試輔導(dǎo)第9次共45頁，您現(xiàn)在瀏覽的是第34頁!上機(jī)真題【例8.7】捷成14-1月二級VB等級考試輔導(dǎo)第9次共45頁，您現(xiàn)在瀏覽的是第35頁!P137彈出式菜單

建立彈出式菜單通常分兩步進(jìn)行：首先用菜單編輯器建立菜單然后用PopupMenu方法彈出顯示。步的操作與前面介紹的基本相同，唯一的區(qū)別是，通常把菜單名（即主菜單項(xiàng)）的“可見”屬性設(shè)置為False（子菜單項(xiàng)不要設(shè)置為False）。月二級VB等級考試輔導(dǎo)第9次共45頁，您現(xiàn)在瀏覽的是第36頁!P138(2007年4月選擇題第22題)下面關(guān)于菜單的敘述中錯(cuò)誤的是（A）各級菜單中的所有菜單項(xiàng)的名稱必須唯一（B）同一子菜單中的菜單項(xiàng)名稱必須唯一,但不同子菜單中的菜單項(xiàng)名稱可以相同（C）彈出式菜單用PopupMenu方法彈出（D）彈出式菜單也用菜單編輯器編輯月二級VB等級考試輔導(dǎo)第9次共45頁，您現(xiàn)在瀏覽的是第37頁!上機(jī)真題【例8.8】捷成33-5月二級VB等級考試輔導(dǎo)第9次共45頁，您現(xiàn)在瀏覽的是第38頁!P139通用對話框2.通用對話框的屬性對話框類型Action屬性值方法

0

打開文件1ShowOpen保存文件2ShowSave選擇顏色3ShowColor選擇字體4ShowFont選擇打印機(jī)5ShowPrinter調(diào)用Help文件6ShowHelp月二級VB等級考試輔導(dǎo)第9次共45頁，您現(xiàn)在瀏覽的是第39頁!P140考點(diǎn)6文件對話框5）Filter屬性—設(shè)置“文件類型”的下拉列表選擇，用“|”隔開的一對或多對字符串，每對字符串的前面是描述符，后面是過濾器。6）FilterIndex屬性—指定默認(rèn)的過濾器，一般為字符串對的序號，從1開始。7）Flags屬性—控制對話框的外觀。8）InitDir屬性—指定對話框的起始目錄。缺省時(shí)顯示當(dāng)前目錄。CommonDialog1.InitDir="C:\Windo