日本国产亚洲-日本国产一区-日本国产一区二区三区-日本韩国欧美一区-日本韩国欧美在线-日本韩国欧美在线观看

當前位置:雨林木風下載站 > 技術(shù)開發(fā)教程 > 詳細頁面

VB中用Multimedia MCI控件開發(fā)多媒體應(yīng)用

VB中用Multimedia MCI控件開發(fā)多媒體應(yīng)用

更新時間:2022-05-14 文章作者:未知 信息來源:網(wǎng)絡(luò) 閱讀次數(shù):

VB是微軟公司開發(fā)的32位Window開發(fā)工具軟件,它控制多媒體的手段靈活和多樣,如在VB 中調(diào)用Multimedia MCI控件就容易實現(xiàn)集成音樂和視頻。
  一、Multimedia MCI控件的調(diào)用及說明

  在調(diào)用Multimedia MCI控件之前,須要執(zhí)行“工程\部件”菜單命令,將Microsoft Multimedia Controls前的方框選中,在工具箱中便會出現(xiàn)Multimedia 控件圖標。把 Multimedia 控件添加到窗體上。當你打開有效的多媒體設(shè)備并且控件可用時,系統(tǒng)會自動完成相應(yīng)工作。按鈕被分別定義為:Prev、 Next、 Play、 Pause、 Back、 Step、 Stop、 Record 和 Eject。你可以為某一個按鈕編寫程序,從而為其增加特殊功能,但一般情況,缺省的按鈕功能就能很好地播放音樂和視頻。
  在引用控件時,你須要指定控件的Device Type 屬性,也可以缺省,對于復(fù)雜的MCI設(shè)備和播放CD音樂你必須要說明。格式是MMControl1.Device Type=Devname。下表列出了Multimedia控件支持的多媒體設(shè)備。
  在Multimedia控件中非常有用的一個屬性是Command,它在運行過程中向多媒體設(shè)備發(fā)出命令。格式是:MMControl.Command = cmdstringS,其中cmdstringS變量與每一個按鈕的定義名稱一致。此外,還有Mode、Wait、Shareable、Notify、UpdateInterval、Position、Length等屬性和Done、StatusUpdate事件是我們經(jīng)常用到的。
  二、示例程序

  下面是一個用Multimedia控件集成音樂和視頻的應(yīng)用程序,它可播放*.wav、*.mid、*.avi文件,可顯示打開文件的時間長度和在播放時的進度,并在狀態(tài)欄里有相關(guān)的說明。編程如下:
  1.設(shè)計窗體
  新建工程,在部件中分別引入Multimedia控件、Common Dialog Control 、Windows Common Control,在窗體中分別加入CommonDialog、MMControl、Slider、Status Bar、CheckBox。Label(1-3)分別放在Slider 下的左端、中間和右端,并在窗體上加一個菜單。將Slider的SelectRange的復(fù)選框選定,設(shè)置Smallchange和Maxchange為10,TickFrequengcy為20。在Status Bar的屬性中的Panels項用鼠標點擊Insert Panels 5 次。Index有5項,在Index第一項、第三項的Text項中分別輸入“剩余時間”、“總時間”,適當設(shè)置每一項的Minimun Width(可參見后面對Panels的控制)。將CheckBox的Caption改為“循環(huán)”,把3個Label的Caption都改為空字符串。最后進入菜單編輯器,設(shè)置標題為“文件”,名稱MnuFile;在“文件”下設(shè)立子菜單標題分別為“&Open”、“&Close”、“&Exit”,名稱分別為MnuOpen、MnuClose、MnuExit(在MnuExit_Click()事件填完代碼后,要將其設(shè)為無效)。設(shè)計后如圖1所示。

  2.控件代碼

  本示例的源程序如下:
  Private Sub MnuOpen_Click()
  ′ 設(shè)定打開文件類型
  CommonDialog1.Filter = ″MIDI音樂序器*.mid|*.mid|聲音*.wav|*.wav|Widows視頻*.avi|*.avi″
  CommonDialog1.ShowOpen
  MMControl1.Notify = False
  MMControl1.Wait = True
  MMControl1.Shareable = False
  ′由系統(tǒng)默認設(shè)備類型
  MMControl1.DeviceType = ″″
  MMControl1.filename = CommonDialog1.filename
  ′ 打開 MCI 設(shè)備。
  MMControl1.Command = ″Open″
  MnuClose.Enabled = True
  Slider1.Visible = True
  End Sub
  Private Sub MMControl1_StatusUpdate()
  On Error GoTo Erropen
  ′設(shè)置文件長度以毫秒形式返回,
  MMControl1.TimeFormat = 0
  Slider1.Max = MMControl1.Length / 1000
  If MMControl1.Position <> MMControl1.Length Then
  Slider1.Value = MMControl1.Position / 1000
  Else
  MMControl1.Command = ″Prev″
  Slider1.Value = 0
  End If
  ′調(diào)用Tstring函數(shù)計算剩余時間和總時間
  StatusBar1.Panels(2) = Tstring(MMControl1.Length - MMControl1.Position)
  StatusBar1.Panels(4) = Tstring(MMControl1.Length)
  Label1.Caption = ″00:00″
  Label2.Caption = Tstring(MMControl1.Length / 2)
  Label3.Caption = Tstring(MMControl1.Length)
  ′ 由Mode返回不同值并在狀態(tài)欄經(jīng)出相應(yīng)的提示
  Select Case MMControl1.Mode
  Case 524
  StatusBar1.Panels(5) = ″ 未打開設(shè)備……″
  Case 525
  StatusBar1.Panels(5) = ″停止狀態(tài)……″
  Case 526
  StatusBar1.Panels(5) = ″正在播放……″ & CommonDialog1.FileTitle
  Case 527
  StatusBar1.Panels(5) = ″正在錄音……″
  Case 528
  StatusBar1.Panels(5) = ″正在搜索……″
  Case 529
  StatusBar1.Panels(5) = ″暫停播放……″
  Case 530
  StatusBar1.Panels(5) = ″設(shè)備就緒……″
  End Select
  Erropen:
  ′ 放棄打開文件
  End Sub
  ′ 自定義將毫秒轉(zhuǎn)化為分、秒Tstring函數(shù)
  Private Function Tstring(sm As Long) As String
  s = (sm / 1000 / 60) Mod 60
  m = (sm / 1000) Mod 60
  Tstring = Format(s, ″00″) & ″;″ & Format(m, ″00″)
  End Function
  Private Sub MMControl1_Done(NotifyCode As Integer)
  MMControl1.UpdateInterval = 100 ′ 間隔100毫秒
  End Sub
  Private Sub MnuClose_Click()
  MMControl1.Command = ″Close″
  MnuClose.Enabled = False
  End Sub
  Private Sub MnuExit_Click()
  MMControl1.Command = ″Close″
  End
  End Sub
  Private Sub Check1_Click()
  If Check1.Value = 1 Then
  MMControl1.Command = ″Play″ ′ 繼續(xù)播放
  End If
  End Sub
  此外,欲在當前窗口播放*.avi文件,可在窗體加一個PictureBox,在Private Sub MMControl1_StatusUpdate()中加入MMControl1.hWndDisplay = Picture1.hWnd一句。運行時如圖2。
