第9章鼠標(biāo)、鍵盤和OLE控件

程序設(shè)計教程第9章鼠標(biāo)、鍵盤和OLE控件VisualBasic學(xué)習(xí)目標(biāo)OLE控件使用了解常用的鼠標(biāo)事件MouseDown、MouseUp、MouseMove常用鍵盤響應(yīng)事件KeyPress、KeyDown、KeyUp拖放操作的常用屬性及事件掌握鼠標(biāo)、鍵盤事件、拖放操作的應(yīng)用熟悉目錄9.1鼠標(biāo)鍵盤事件拖放使用OLE控件9.29.39.49.5

程序舉例9.1鼠標(biāo)鼠標(biāo)常用鼠標(biāo)事件鼠標(biāo)事件的語法格式示例鼠標(biāo)常用鼠標(biāo)事件鼠標(biāo)事件的語法格式示例大多數(shù)控件可識別的鼠標(biāo)事件除了前面章節(jié)中多次使用的Click和DblClick事件之外，還包括：MouseDown事件；MouseUp事件；MouseMove事件。我們可以使用這些事件使應(yīng)用程序?qū)κ髽?biāo)位置及狀態(tài)的變化作出響應(yīng)。鼠標(biāo)PrivateSubObject_鼠標(biāo)事件(ButtonasInteger,ShiftasInteger,XasSingle,YasSingle)EndSub注意事項(xiàng)：（1）Button參數(shù)用來確定按下了哪個按鈕或哪些按鈕，其取值范圍是0~7的整數(shù)。其中Button參數(shù)值為1，則按下了左鍵；Button參數(shù)值為2，則按下了右鍵；Button參數(shù)值為4，則按下了中鍵；其相應(yīng)的VB常數(shù)分別為vbLeftButton，vbRightButton，vbMiddleButton。這些值的總和代表這些按鈕的組合。例如，同時按下左右按鈕的Button參數(shù)值為3（1+2）。常用鼠標(biāo)事件鼠標(biāo)事件的語法格式示例鼠標(biāo)（2）Shift參數(shù)表示當(dāng)鼠標(biāo)鍵被按下或被釋放時，是否同時被按下了Shift、Ctrl、Alt鍵。其取值范圍1~7的整數(shù)。Shift參數(shù)值為1，則按下了Shift鍵；Shift參數(shù)值為2，則按下了Ctrl鍵；Shift參數(shù)值為4，則按下了Alt鍵；其相應(yīng)的VB常數(shù)分別為vbShiftMask，vbCtrlMask，vbAltMask。這些值的總和代表這些鍵的組合。例如，同時按下Shift和Alt鍵的Shift參數(shù)值為5（1+4）。（3）x，y：用來確定鼠標(biāo)按下時鼠標(biāo)的當(dāng)前坐標(biāo)位置。常用鼠標(biāo)事件鼠標(biāo)事件的語法格式示例鼠標(biāo)例8-1編寫一個在窗體上可用鼠標(biāo)畫不同線條寬度的任意曲線程序。分析：MouseDown事件是三種鼠標(biāo)事件中最常用的事件，按下鼠標(biāo)按鈕時就可觸發(fā)此事件。釋放鼠標(biāo)按鈕時，MouseUp事件被觸發(fā)。鼠標(biāo)指針在屏幕上移動時就會觸發(fā)MouseMove事件。當(dāng)鼠標(biāo)指針處在窗體和控件的邊框內(nèi)，窗體和控件均能識別MouseMove事件。MouseDown事件、MouseUp事件和MouseMove事件搭配使用，往往相得益彰。常用鼠標(biāo)事件鼠標(biāo)事件的語法格式示例常用鼠標(biāo)事件鼠標(biāo)事件的語法格式示例鼠標(biāo)程序界面如下：鼠標(biāo)編寫程序代碼如下：DimdrAsBoolean'設(shè)定畫線狀態(tài)PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)dr=True'設(shè)定畫線狀態(tài)Form1.DrawWidth=Val(Text1.Text)'設(shè)定線條寬度CurrentX=X'設(shè)定當(dāng)前橫坐標(biāo)CurrentY=Y'設(shè)定當(dāng)前縱坐標(biāo)EndSub'通過移動鼠標(biāo)畫線PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfdrThenLine-(X,Y)'畫線EndIfEndSub常用鼠標(biāo)事件鼠標(biāo)事件的語法格式示例PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)dr=False'取消畫線EndSub'通過滾動條調(diào)整線條寬度PrivateSubVScroll1_Change()Text1.Text=VScroll1.ValueEndSubPrivateSubCommand1_Click()Cls'清屏EndSub常用鼠標(biāo)事件鼠標(biāo)事件的語法格式示例鼠標(biāo)9.2鍵盤事件鍵盤事件常用鍵盤事件鍵盤事件的語法格式示例鍵盤事件是用戶敲擊鍵盤時觸發(fā)的事件，一般用來檢測輸入數(shù)據(jù)的合法性或?qū)τ诓煌I值的輸入實(shí)現(xiàn)不同的操作。VB中常用的鍵盤事件有：KeyPress事件，KeyDown事件，KeyUp事件。鍵盤事件

