【正文】 ile(MIDI文件 )、 mplayer(媒體播放器 )、 soundrec(錄音 )、 pbrush(畫(huà)筆圖形 )等。 ?SourceDoc屬性 這個(gè)屬性是一個(gè)字符串變量，它定義了 OLE控件中數(shù)據(jù)的磁盤(pán)文件 (目錄 \文件名 )，插入對(duì)象窗口將自動(dòng)說(shuō)明這個(gè)屬性，也可以自行設(shè)定。例如，用下面語(yǔ)句指定 AVI視頻文件的位置 : =”c:\windows\funstuff\”。 ?SourceItem屬性 設(shè)定這個(gè)屬性，可以只選擇一個(gè)完整的媒體文件的一部分播放，插入對(duì)象窗口的編輯功能可以設(shè)置這個(gè)屬性，也可用程序設(shè)置，但是要了解服務(wù)程序定義數(shù)據(jù)子集的語(yǔ)法規(guī)則 . 下面介紹的幾個(gè)屬性用于 OLE控件的控制和操作 : ?AutoActive屬性 這個(gè)屬性決定 OLE控件中數(shù)據(jù)的激活方式，各個(gè)值的對(duì)應(yīng)含義分別為 : 0— 程序控制， Action值為 7時(shí)數(shù)據(jù)激活 1— 當(dāng) OLE控件獲得輸入焦點(diǎn)時(shí)數(shù)據(jù)激活 3— 雙擊 OLE控件數(shù)據(jù)激活 ?AutoVerbMenu屬性 決定是否在用戶(hù)在 OLE控件上單擊右鍵時(shí)顯示包含對(duì)象控制動(dòng)詞的彈出式菜單。 ?FileNumber屬性 提供一個(gè)用于 OLE控件中數(shù)據(jù)存儲(chǔ)或加載的文件號(hào)，該文件必須以二進(jìn)制形式打開(kāi)。 ?Action屬性 這個(gè)屬性對(duì) OLE控件中的數(shù)據(jù)操作十分有價(jià)值，用它可以實(shí)現(xiàn)對(duì)數(shù)據(jù)的存儲(chǔ)、加載、播放、編輯、拷貝、粘貼等很多常用操作。每個(gè)值的對(duì)應(yīng)操作和說(shuō)明在表 168中給出。 表 168 OLE控件的 FileNumber屬性 取值 說(shuō) 明 對(duì)應(yīng)方法 0 建立一個(gè)嵌入對(duì)象 CreateEmbed 1 根據(jù)具體文件內(nèi)容建立一個(gè)鏈接式對(duì)象 CreateLink 4 把對(duì)象拷貝到系統(tǒng)剪帖板 Copy 5 把系統(tǒng)前帖板的內(nèi)容拷貝到包含 OLE控制中 Paste 6 把服務(wù)程序?qū)?shù)據(jù)的修改反應(yīng)在包含 OLE的控制中 Update 7 打開(kāi)對(duì)象，根據(jù) Verb屬性的設(shè)定，進(jìn)行響應(yīng)操作 Doverb 9 關(guān)閉 OLE對(duì)象，并結(jié)束提供服務(wù)的程序 Close 10 刪除目前 OLE控件中的數(shù)據(jù)，剩下空的控件 Delete 11 把控件數(shù)據(jù)存儲(chǔ)到由 FileNumber給出的磁盤(pán)文件 SaveToFile 12 讀取有 FileNumber指定文件存儲(chǔ)的數(shù)據(jù) ReadFromFile 14 打開(kāi)插入對(duì)象窗口，可以為 OLE控件建立新的對(duì)象 InsertObjdlg 15 顯示 Pasle Special對(duì)話(huà)框 PasteSpecialDlg 17 修改 OLE控件數(shù)據(jù)所對(duì)應(yīng)的動(dòng)詞表 FetchVerbs 18 以 SaveToOleFile ?Verb屬性 在 AutoActive屬性中，我們介紹了 OLE控件的激活方式 .對(duì)象被激活后做什么，則由這個(gè)屬性設(shè)定，表 169中給出了每個(gè)值通常對(duì)應(yīng)的動(dòng)作 (不同服務(wù)程序?qū)?yīng)的動(dòng)詞數(shù)量和內(nèi)容可能不同 )。 值 說(shuō) 明 0 OLE數(shù)據(jù)的缺省值行為，一般為播放 1 數(shù)據(jù)編輯，此值激發(fā)外部程序?qū)?shù)據(jù)編輯 2 顯示單獨(dú)窗口進(jìn)行數(shù)據(jù)編輯 3 外部數(shù)據(jù)處理程序不可見(jiàn) ? 使用 OLE控件播放 AVI視頻實(shí)例 本實(shí)例程序使用 OLE控件播放 AVI視頻動(dòng)畫(huà)，只需幾行語(yǔ)句即可完成對(duì)動(dòng)畫(huà)的播放，可見(jiàn)使用 OLE控件設(shè)計(jì)多媒體程序是十分簡(jiǎn)便的。表 1610給出了程序中所用控件的屬性說(shuō)明，圖 168是程序運(yùn)行后的 OLE播放器屏幕畫(huà)面。 ?表 1610 各控制對(duì)象的屬性設(shè)置 對(duì) 象 屬 性 設(shè)定值 Form Name Form1 Caption OLE視頻播放 CommandButto Name Command1 Caption 播放 Font 宋體 (12) OLE Name OLE1 AutoActivate 0Manual Class “avifile” SizeMode 2AutoSize SourceDoc c:\winvideo\wndfur 圖 168 利用 OLE技術(shù)實(shí)現(xiàn)的 AVI播放器 程序清單如下： ′ VisualBasic版本 : ′ 初始化表單 Private Sub Form_Load() =3 =” OLE視頻播放 ...” =30 =5 =(+15)* =(+60)*Y End Sub ?播放 OLE控件中的視頻動(dòng)畫(huà) Private Sub mand1_Click(Index As Integer) =0 =7 End Sub ′ 退出時(shí)關(guān)閉 OLE控件 Private Sub FormUnload(Cancel As Integer) =9 End Sub ? 靜夜四無(wú)鄰，荒居舊業(yè)貧。 , February 3, 2023 ? 雨中黃葉樹(shù)，燈下白頭人。 14:47:0314:47:0314:472/3/2023 2:47:03 PM ? 1以我獨(dú)沈久，愧君相見(jiàn)頻。 :47:0314:47Feb233Feb23 ? 1故人江海別，幾度隔山川。 14:47:0314:47:0314:47Friday, February 3, 2023 ? 1乍見(jiàn)翻疑夢(mèng)，相悲各問(wèn)年。 :47:0314:47:03February 3, 2023 ? 1他鄉(xiāng)生白發(fā)，舊國(guó)見(jiàn)青山。 2023年 2月 3日星期五 下午 2時(shí) 47分 3秒 14:47: ? 1比不了得就不比，得不到的就不要。 。 2023年 2月 下午 2時(shí) 47分 :47February 3, 2023 ? 1行動(dòng)出成果，工作出財(cái)富。 2023年 2月 3日星期五 2時(shí) 47分 3秒 14:47:033 February 2023 ? 1做前，能夠環(huán)視四周；做時(shí)，你只能或者最好沿著以腳為起點(diǎn)的射線(xiàn)向前。 下午 2時(shí) 47分 3秒 下午 2時(shí) 47分 14:47: ? 沒(méi)有失敗，只有暫時(shí)停止成功！。 , February 3, 2023 ? 很多事情努力了未必有結(jié)果，但是不努力卻什么改變也沒(méi)有。 14:47:0314:47:0314:472/3/2023 2:47:03 PM ? 1成功就是日復(fù)一日那一點(diǎn)點(diǎn)小小努力的積累。 :47:0314:47Feb233Feb23 ? 1世間成事，不求其絕對(duì)圓滿(mǎn)，留一份不足，可得無(wú)限完美。 14:47:0314:47:0314:47Friday, February 3, 2023 ? 1不知香積寺，數(shù)里入云峰。 :47:0314:47:03February 3, 2023 ? 1意志堅(jiān)強(qiáng)的人能把世界放在手中像泥塊一樣任意揉捏。 2023年 2月 3日星期五 下午 2時(shí) 47分 3秒 14:47: ? 1楚塞三湘接，荊門(mén)九派通。 。 2023年 2月 下午 2時(shí) 47分 :47February 3, 2023 ? 1少年十五二十時(shí)，步行奪得胡馬騎。 2023年 2月 3日星期五 2時(shí) 47分 3秒 14:47:033 February 2023 ? 1空山新雨后，天氣晚來(lái)秋。 下午 2時(shí) 47分 3秒 下午 2時(shí) 47分 14:47: ? 楊柳散和風(fēng)，青山澹吾慮。 , February 3, 2023 ? 閱讀一切好書(shū)如同和過(guò)去最杰出的人談話(huà)。 14:47:0314:47:0314:472/3/2023 2:47:03 PM ? 1越是沒(méi)有本領(lǐng)的就越加自命不凡。 :47:0314:47Feb233Feb23 ? 1越是無(wú)能的人，越喜歡挑剔別人的錯(cuò)兒。 14:47:0314:47:0314:47Friday, February 3, 2023 ? 1知人者智，自知者明。勝人者有力，自勝者強(qiáng)。 :47:0314:47:03February 3, 2023 ? 1意志堅(jiān)強(qiáng)的人能把世界放在手中像泥塊一樣任意揉捏。 2023年 2月 3日星期五 下午 2時(shí) 47分 3秒 14:47: ? 1最具挑戰(zhàn)性的挑戰(zhàn)莫過(guò)于提升自我。 2023年 2月 下午 2時(shí) 47分 :47February 3, 2023 ? 1業(yè)余生活要有意義，不要越軌。 2023年 2月 3日星期五 2時(shí) 47分 3秒 14:47:033 February 2023 ? 1一個(gè)人即使已登上頂峰，也仍要自強(qiáng)不息。 下午 2時(shí) 47分 3秒 下午 2時(shí) 47分 14:47: MOMODA POWERPOINT Lorem ipsum dolor sit amet, consectetur adipiscing elit. Fusce id urna blandit, eleifend nulla ac, fringilla purus. Nulla iaculis tempor felis ut cursus. 感 謝 您 的 下 載 觀(guān) 看 專(zhuān)家告訴