九色国产,午夜在线视频,新黄色网址,九九色综合,天天做夜夜做久久做狠狠,天天躁夜夜躁狠狠躁2021a,久久不卡一区二区三区

認(rèn)識(shí)MMControl控件MMControl控件包含一組高層次的獨(dú)立于設(shè)備的命令，通過這些命令可以控制音頻和視頻等外圍設(shè)備，包括CD、VCD、WAV、MIDI、AVI等。MMControl控件屬于ActiveX控件，使用前應(yīng)首先將其添加到工具箱中。選擇“工程”/“部件”命令，打開“部件”對(duì)話框，選擇Microsoft Multimedia Control 6.0 SP3），單擊“確定”按鈕將其添加到工具箱中，在工具箱中雙擊 圖標(biāo)，即可將其添加到窗體上，添加過程如圖1所示。圖1  MMControl控件添加過程從上圖可以看出，窗體上的MMControl控件，由多個(gè)按鈕組成，這些按鈕從左到右依次是：起始點(diǎn)、終止點(diǎn)、播放、暫停、后退、前進(jìn)、停止、錄制和彈出。它們的功能是管理MCI設(shè)備和播放音頻或視頻文件。MMControl控件的屬性1.Command屬性用于指定將要執(zhí)行的MCI命令，以控制播放、存儲(chǔ)多媒體文件誶，這些命令及功能如表1所示。表1                              MCI命令命令功能Open打開MCI設(shè)備Close關(guān)閉MCI設(shè)備Play用MCI設(shè)備進(jìn)行播放Pause暫停播放或錄制Stop停止MCI設(shè)備Back向后步進(jìn)可用的曲目Step向前步進(jìn)可用的曲目Prev使用Seek命令跳到當(dāng)前曲目的起始位置。若在前一Prev命令執(zhí)行后3s內(nèi)再次執(zhí)行，則跳到前一曲目的起始位置；若已在第一個(gè)曲目，則跳到第一個(gè)曲目的起始位置Next使用Seek命令跳到下一個(gè)曲目的起始位置。若已在最后一個(gè)曲目，則跳到最后一個(gè)曲目的起始位置Seek向前或向后查找曲目Record錄制MCI設(shè)備的輸入Eject從CD驅(qū)動(dòng)器中彈出音頻CDSave保存打開的文件實(shí)際編程中，常用命令為open、play和close。例如：打開一個(gè)多媒體文件：MMControl1.FileName = "filename"MMControl1.Command = "open"上述代碼中的filename是指定要打開的文件多媒體文件名及路徑，如果需要自動(dòng)識(shí)別該路徑，可將多媒體文件放在工程所在的文件夾，然后使用App.Path。播放多媒體文件：MMControl1.Command = "Open"關(guān)閉多媒體文件：MMControl1.Command = "Close"例  窗體加載時(shí)，播放背景音樂，窗體卸載時(shí)，關(guān)閉背景音樂，代碼如下。Private Sub Form_Load()'播放背景音樂With MMControl1.Visible=False                                                      '設(shè)置MMControl1控件不可見.FileName = App.Path & "\back\mr.wav"               '指定聲音文件.Command = "Open"                                            '打開多媒體文件.Command = "play"                                              '播放多媒體文件End WithEnd SubPrivate Sub Form_Unload (Cancel as Integer)Form1.MMControl1.Command = "Close"                    '關(guān)閉多媒體文件End Sub2.DeviceType屬性指定要打開的MCI設(shè)備的類型，這些類型及說明如表2所示。表2                     DeviceType屬性設(shè)置值設(shè)備類型設(shè)置值文件類型說明CD audiocdaudio-音頻CD播放器Digital Audio Tapedat-數(shù)字音頻磁帶播放器Digital video(not GDI-based)DigitalVideo-窗口中的數(shù)字視頻OtherOther-未定義MCI設(shè)備OverlayOverlay-覆蓋設(shè)備ScannerScanner-圖像掃描儀SequencerSequencer.mid音響設(shè)備數(shù)字接口（MIDI）序列發(fā)生器VcrVCR-視頻磁帶錄放器AVIAVIVideo.avi視頻文件VCDmpegVideo.dat視頻文件videodiscVideodisc-視頻播放器waveaudioWaveaudio.wav播放數(shù)字波形文件的音頻設(shè)備DeviceType屬性一般可以不設(shè)置，但是以下兩種情況必須設(shè)置。（1）播放CD、VCD時(shí)，必須指定設(shè)備類型。（2）如果文件的擴(kuò)展名沒有指定將要使用的設(shè)備類型，那么打開復(fù)雜MCI設(shè)備時(shí)也必須指定設(shè)備類型。3.TimeFormat屬性用來指定所有位置信息所使用的時(shí)間格式，其設(shè)置值為0～10，如表3所示。表3                 TimeFormat屬性的設(shè)置值值常量說明0mciFormatMilliseconds毫秒數(shù)用四字節(jié)整數(shù)變量保存1mciFormatHms小時(shí)數(shù)、分鐘數(shù)和秒數(shù)被壓縮到一個(gè)四字節(jié)整數(shù)中。從最低有效字節(jié)到最高有效字節(jié)，這四個(gè)數(shù)分別是：小時(shí)數(shù)（最低有效字節(jié)）/分鐘數(shù)/秒數(shù)/未使用（最高有效字節(jié)）2mciFormatMsf分鐘數(shù)、秒數(shù)和幀被壓縮到一個(gè)四位的整數(shù)中。從最低有效字節(jié)到最高有效字節(jié)，這四個(gè)數(shù)分別是：分鐘數(shù)（最低有效字節(jié)）/秒數(shù)/幀/未使用（最高有效字節(jié)）3mciFormatFrames幀用四字節(jié)的整數(shù)變量保存4mciFormatSmpte2424-幀SMPTE將以下數(shù)值壓縮到一個(gè)四字節(jié)的整數(shù)中。從最低有效字節(jié)到最高有效字節(jié)，這四個(gè)數(shù)分別是：小時(shí)數(shù)（最低有效字節(jié)）/分鐘數(shù)/秒數(shù)/幀（最高有效字節(jié)）SMPTE（動(dòng)畫和電視工程師協(xié)會(huì)）時(shí)間是一種絕對(duì)的時(shí)間格式，它按小時(shí)數(shù)、分鐘數(shù)、秒數(shù)和幀的格式顯示。標(biāo)準(zhǔn)的SMPTE的分度類型有24、25和30幀每秒5mciFormatSmpte2525-幀SMPTE按照與24-幀SMPTE相同的順序?qū)?shù)據(jù)壓縮到一個(gè)四字節(jié)變量中6mciFormatSmpte3030-幀SMPTE按照與24-幀SMPTE相同的順序?qū)?shù)據(jù)壓縮到一個(gè)四字節(jié)變量中7mciFormatSmpte30Drop30-放下-幀SMPTE按照與24-幀SMPTE相同的順序?qū)?shù)據(jù)壓縮到一個(gè)四字節(jié)變量中8mciFormatBytes字節(jié)數(shù)用四字節(jié)整數(shù)變量保存9mciFormatSamples示例用四字節(jié)整數(shù)變量保存10mciFormatTmsf曲目、分鐘數(shù)、秒數(shù)和幀被壓縮到一個(gè)四字節(jié)整數(shù)中。從最低有效字節(jié)到最高有效字節(jié)，它們分別是：曲目（最低有效字節(jié)）/分鐘數(shù)/秒數(shù)/幀（最高有效字節(jié)）3.From屬性指定開始播放文件或錄制文件的開始時(shí)間。4.To屬性與From屬性對(duì)應(yīng)，指定播放文件或錄制文件的結(jié)束時(shí)間。5.Position屬性該屬性用于返回正在播放的多媒體文件的位置，時(shí)間單位由TimeFormat屬性決定。6.Length屬性用于規(guī)定打開的MCI設(shè)備上多媒體文件的總體播放長度，時(shí)間單位由TimeFormat屬性決定。7.Start屬性該屬性指定當(dāng)前正在播放的多媒體文件的起始位置，時(shí)間單位由TimeFormat屬性決定。8.Mode屬性返回打開的MCI設(shè)備的當(dāng)前模式，其設(shè)置值如表4所示。表4                                                 Mode屬性的設(shè)置值值常數(shù)/設(shè)備模式說明524mciModeNotOpen設(shè)備沒有打開525mciModeStop停止526mciModePlay正在播放527mciModeRecord正在錄制528mciModeeek正在搜索529mciModePause暫停530mciModeReady設(shè)備準(zhǔn)備好例  播放背景音樂，并顯示當(dāng)前狀態(tài)。（1）啟動(dòng)VB，新建一個(gè)工程，將MMControl控件添加到工具箱中。（2）在窗體上添加一個(gè)MMControl控件和一個(gè)Label控件，均使用默認(rèn)名稱。（3）切換到代碼窗口，編寫如下代碼。Private Sub Form_Load()With MMControl1.FileName = App.Path & "\back\mr.wav"                      '指定多媒體文件.Command = "Open"                                                   '打開多媒體文件.Command = "play"                                                     '播放多媒體文件End WithEnd Sub'顯示播放狀態(tài)Private Sub MMControl1_StatusUpdate()Select Case MMControl1.ModeCase 524Label1.Caption = "設(shè)備沒有打開"Case 525Label1.Caption = "停止"Case 526Label1.Caption = "正在播放"Case 527Label1.Caption = "正在錄制"Case 528Label1.Caption = "正在搜索"Case 529Label1.Caption = "暫停"Case 530Label1.Caption = "設(shè)備準(zhǔn)備好"End SelectEnd SubPrivate Sub Form_Unload(Cancel As Integer)Form1.MMControl1.Command = "Close"                           '關(guān)閉正在播放的多媒體文件End Sub按F5鍵，運(yùn)行程序，結(jié)果如圖2所示。圖2 播放WAV9.Track屬性表示當(dāng)前MCI設(shè)備上可用的曲目個(gè)數(shù)。例如播放CD時(shí)，顯示當(dāng)前曲目編號(hào)。Private Sub MMControl1_StatusUpdate()Label2.Caption = "當(dāng)前曲目：" & Str$(MMControl1.Track)                              '顯示當(dāng)前曲目End Sub&說明：如果要獲得總曲目數(shù)，可以使用Tracks屬性。10.Error和ErrorMessage屬性使用Error和ErrorMessage屬性，可以處理MMControl控件產(chǎn)生的錯(cuò)誤。在每個(gè)命令后可以檢查錯(cuò)誤情況。例如，在Open命令之后，可用下面的代碼檢查Error屬性的值，以判斷是否存在CD驅(qū)動(dòng)器。如果沒有可用的CD驅(qū)動(dòng)器，則返回錯(cuò)誤信息。例如：If Form1.MMControl1.Error ThenMsgBox Form1.MMControl1.ErrorMessage,vbCritical, "未安裝CD播放器或CD播放器不能正常工作"End IfMMControl控件的事件1．ButtonClick事件當(dāng)用戶單擊MMControl控件的各個(gè)命令按鈕時(shí)，發(fā)生該事件。下面給出命令按鈕所對(duì)應(yīng)的事件，如表5所示。表5                              Mode屬性的設(shè)置值命令按鈕說明事件倒帶MMControl1_PrevClick快進(jìn)MMControl1_NextClick步進(jìn)MMControl1_StepClick回倒MMControl1_BackClick暫停MMControl1_PauseClick播放MMControl1_PlayClick錄音MMControl1_RecordClick停止MMControl1_StopClick彈出MMControl1_EjectClick例  單擊“彈出”按鈕，提示光盤彈出，代碼如下。Private Sub MMControl1_EjectClick(Cancel As Integer)MsgBox "光盤彈出！"End Sub2．StatusUpdate事件按照按UpdateInterval屬性所給定的時(shí)間間隔自動(dòng)地發(fā)生。這一事件允許應(yīng)用程序更新顯示，以通知用戶當(dāng)前MCI設(shè)備的狀態(tài)。3．Done事件當(dāng)Notify屬性為True，MCI命令結(jié)束時(shí)發(fā)生Done事件，該事件有一個(gè)參數(shù)NotifyCode，該參數(shù)表示MCI命令是否成功，其設(shè)置值如表6所示。表6                     NotifyCode參數(shù)的設(shè)置值值常量說明1mciSuccessful命令成功的執(zhí)行2mciSuperseded命令被其它命令所替代4mciAborted命令被用戶中斷8mciFailure命令失敗例  當(dāng)播放完多媒體文件時(shí)，將觸發(fā)MMControl控件的Done事件，在該事件下將MMControl控件的“暫停”和“停止”按鈕設(shè)置為不可用，代碼如下。Private Sub MMControl1_Done(NotifyCode As Integer)MMControl.StopEnabled = False: MMControl.PauseEnabled = False             '“暫停”和“停止”按鈕不可用End Sub