




免費(fèi)預(yù)覽已結(jié)束,剩余1頁(yè)可下載查看
下載本文檔
版權(quán)說(shuō)明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡(jiǎn)介
WordVBA-ActiveX控件在Word文檔中的使用方法當(dāng)您想要提供一種完善的方式讓用戶與宏直接進(jìn)行交互、而不受對(duì)話框干擾的時(shí)候,可以向文檔直接添加ActiveX控件,這如同可以向自定義對(duì)話框添加 ActiveX 控件一樣。使用以下過(guò)程可以將 ActiveX 控件添加到您的文檔。1、 向文檔中添加控件您可以向文檔的圖形層或文本圖層添加ActiveX 控件。向圖形層添加控件:?jiǎn)螕艨丶ぞ呦渖系目丶?。拖?dòng)控件的調(diào)整控點(diǎn),直到控件的輪廓大小和形狀符合要求。向文本層添加控件:請(qǐng)?jiān)诎醋?SHIFT 鍵的同時(shí)單擊控件工具箱上的控件。該控件將自動(dòng)添加到文檔中的插入點(diǎn)。注釋?zhuān)簩⒁粋€(gè)控件(或一組控件)從窗體拖回控件工具箱,即可創(chuàng)建一個(gè)可重復(fù)使用的該控件的模板。這是一個(gè)非常有用的功能,能為用戶實(shí)現(xiàn)標(biāo)準(zhǔn)的應(yīng)用程序界面。2、 設(shè)置控件屬性在設(shè)計(jì)階段(宏運(yùn)行之前)可以設(shè)置一些 ActiveX 控件的屬性。在設(shè)計(jì)模式中,右鍵單擊一個(gè)控件并單擊右鍵菜單中的屬性以顯示屬性窗口。屬性名稱(chēng)顯示在窗口的左欄,而屬性值顯示在右欄??稍趯傩悦Q(chēng)的右邊輸入新值來(lái)設(shè)置該屬性的值。3、 初始化控件屬性您可以通過(guò)在宏中使用 Visual Basic 代碼在運(yùn)行時(shí)初始化ActiveX 控件。例如,您可在其中填充列表框中,設(shè)置文本值或設(shè)置選項(xiàng)按鈕。以下示例使用 Visual Basic 的 AddItem 方法將數(shù)據(jù)添至名為 lstRegions 的列表框,然后設(shè)置文本框的值并顯示窗體。Private Sub GetUserName() With UserForm1 .lstRegions.AddItem North .lstRegions.AddItem South .lstRegions.AddItem East .lstRegions.AddItem West .txtSalesPersonID.Text = 00000 .Show . End With End Sub也可使用窗體的 Visual Basic Initialize 事件中的代碼為窗體上的控件設(shè)置初始值。在 Initialize 事件中設(shè)置控件初始值的好處在于,初始化代碼將保留在窗體中??梢詫⒋绑w復(fù)制到其他項(xiàng)目,并且當(dāng)運(yùn)行 Show 方法顯示對(duì)話框時(shí),將初始化控件。Private Sub UserForm_Initialize() With UserForm1 With .lstRegions .AddItem North .AddItem South .AddItem East .AddItem West End With .txtSalesPersonID.Text = 00000 End With End Sub4、 控件和對(duì)話框事件在向?qū)υ捒蚧蛭臋n中添加了ActiveX 控件后,應(yīng)添加事件過(guò)程以決定控件如何響應(yīng)用戶操作。用戶窗體和控件有一系列預(yù)定義的事件。例如,命令按鈕具有 Click 事件,在用戶單擊命令按鈕時(shí),該事件發(fā)生,用戶窗體具有 Initialize 事件,在加載窗體時(shí),該事件運(yùn)行。要編寫(xiě)控件或窗體的事件過(guò)程,可雙擊窗體或控件打開(kāi)一個(gè)模塊,然后從過(guò)程下拉列表框中選擇事件。事件過(guò)程包含控件名稱(chēng)。例如,名為 Command1 的命令按鈕的 Click 事件過(guò)程名稱(chēng)為 Command1_Click。如果為事件過(guò)程添加代碼后更改該控件的名稱(chēng),這些代碼仍保留使用原名稱(chēng)的過(guò)程中。例如,假定您為 Commmand1 的 Click 事件添加代碼,然后將該控件重命名為 Command2。在雙擊 Command2 時(shí),將不會(huì)在 Click 事件過(guò)程中看到任何代碼。您需要將代碼從 Command1_Click 移動(dòng)至 Command2_Click。為了簡(jiǎn)化開(kāi)發(fā)過(guò)程,最好在編寫(xiě)代碼之前命名控件。5、 運(yùn)行代碼時(shí)使用控件值當(dāng)運(yùn)行 Visual Basic 代碼時(shí),您可以為ActiveX 控件設(shè)置并返回某些屬性。下面的示例設(shè)置文本框中的Text屬性為Hello。TextBox1.Text = Hello關(guān)閉窗體時(shí),用戶輸入窗體中的數(shù)據(jù)將會(huì)丟失。如果卸載窗體后返回窗體上控件的值,則獲得控件的初始值而不是用戶輸入的值。若要保存輸入窗體中的數(shù)據(jù),可在窗體運(yùn)行時(shí)將信息保存到模塊級(jí)的變量中。以下示例顯示一個(gè)窗體,并在卸載窗體前用公共變量保存窗體數(shù)據(jù)。Code in module to declare public variables Public strRegion As String Public intSalesPersonID As Integer Public blnCancelled As Boolean Code in form Private Sub cmdCancel_Click() Module1.blnCancelled = True Unload Me End Sub Private Sub cmdOK_Click() Save data intSalesPersonID = txtSalesPersonID.Text strRegion = lstRegions.List(lstRegions.ListIndex) Module1.blnCancelled = False Unload Me End Sub Private Sub UserForm_Initialize() Module1.blnCancelled = True End Sub Code in module to display form Sub LaunchSalesPersonForm() frmSalesPeople.Show If blnCancelled = True Then MsgBox Operation Cancelled!, vbExclamation Else MsgBox The Salespersons ID is: & _ intSalesPersonID & _ The Region is: & strRegion End If End Sub當(dāng)控件被添加到文檔之后就能創(chuàng)建可交互的文檔,例如聯(lián)機(jī)窗體。在文檔中使用控件時(shí)需要注意以下幾點(diǎn):可以對(duì)文本圖層或文檔的圖形層添加 ActiveX 控件。若要向圖形層添加控件,請(qǐng)單擊控件工具箱上的控件。若要向文本層添加控件,請(qǐng)?jiān)诎醋?SHIFT 鍵的同時(shí)單擊控件工具箱上的控件。向文本層添加控件是一個(gè)InlineShape對(duì)象,可以通過(guò)InlineShapes集合以編程方式訪問(wèn)的。向圖形層添加控件是一個(gè)Shape對(duì)象,可以通過(guò)Shapes集合以編程方式訪問(wèn)的。文本層中的控件被視為字符,可以像字符那樣置于文本的某一行中。在設(shè)計(jì)模式下,繪圖層中的 ActiveX 控件只能在頁(yè)面視圖或 Web 版式視圖中顯示。如果希望用戶能夠使用 ActiveX 控件但又不改變文檔的版式,可通過(guò)單擊窗體工具欄上的保護(hù)窗體按鈕來(lái)保護(hù)文檔。Microsoft Word 實(shí)施文檔中ActiveX 控件的LostFocus和GotFocus事件。在過(guò)程下拉列表框中列出的其他事件都記錄在 Microsoft 窗體幫助。若要向文檔添加窗體域而非 ActiveX 控件,以創(chuàng)建聯(lián)機(jī)窗體,請(qǐng)使用窗體工具欄。文檔中 ActiveX 控件的事件過(guò)程中的 Me 關(guān)鍵字引用的是文檔而不是控件。編寫(xiě)文檔控件的事件代碼與編寫(xiě)窗體控件的事件代碼很相似。下面的 SpinUp 和 SpinDown 事件過(guò)程改變了包含名為SpinButton1的旋轉(zhuǎn)按鈕控件的文檔中名為T(mén)extBox1的文本框控件的值。當(dāng)用戶單擊下面或左側(cè)的旋轉(zhuǎn)按鈕箭頭時(shí),文本框控件的值將減 1;當(dāng)用戶單擊上面或右側(cè)的旋轉(zhuǎn)按鈕箭頭時(shí),該值將加 1。Private Sub SpinButton1_SpinDown() Me.TextBox1.Value = Me.TextBox1.Value - 1 End SubPrivate Sub SpinButton1_SpinUp() Me.TextBox1.Value = Me.TextBox1.Value + 1 End Sub下面的 Click
溫馨提示
- 1. 本站所有資源如無(wú)特殊說(shuō)明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒(méi)有圖紙預(yù)覽就沒(méi)有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫(kù)網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。
最新文檔
- 簽定禁業(yè)協(xié)議書(shū)
- 煙臺(tái)大學(xué)法學(xué)院協(xié)議書(shū)
- 退賠諒解協(xié)議書(shū)
- 荒地合作協(xié)議書(shū)
- 男人分工協(xié)議書(shū)
- 聘用副總協(xié)議書(shū)
- 蘇聯(lián)撤軍協(xié)議書(shū)
- 租船傭金協(xié)議書(shū)
- 菜品保密協(xié)議書(shū)
- 材料員勞務(wù)聘用協(xié)議書(shū)
- 京滬高速公路施工組織設(shè)計(jì)
- 陜西全過(guò)程工程咨詢(xún)服務(wù)合同示范文本
- 公路水運(yùn)工程施工企業(yè)(主要負(fù)責(zé)人和安全生產(chǎn)管理人員)考核大綱及模擬題庫(kù)
- 1KV送配電調(diào)試報(bào)告
- GB/T 5801-2020滾動(dòng)軸承機(jī)制套圈滾針軸承外形尺寸、產(chǎn)品幾何技術(shù)規(guī)范(GPS)和公差值
- FZ/T 93029-2016塑料粗紗筒管
- 2022年12月山東省普通高中學(xué)業(yè)水平合格性考試語(yǔ)文仿真模擬試卷C(答題卡)
- 塑膠原料來(lái)料檢驗(yàn)指導(dǎo)書(shū)
- 人教版音樂(lè)三年級(jí)下冊(cè)知識(shí)總結(jié)
- 共點(diǎn)力平衡的應(yīng)用-完整版PPT
- 系桿拱橋工程測(cè)量施工方案
評(píng)論
0/150
提交評(píng)論