歌曲natuval_歌曲Natural

vb如何制作歌曲播放的进度条

Private Sub Timer1_Timer()

歌曲natuval_歌曲Natural

Dim t As Long

Dim ret As String 128

Timer1.Interval = 1000

t = mciSendString("status " + na + " position", ret, 128, 0) '得到当前播放位置

ProgressBar1.Value = Val(ret)

Label4.Caption = Gettime(Val(ret)) '显示歌曲当前时间

If ProgressBar1.Value = ProgressBar1.Max Then

Command5_Click

End If

End Sub

Private Function Gettime(position As Long) As String '这个函数的功能是把以长整型表示的时间转换为电子钟式的":"

Dim min, sec

min = position / 1000

min = min / 60

sec = min - Int(min)

min = Int(min)

sec = 60 sec / 100

sec = Int(sec 100)

Gettime = Str(min) + ":" + Str(sec)

End Function

实在看不懂的话我把整个程序发给你

VB一直循环播放指定的歌曲

Option Explicit

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Private Sub Form_Load()

mciSendString "open d:\05.mp3 alias mp3", vbNullString, 0&, 0& '打开设备，把d:\05.mp3换成你需要的歌曲，建议用相对路径，例如："close " & App.Path & "\05.MP3"

End Sub

Private Sub Command1_Click() '播放按钮

mciSendString "play mp3 repeat", vbNullString, 0&, 0& '播放声音,repeat参数表示重复播放

End Sub

Private Sub Command2_Click() '暂停按钮

mciSendString "pause mp3", vbNullString, 0&, 0& '暂停

End Sub

Private Sub Form_Unload(Cancel As Integer)

mciSendString "close MP3", vbNullString, 0&, 0& '退出时关闭声音，否则程序退出，声音一直播放

End Sub

什么播放器？播放器不同，代码不一样。

有两个按钮，一个是播放，一个是暂停。点击播放后就开始播放，完了就再从头开始重新播放，一直到按暂停为止

VB 如何 打开程序播放mp3或wma 背景音乐？

在 “工程”->"部件"中添加“windows Media player ”

然后放在窗体上

private 苏北 form_load（）

WindowsMediaPlayer1.url="" ' 路径和文件名例如： "d:\歌曲\追梦人.MP3"

使用wmp控件

url属性设置为 音乐 路径

使用play方法播放