(本程序在VB5.0,PⅡ350中通過)

溫馨提示:喜歡本站的話,請收藏一下本站!

本類教程下載

系統(tǒng)下載排行

主站蜘蛛池模板: 女人18毛片免费视频播放 | 狠狠色噜噜狠狠狠狠97老肥女 | 中文字幕一区二区三区精品 | 欧美日韩一区二区综合 | 大伊香蕉在线精品视频人碰人 | 91视频色版 | 欧美一区日韩精品 | 99久久精品毛片免费播放 | 欧美另类videosbestsex日本 | 亚洲xxx视频 | xnxx免费视频 | 亚洲成人黄色网 | 性做久久久久久坡多野结衣 | 精品国产成人在线 | 亚洲跨种族黑人xxx 亚洲另类 专区 欧美 制服 | 中文字幕乱码视频中文字幕14 | 人人做人人看 | 日韩一区二区在线免费观看 | 中国泡妞ssswww免费 | 国产xxxxx视频 | 日韩欧美亚洲每日更新网 | 亚洲a影院 | 久久久综合九色合综国产 | 色四虎 | 日韩毛片欧美一级a网站 | 久久草影视 | 国产亚洲99影院 | 美女网站在线免费观看 | 亚洲综合欧美 | 免费观看国产视频 | 日韩 亚洲 欧美 中文 高清 | 国产精品亚洲精品日韩已满 | 国产精品日日摸夜夜添夜夜添1 | 亚洲综合在线最大成人 | 欧美噜噜 | 欧美一级特黄aaaaaa在线看首页 | 亚洲精品网站在线观看不卡无广告 | 日本高免费观看在线播放 | 超级碰碰碰免费视频 | 日韩久久精品视频 | 亚洲激情专区 |