1.KeyPress事件

當(dāng)用戶按下和松開一個ASCII字符鍵時發(fā)生KeyPress事件(即KeyPress事件只對能產(chǎn)生ASCII碼的按鍵有反應(yīng))。該事件被觸發(fā)時，被按鍵的ASCII碼將自動傳給事件過程的KeyAscii參數(shù)。在程序中，通過訪問該參數(shù)，即可獲知用戶按下了哪個鍵。其語法格式為：PrivateSubObject_KeyPress(KeyAsciiasInteger)EndSub常用鍵盤事件鍵盤事件的語法格式示例鍵盤事件

1.KeyPress事件注意事項(xiàng)：

Object為可以產(chǎn)生KeyPress事件的對象；KeyAscii參數(shù)為按鍵相對應(yīng)的字符ASCII碼值，大小寫字母的值不同。將KeyAscii改變?yōu)?時，可取消擊鍵，這樣對象便接收不到所按鍵的字符。具有焦點(diǎn)的對象才能接收該事件，如設(shè)置Text1.SetFocus，Text1_KeyPress事件才可以響應(yīng)。常用鍵盤事件鍵盤事件的語法格式示例鍵盤事件

2.KeyDown和KeyUp事件KeyDown和KeyUp事件是當(dāng)一個對象具有焦點(diǎn)時按下或松開一個鍵時發(fā)生的。當(dāng)控制焦點(diǎn)位于某對象時，按下鍵盤的任意一鍵，則會在該對象上觸發(fā)產(chǎn)生KeyDown事件，釋放該鍵時，將觸發(fā)產(chǎn)生KeyUp事件，之后產(chǎn)生KeyPress事件。KeyDown和KeyUp事件的格式：PrivateSubObject_KeyDown(KeyCodeasInteger,ShiftasInteger)PrivateSubObject_KeyUp(KeyCodeasInteger,ShiftasInteger)常用鍵盤事件鍵盤事件的語法格式示例鍵盤事件

2.KeyDown和KeyUp事件注意事項(xiàng)：（1）KeyCode參數(shù)：是按鍵的掃描碼,它的值只與按鍵在鍵盤上的物理位置有關(guān)，與鍵盤的大小寫狀態(tài)無關(guān)。（2）Shift參數(shù)，同鼠標(biāo)事件的Shift參數(shù)取值，指示Shift、Ctrl、Alt鍵的狀態(tài)。只有檢查此參數(shù)才能判斷輸入的是大寫字母還是小寫字母。（3）雖然KeyDown和KeyUp事件可以應(yīng)用于大多數(shù)鍵，但一般用來處理不被KeyPress識別的擊鍵，如功能鍵、編輯鍵、定位鍵以及任何這些鍵和鍵盤換擋鍵的組合等。（4）Tab鍵不能引用KeyDown和KeyUp事件；命令按鈕的Default屬性設(shè)置為True時，Enter鍵不能引用KeyDown和KeyUp事件；命令按鈕的Cancel屬性設(shè)置為True時，Esc鍵不能引用KeyDown和KeyUp事件；常用鍵盤事件鍵盤事件的語法格式示例鍵盤事件【例9-2】在文本框中輸入用戶的用戶名和密碼，并在輸入時檢測按鍵的有效性，要求用戶名必須為字母構(gòu)成，長度不超過8位，密碼的長度不得少于4位。常用鍵盤事件鍵盤事件的語法格式示例程序界面如下：鍵盤事件常用鍵盤事件鍵盤事件的語法格式示例編寫程序代碼如下：“確定”按鈕Command1的Click事件為：PrivateSubCommand1_Click()IfTrim(Text1.Text)="admin"AndTrim(Text2.Text)="123456"ThenMsgBox"合法用戶，請繼續(xù)使用！"ElseMsgBox"非法用戶，請重新登錄！"EndEndIfEndSub“取消”按鈕Command2的Click事件為：PrivateSubCommand2_Click()EndEndSub鍵盤事件文本框Text1的KeyPress事件為：PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii<65OrKeyAscii>122Or(KeyAscii<97AndKeyAscii>90)OrLen(Trim(Text1.Text))>8ThenMsgBox"用戶名長度長于8位或含有非字母字符",vbOKOnly,"輸入出錯!"KeyAscii=0Text1.SetFocusEndIfEndSub文本框Text2的Validate事件為：PrivateSubText2_Validate(CancelAsBoolean)IfLen(Trim(Text2.Text))<4ThenMsgBox"密碼長度小于4位",vbOKOnly,"輸入出錯!"Text2.Text=""Cancel=TrueEndIfEndSub常用鍵盤事件鍵盤事件的語法格式示例鍵盤事件【例9-3】使用Keydown事件及Shift參數(shù)來區(qū)分字符的大小寫。常用鍵盤事件鍵盤事件的語法格式示例程序界面如下：鍵盤事件常用鍵盤事件鍵盤事件的語法格式示例編寫程序代碼如下：PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)'vbKeyA是鍵盤a的鍵盤代碼常數(shù)，Shift=1表示檢測到Shift鍵IfKeyCode=vbKeyAAndShift=1ThenDimbAsIntegerb=MsgBox("你按下了大寫A鍵",vbOKOnly,"確認(rèn)框")EndIfEndSub

