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

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

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

1.KeyPress事件

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

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

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

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

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

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

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

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

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

例如，你可以通過(guò)Word、Excel、Mail、Microsoft

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

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