建站
咨詢
售后
建站咨詢
新聞中心
用VB.NET編多媒體播放器
我這里有一段前段時間寫的測試代碼，使用WMPLib類，中間有你需要的功能，你可以參考下:
成都創(chuàng)新互聯公司成立于2013年，是專業(yè)互聯網技術服務公司，擁有項目成都做網站、成都網站建設網站策劃，項目實施與項目整合能力。我們以讓每一個夢想脫穎而出為使命，1280元廣河做網站,已為上家服務,為廣河各地企業(yè)和個人服務,聯系電話:18980820575
使用wmp.currentMedia.duration和wmp.currentMedia.durationString分別以double和string獲得當前媒體的播放時間，使用wmp.settings.volume設置音量大小，使用wmp.controls.currentPosition設置當前播放時間點
Imports WMPLib
Public Class FrmMain
Dim WithEvents wmp As WMPLib.WindowsMediaPlayer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
wmp = New WMPLib.WindowsMediaPlayer()
TextBox1.Text = TextBox1.Text vbCrLf "當前播放狀態(tài):" wmp.status
wmp.uiMode = "Mini"
wmp.settings.balance = 1
wmp.enableContextMenu = True
wmp.fullScreen = False
wmp.windowlessVideo = True
wmp.enabled = True
Dim wmpMediaList As IWMPPlaylist = wmp.newPlaylist("默認播放列表", "")
Dim wmpMedia As IWMPMedia = wmp.newMedia(My.Computer.FileSystem.CurrentDirectory "\Human.mp3")
With wmpMediaList
.appendItem(wmpMedia)
End With
'wmp.URL = "\\192.168.1.247\sharoncn\music\Human.mp3"
wmp.currentMedia = wmpMedia
wmp.settings.autoStart = True
tBarPlay.Value = 0
ListBox1.Items.Add(wmpMediaList.name)
ListBox1.SelectedIndex = 0
ListBox2.Items.Add(wmpMediaList.Item(0).name)
ListBox2.SelectedIndex = 0
tbar.Maximum = 100
tbar.Value = 50
Timer1.Enabled = True
Timer1.Interval = 100
End Sub
Private Sub wmp_PlayStateChange(ByVal NewState As Integer) Handles wmp.PlayStateChange
tBarPlay.Maximum = wmp.currentMedia.duration * 10
Label1.Text = "總時間:" wmp.currentMedia.durationString
TextBox1.Text = TextBox1.Text vbCrLf "當前播放狀態(tài)：" NewState
If NewState = 1 Then
wmp.controls.play()
End If
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
TextBox1.SelectionStart = Len(TextBox1.Text)
TextBox1.ScrollToCaret()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label2.Text = "當前播放進度:" wmp.controls.currentPositionString
tBarPlay.Value = CInt(wmp.controls.currentPosition * 10)
End Sub
Private Sub tbar_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbar.Scroll
wmp.settings.volume = tbar.Value
End Sub
Private Sub tBarPlay_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tBarPlay.Scroll
wmp.controls.currentPosition = tBarPlay.Value / 10
End Sub
End Class
關于多媒體播放器的播放菜單（vb.net 2005）
1.你使用的媒體控制是什么？
2.要加入ListBox的雙擊事件
3.?你這里只是用瀏覽對話框找到了mp3文件，并顯示在列表框里。沒有播放的代碼。
張志晨
add
...............................................
添加WMplayer控件
Public?Class?Form1
Private?Sub?打開目錄ToolStripMenuItem_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?打開目錄ToolStripMenuItem.Click
If?FolderBrowserDialog1.ShowDialog?=?Windows.Forms.DialogResult.OK?Then
Dim?f?As?IO.FileInfo
Dim?d?As?IO.DirectoryInfo?=?New?IO.DirectoryInfo(FolderBrowserDialog1.SelectedPath)
Dim?file?As?String
For?Each?f?In?d.GetFiles("*.mp3")
file?=?(f.FullName)
ListBox1.Items.Add(file)
Next
End?If
End?Sub
Private?Sub?ListBox1_SelectedIndexChanged(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?ListBox1.SelectedIndexChanged‘雙擊就播放
AxWindowsMediaPlayer1.URL?=?ListBox1.Items(ListBox1.SelectedIndex)
End?Sub
End?Class
多媒體 音頻 聲音 音量 大小 如何得到系統(tǒng)實時音量大小，用VB.net易的win7聲音控制軟件，
驅動程序，設置，文件，注冊表四個方面，震動，如看它是否可以恢復全面檢查，案件的接口是壞的，這是為配件
首先，請檢查聲音卡驅動程序，右鍵單擊“我的電腦” - 屬性 - 硬件 - 設備管理器 - 聲音，視頻和游戲控制器 - 右擊 - ReaItek - 更新或掃描，卸載并重新安裝。 （如果你下載的驅動程序生命沒有驅動程序包 - 驅動更新 - 聲音，視頻 - 開始更新 - 自動找到的官方驅動程序 - 重新啟動計算機。）
調試麥克風：控制面板 - 高清晰音頻配置 - 混頻器 - 重放 - 小扳手 - 選擇 - OK - - 后粉紅色 - X'靜音，推高了麥克風插孔前面板 - 選擇 - OK，然后打X麥克風靜音，然后在右邊拉點音頻I/O--小扳手 - 選擇“禁用前面板插孔檢測 - OK - 返回混頻器 - 錄制 - 小扳手 - 點擊麥克風的音量（版本不一致需打X-靜音立體聲混音）
加強麥克風：右鍵單擊右下角的小喇叭（小喇叭的音量上） - 調整音頻屬性 - 音量 - 設備音量 - 高級 - （主音??量全推到上） - 選項 - 屬性 - 麥克風音量打勾 - 確定返回選項 - 高級控制 - 高級 - 麥克風加強了鉤。
右下角的小喇叭顯示：開始---設置---控制面板 - 聲音和音頻設備 - 音量 - （勾選）將音量圖標放入任務欄上。
5。在網頁中，網頁聲音的操作方法：打開網頁 - 工具 - 選項 - 高級 - （勾選）播放的聲音。
6。游戲耳機出聲來：控制面板---高清晰音頻配置 - 音頻I/O--耳機 - 選舉8CH喇叭。
7。前部和后部面板插孔調試：控制面板 - 高清晰音頻配置 - 音頻I/O--模擬 - 后面板插孔圖標 - 單擊 - 你插入的設備嗎？ （需插入的設備，如插耳機） - 當選耳機 - OK，所以
8。使用QQ聊天的語言時，MIC音量無法調整，請下載補丁。
9，如聲卡驅動安裝不上的解決方法：控制面板 - 管理工具 - 服務 - Windows音頻 - 啟動類型設置為“自動”重新啟動它。
10。注冊表的方法：
開始 - 運行 - 輸入regedit打開注冊表，然后單擊“打開HKEY_LOCAL_MACHINE \ SOFTWARE \微軟\的Windows \ CurrentVersion \ Run在右側窗口中新建字符串”系統(tǒng)托盤“點右鍵（在運行于新的）鍵（在系統(tǒng)托盤中雙擊編輯）“C：\ WINDOWS \ SYSTEM32 \ Systray.exe”win2000系統(tǒng)，或“C：\ WINNT \ SYSTEM32 \ Systray.exe”
開始 - 運行 - 輸入regedit打開注冊表，然后單擊“打開HKEY_LOCAL_MACHINE \ SOFTWARE \微軟\ WINDOWSNT \ CURRENTVERSION \ Drivers32創(chuàng)建一個新的字符串值，命名為”wavemapper“值”msacm32。DRV“。重新啟動計算機。
分享標題：vb.net多媒體 vba在多媒體課件中的應用
分享路徑：http://www.ef60e0e.cn/article/dojpchg.html