鍵盤事件常用鍵盤事件鍵盤事件的語法格式示例KeyPressKeyDown和KeyUp事件發(fā)生的時間輸入一個ASCII字符按任意一個鍵參數(shù)值KeyAscii接收到字符的ASCII值KeyCode接收到鍵的掃描碼按Shift+A時事件發(fā)生的次數(shù)事件發(fā)生一次事件發(fā)生兩次按Shift+A時參數(shù)值(鍵盤處于大寫狀態(tài))97第一次是16第二次是65按Shift+A時參數(shù)值(鍵盤處于小寫狀態(tài))65第一次是16第二次是65KeyPress與KeyDown和KeyUp事件的有很大的區(qū)別。鍵盤事件的具體說明如下表的

鍵盤事件說明9.3拖放拖放拖放包括兩個操作：拖動(Drag)：指按下鼠標(biāo)并拖著控件移動；放下(Drop)：指釋放鼠標(biāo)鍵。在拖放操作中，通常把原來位置的對象為源對象，將要放下位置處的對象為目標(biāo)對象。1.拖放的概念拖放與拖放有關(guān)的屬性有：DragMode和DragIcon。（1）DragMode屬性功能：確定拖放操作方式是自動方式還是手動方式，取值為0或1。0：(缺省)，手工拖動模式；1：自動拖動模式。DragMode屬性為1時，則該對象不再接收Click事件和MouseDown事件。（2）DragIcon屬性拖動過程中顯示的圖標(biāo)(.ico或.cur文件)?？梢栽诔绦蛑杏肔oadPicture()函數(shù)加載或通過其他控件的Picture屬性賦值。2.拖放的屬性拖放(1)DragDrop事件當(dāng)一個控件拖動到一個目標(biāo)對象上時，觸發(fā)DragDrop事件。其語法格式為：PrivateSubObject_DragDrop(SourceasControl,XasSingle,YasSingle)說明：Source：指正在被拖動的控件，即源對象。X，Y：是松開鼠標(biāo)鍵時鼠標(biāo)指針在目標(biāo)對象中的坐標(biāo)值。3.拖放的事件拖放(2)DragOver事件當(dāng)拖動對象越過一個控件時便觸發(fā)該控件的DragOver事件。其語法格式為：PrivateSubObject_DragOver(SourceasControl,XasSingle,YasSingle,StateasInteger)說明：Object：表示拖放操作過程中源對象所處位置下方的控件。Source、X、Y參數(shù)含義同DragDrop事件。State：表示源對象被拖動的狀態(tài)。取值為0、1、2，分別表示鼠標(biāo)光標(biāo)正進(jìn)入控件的區(qū)域、正退出控件的區(qū)域及正位于控件的區(qū)域之內(nèi)。3.拖放的事件拖放與拖放有關(guān)的方法是Drag方法。當(dāng)DragMode為0時，才需用Drag方法啟動拖放。當(dāng)然，也可對DragMode屬性設(shè)置為1的對象使用Drag方法。其語法格式為：Object.Drag[Action]說明：（1）Action是一個數(shù)值，取0、1、2。0：其常數(shù)為vbCancel，表示取消拖放操作；1(缺省)：其常數(shù)為vbBeginDrag，表示開始拖放操作；2：其常數(shù)為vbEndDrag，表示結(jié)束拖放操作。（2）只有在控件沒有焦點(diǎn)時才能被拖動。為防止控件獲得焦點(diǎn)，可將TabStop屬性設(shè)置為False。4.拖放的方法拖放【例9-4】設(shè)計一個應(yīng)用程序。窗體上有三個控件，分別是圖像框(笑臉)控件，命令按鈕(安裝)控件和圖片框(回收站)控件，要求圖像框和命令按鈕控件可以在窗體中隨意拖動到不同的位置。當(dāng)把圖像框拖到圖片框(回收站)上釋放鼠標(biāo)左鍵時，提示是否刪除該對象，若選擇刪除，則窗體中圖像框消失，圖片框中回收站圖片改變。若將命令按鈕拖到圖片框上釋放鼠標(biāo)左鍵時，提示“不能刪除此對象”信息。分析：

