播放flash需要添加:
shockwave flash 控件
添加後在窗體上畫出屏幕
需要壹句代碼:
shockwaveflash1.movie="flash文件路徑"'妳可配合commondialog控件來選擇文件!
給妳找點資料關於vb播放flash的,妳參考!
需要ShockwaveFlash壹個,兩個command
Private Sub Command1_Click()
ShockwaveFlash1.Movie = App.Path & "\ball.swf"
'讀取同壹目錄下的Flash動畫文件
ShockwaveFlash1.Play
Command1.Enabled = False
End Sub
Private Sub Command2_Click()
If Command2.Caption = "暫停" Then
ShockwaveFlash1.Playing = False
'停止動畫
Command2.Caption = "繼續"
Else
ShockwaveFlash1.Playing = True
'繼續動畫
Command2.Caption = "暫停"
End If
End Sub
播放avi,rmvb 需要 microsoft multimedia control 6.0 控件,實例代碼如下,給妳個教程,認真點,可以做出來的!
媒體播放器控件(MCI)可以播放音頻和視頻,也就是音樂和影碟。
在 D:盤根目錄下新建壹個文件夾,名字改為music,裏面拷入三個音樂文件,壹個Wav文件重命名為one,另壹個Mp3文件,重命名為two,再將第十課中的thr視頻文件拷貝進去,這是壹個Avi文件。
啟動VB,修改好窗體的各個屬性,再添加壹個標簽,將Caption改為“我的播放器”。
MCI控件要自己添加到工具箱中,方法是在工具箱上單擊鼠標右鍵,選擇“部件”在對話框中找到Microsoft Multimeia Control6.0 打上勾選中,再單擊“確定”這樣在工具箱中就加入了多媒體控件MMControl。
在工具箱裏找到MMControl控件(最後壹個),選中後在窗體上畫壹個,可以發現跟我們常見的設備符號壹樣,有播放、停止、暫停、快進、彈碟等等。以“音樂播放器”為文件名保存文件到自己的文件夾。
現在播放器是虛的,還要設置壹下顯示屬性,用鼠標右鍵單擊窗體中的多媒體控件,在彈出的菜單中選擇“屬性”,在彈出的對話框頂端選擇“控件”標簽,將各個按鈕符號旁邊的有效選中打上勾,單擊“確定”回到窗體中,這時候控件就可以使用了。
單擊啟動按鈕運行壹下,窗口中的播放器還是虛的,這是因為還沒有要播放的文件。
關閉程序回到窗體窗口,添加壹個框架Fram1,向裏面添加三個單選按鈕Option,分別設置Caption為Wav,Mp3和Avi,再修改好背景色。
下面我們來添加代碼打開播放器,播放壹個指定的文件,雙擊窗體,添加代碼到Form_Load()過程中初始化播放器:
MMcontrol1.Notify=False '不返回播放信息
MMcontrol1.Wait=True '播放時其他人等待
在代碼窗口的頂部左邊的列表中選擇Option1,右邊自動選擇Click,在彈出的Option_Click()過程中添加播放Wav的代碼:
MMControl1.Command = "close" '先關閉播放器
MMControl1.DeviceType = "Waveaudio" 'Wav音頻格式
MMControl1.FileName = "d:\music\one.wav" '文件夾中的one.wav文件
MMControl1.Command = "open" '打開設備
MMControl1.Command = "play" '播放文件
各行代碼的作用,在後面的綠色註釋中講到,最後壹句用來自動播放,相當於單擊播放器的“播放”按鈕,播放時必須要有文件名和播放命令。
同樣找到Option2的Click()過程,添加播放MP3的代碼:
MMControl1.Command = "close" '先關閉播放器
MMControl1.DeviceType = "" '其他類型
MMControl1.FileName = "d:\music\two.mp3" '文件夾中的two.mp3文件
MMControl1.Command = "open" '打開設備
MMControl1.Command = "play" '也可以點擊播放按鈕
這裏的Mp3格式是壓縮格式屬於其他類型,別的跟Wav文件相同,都是聲音文件,沒有圖像只有音樂。
註意Option3有些不同,它是Avi視頻格式,也就是既有聲音還有圖像,它的Click()代碼為:
MMControl1.Command = "close" '先關閉播放器
MMControl1.DeviceType = "AviVideo" 'Avi視頻格式
MMControl1.hWndDisplay = Form1.hWnd '用背景窗體當屏幕
MMControl1.FileName = "d:\music\thr.avi" '文件夾中的thr.avi文件
MMControl1.Command = "open" '打開設備
MMControl1.Command = "play" '也可以點擊播放按鈕
這兒第三行代碼是讓視頻圖像顯示在背景中,也可以添加壹個圖片框,把Form1改為PIcture1,註意圖像的比例壹般是4:3 或者16:9。
檢查壹遍代碼,註意中英文和標點符號以及大小寫的正確性。保存壹下文件
單擊“啟動”按鈕運行程序,點擊不同的格式文件來播放音樂,看看我們的多媒體播放器強大的功能,註意重復播放時要倒帶子,單擊“倒帶”然後再播放就重新播放了,退出前壹定要關閉設備也就是“close”命令。
整個代碼為:
Private Sub Command1_Click() '退出程序
MMControl1.Command = "close" '關閉播放器設備
MMControl1.Shareable = True '允許別人使用播放器
End
End Sub
Private Sub Form_DblClick()'雙擊退出
MMControl1.Command = "close" '關閉播放器
MMControl1.Shareable = True
End
End Sub
Private Sub Form_Load()
MMControl1.Notify = False '不返回播放信息
MMControl1.Wait = True '播放時其他人稍等
End Sub
Private Sub Form_Unload(Cancel As Integer) '關閉窗口
MMControl1.Command = "close" '關閉播放器
MMControl1.Shareable = True
End Sub
Private Sub Option1_Click()
MMControl1.Command = "close" '先關閉播放器
MMControl1.DeviceType = "Waveaudio" 'Wav音頻格式
MMControl1.FileName = "d:\music\one.wav" '文件夾中的文件
MMControl1.Command = "open" '打開設備
MMControl1.Command = "play" '播放文件
End Sub
Private Sub Option2_Click()
MMControl1.Command = "close" '先關閉播放器
MMControl1.DeviceType = "" '其他類型
MMControl1.FileName = "d:\music\two.mp3" '當前文件夾中的文件
MMControl1.Command = "open" '打開設備
MMControl1.Command = "play" '也可以點擊播放按鈕
End Sub
Private Sub Option3_Click()
MMControl1.Command = "close" '先關閉播放器
MMControl1.DeviceType = "AviVideo" 'Avi視頻格式
MMControl1.hWndDisplay = Form1.hWnd '用背景窗體當屏幕
MMControl1.FileName ="d:\music\thr.avi" '文件夾中的文件
MMControl1.Command = "open" '打開設備
MMControl1.Command = "play" '也可以點擊播放按鈕
End Sub