第十五章.pptVIP

第十五章: 多媒體 章節預覽 15.1：OLE控制項 15.1：OLE控制項 本章習題 15-* 15.1 OLE控制項 15.2 Windows API播放語音函式 15.2.1 sndPlaySound函數 15.2.2 mciSendString函數 15.3 本章整合應用實例 通常不同的應用軟體程式之間應該是相互獨立的，換句話說，應該不容易交換難以辨識的特殊資料格式，不過，Windows為了提供使用者更大的彈性，使用了OLE （Object Linking and Embedding）技術來解決這個問題。就目前而言，許多的編譯器都提供了插入OLE物件的功能，例如：VB、VC、BCB、Delphi等等都提供了OLE物件。 OLE範例 許多的應用軟體其實都是透過OLE技術來接受更多種的資料格式，例如在Word文件中可以插入Bmp格式圖片，但是其實Word並無法編輯Bmp格式圖片，Word只是在文件中放置了一個OLE物件，因此，可以嵌入(Embedding)圖片檔，當您在Word的圖片上按兩下，就會開啟小畫家應用程式來編輯圖片。 OLE物件除了嵌入(Embedding)之外，另一個就是連結(Linking)特性，連結是會使得嵌入後的物件資料隨著被嵌入端的資料一起異動，例如在Word文件中嵌入並連結一個Excel長條圖，如果在Excel中改變了繪製長條圖的數值資料，則在Word中所嵌入的長條圖也會更新改變。 15.1：OLE控制項 OLE物件可以嵌入的資料種類繁多，端看您安裝了多少種提供OLE特性的軟體，因此我們可以使用OLE技術嵌入多媒體資料，例如在Word文件中嵌入AVI影音資料，可以參考課本15-3~15-4頁操作 OLE技術使得軟體之間的相容性提高許多，並且可以有效減少撰寫程式碼的時間，不過由於中間經過一層的連結，因此在執行速度上通常會比較慢一點。 建立『OLE收納器』 1:選取OLE收納器工具 2:在表單上拉出OLE收納器控制項大小 3:此時會立刻出現「插入物件」的視窗 4:選取所要放入OLE物件的類型，例如撥放AVI影像檔，就選取此項 5:按下【確定】鈕 6:自動開啟撥放裝置。 15.1：OLE控制項 OLE收納器的屬性 SizeMode AutoActivate SourceDoc 屬性 控制OLE控制項的大小。0：裁剪。以設計介面時，OLE控制項的大小為準，不論原來OLE物件內容的大小有多大，都不會改變改變顯示的大小區域。1：不用依比例縮放。依照物件大小自動延伸，將OLE控制項填滿。2：自動調整收納器。OLE 控制項自動調整大小，使得剛好可以顯示完整物件的原始大小。3：依比例縮放。物件儘可能地被延伸將OLE控制項填滿。 設定OLE物件的啟動方式。0：由程式碼控制。1：取得停駐點時就啟動。2 (預設值)：滑鼠在物件上按兩下後啟動。3：自行判斷。 用來取得所嵌入物件的路徑與檔名。 說明 OLE收納器的方法 【實作範例15-1】：使用OLD收納器控制項撥放影像檔、音樂檔與音效檔。 上機實作 Step1：專案名稱為『p15_01』。 Step2：表單如右圖。 Step3：執行程式。(不必編輯程式碼) Close DoVerb CreateEmbed 方法 關閉物件。（例如：停止播放影片或結束圖片編輯。） 開啟物件並進行相關動作（例如：播放影片或編輯圖片）。 嵌入一個物件。例：OLE1.CreateEmbed C:\vb6\ch15\GLOBE.AVI 功能 15.1：OLE控制項 【實作範例15-2】：讓使用者指定要撥放的OLE檔案。 上機實作 Step1：專案名稱為『p15_02』。 Step2：表單如下圖。 Step3：編輯下頁程式碼。 Step4：執行程式。 15.1：OLE控制項 Private Sub cmdOpen_Click() Dim file_name dlgMedia.InitDir = C:\vb6\ch15\ dlgMedia.Filter = 影像檔*.avi|*.avi|音樂檔*.mid|*.mid|音效檔*.wav|*.wav dlgMedia.FilterIndex = 0 dlgMedia.ShowOpen file_name = dlgMedia.FileName If file_name Then oleMedia.CreateEmbed file_name End IfEnd SubPrivate Sub cmdPlay_Click() If oleMedia.SourceDoc Then oleMedia.DoVerb End IfEnd Sub 56789