在窗體上分別拖動三個控件：Image1、Picture1、Command1，并分別設(shè)置Picture屬性和TabStop屬性設(shè)為False。拖放程序界面如下圖所示：拖放PrivateSubForm_DragDrop(SourceAsControl,XAsSingle,YAsSingle)'將拖放的源對象移到新位置Source.MoveX-Source.Width/2,Y-Source.Width/2EndSubPrivateSubPicture1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=1Then'判斷是否按下左鍵Picture1.Drag1'手工啟動拖放EndIfEndSub編寫程序代碼如下：拖放PrivateSubCommand1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=1Then'判斷是否按下左鍵Command1.Drag1'手工啟動拖放EndIfEndSubPrivateSubImage1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=1Then'判斷是否按下左鍵Image1.Drag1'手工啟動拖放EndIfEndSub程序代碼續(xù)1拖放PrivateSubPicture1_DragDrop(SourceAsControl,XAsSingle,YAsSingle)IfTypeOfSourceIsImageThen'判斷拖動源的類型IfMsgBox("確實(shí)要刪除此對象嗎？",vbYesNo,"操作提示")=vbYesThenPicture1.Picture=LoadPicture(App.Path+"\RECYFULL.ICO")Source.Visible=False'隱藏源控件ElseImage1.Drag0'取消控件的拖放操作EndIfElseMsgBox"對不起，此對象不能刪除！"EndIfEndSub程序代碼續(xù)2拖放PrivateSubCommand1_DragDrop(SourceAsControl,XAsSingle,YAsSingle)IfTypeOfSourceIsImageThenIfMsgBox("確實(shí)要刪除此對象嗎？",vbYesNo,"操作提示")=vbYesThenPicture1.Picture=LoadPicture(App.Path+"\RECYFULL.ICO")Source.Visible=FalseElseImage1.Drag0EndIfElseMsgBox"對不起，此對象不能刪除！"EndIfEndSub程序代碼續(xù)3

9.4使用OLE控件使用OLE控件VB提供了一個OLE容器控件（在工具箱中），用于容納“鏈接”對象或“嵌入”對象，也就是說，可以使用OLE容器控件來插入對象。采用OLE技術(shù)開發(fā)的應(yīng)用程序可以集成其他軟件的功能，而不用重復(fù)開發(fā)相同功能。

例如，你可以通過Word、Excel、Mail、Microsoft

Graph等建立起一個包含文字處理、電子報表、電子郵件和統(tǒng)計圖形功能的綜合性辦公自動化系統(tǒng)軟件。9.4.1添加OLE容器控件在Visual

Basic的工具箱右下角，可以找到OLE控件，開發(fā)時直接使用該控件就可以開發(fā)出OLE應(yīng)用程序。使用OLE控件【例9-5】在VB程序中使用Excel表格。分析：程序設(shè)計步驟如下（如圖9-5所示）：（1）創(chuàng)建工程和窗體Form1；（2）單擊工具箱中的OLE控件，在窗體Form1上拖動鼠標(biāo)設(shè)置控件的大小和位置，釋放鼠標(biāo)后，屏幕出現(xiàn)“插入對象”對話框。（3）在列表框中選中“MicrosoftExcel工作表”，單擊“確定”按鈕；（4）窗體中顯示一個空白的Excel表格，在表格中輸入數(shù)據(jù)。（5）單擊窗體的空白區(qū)域，完成對象的創(chuàng)建。9.4.1添加OLE容器控件使用OLE控件在Windows環(huán)境下,OLE控制的對象包括兩種：嵌入對象和鏈接對象，兩者的不同之處在于插入到OLE控件的對象（數(shù)據(jù)）存放的位置。嵌入對象：當(dāng)嵌入一個對象時，與該嵌入對象相關(guān)聯(lián)的數(shù)據(jù)存儲在OLE自定義控制項(xiàng)中，并可以存入文件、剪切或拷貝至剪貼板，還可以被編輯（通過容器應(yīng)用程序）。嵌入對象的數(shù)據(jù)是完全存放在嵌入的應(yīng)用程序中，在該應(yīng)用程序中能完全控制數(shù)據(jù)，而其它軟件是不能訪問嵌入對象和它的數(shù)據(jù)，嵌入對象只能由被嵌入應(yīng)用程序獨(dú)占。鏈接對象：當(dāng)鏈接一個對象時，與這個鏈接的對象相關(guān)聯(lián)的數(shù)據(jù)存儲在創(chuàng)建該對象的應(yīng)用程序中。只有該數(shù)據(jù)的預(yù)留位置是存放在OLE自定義控制項(xiàng)中，數(shù)據(jù)本身并不存放在OLE自定義控制項(xiàng)中。鏈接對象則只是把對象中包含的數(shù)據(jù)的指針（地址）插入到應(yīng)用程序中去，在該應(yīng)用程序中可以訪問鏈接對象的數(shù)據(jù)，但其他軟件也可以訪問到該對象的數(shù)據(jù)。9.4.2嵌入對象和鏈接對象的區(qū)別使用OLE控件9.4.3設(shè)計階段使用OLE容器控件在9.1節(jié)中我們借助“插入對象對話框”，在應(yīng)用程序中沒有編寫任何代碼就為OLE控件創(chuàng)建了一個嵌入對象，如果要創(chuàng)建鏈接對象的話，則只需在圖9-5中選擇“從文件創(chuàng)建”，并指定鏈接的文檔即可（選擇“鏈接”選項(xiàng)），如圖9-6所示。設(shè)計時創(chuàng)建對象的另一方法是使用“特殊粘貼”對話框。使用OLE控件我們也可以編程來創(chuàng)建嵌入或鏈接對象。通過OLE控件的44個屬性、5個方法和14個事件過程，可以實(shí)現(xiàn)對OLE對象的自定義控制。OLE容器控件的常用屬性有：（1）AutoActivate：設(shè)置激活方式：0-Mannuao：手工激活；1-GetFocus：獲得焦點(diǎn)時被激活；2-DoubleClick：為缺省值，指雙擊時被激活；3-Automatic：自動的。9.4.4程序運(yùn)行階段使用OLE容器控件使用OLE控件（2）Class屬性（類屬性）格式為：object.class類名包含幾個部分：application.objecttype.version類名：說明對象類型Application：提供對象的應(yīng)用程序名Objecttype：在對象庫中定義的對象名Version：提供對象的應(yīng)用程序的版本號例如：Excel.Sheet.8（3）DisplayType：指出OLE對象是顯示對象內(nèi)容還是只顯示圖標(biāo)。（4）HostName：VisualBasic應(yīng)用名。（5）OLETypeAllowed屬性返回或設(shè)置OLE容器控件所能包含的對象類型。語法為：object.OLETypeAllowed[=value]其中value的值設(shè)置如表9-2所示。9.4.4程序運(yùn)行階段使用OLE容器控件使用OLE控件（6）SizeMode：OLE對象如何改變大?。?-對象按實(shí)際大小顯示，如果對象超出控制則被截斷；1-對象所包含的圖像適合控制的大小；2-控制適合對象的大小。（7）SourceDoc屬性指定鏈接或嵌入對象時使用的源文件名。語法為：object.sourceDoc[=name]name：指定文件名的字符串表達(dá)式。（8）Action屬性：指定作用在OLE控件上的動作（如建立、刪除、啟動等）。語法為：object.Action=value9.4.4程序運(yùn)行階段使用OLE容器控件使用OLE控件【