UC知道VB专家请进》帮我解决几个问题
来源：百度知道 编辑：UC知道 时间：2024/05/16 01:41:33
完全使用windows media player 控件
第一题
播放列表
Private Sub List1_DblClick()
Me.Caption = "我的播放器 当前播放" & pa & List1.Text
WindowsMediaPlayer1.URL = pa & List1.Text
End Sub
-----------------------------------------------------------------------------------
Private Sub Command1_Click()
Dim song As String
With CommonDialog1
.FileName = ""
.Filter = "*.MP3|*.mp3;*.avi;*.mid"
.Flags = 512
.ShowOpen
song = .FileName
End With
If song = "" Then Exit Sub
a = ""
For i = Len(song) To 1 Step -1
k = Mid(song, i, 1)
If k = " " Then '多首歌的分隔符
List1.AddItem a
a = ""
ElseIf k = "\" Then '一首歌时歌名与路径的分隔符
List1.AddItem a
pa = Left(song, i)
Exit Sub
Else
a = k & a
End If
Next i
End Sub
怎么变成，旧式选择框，代码应该怎么写
第二题
播放进度时间
<
第一题
播放列表
Private Sub List1_DblClick()
Me.Caption = "我的播放器 当前播放" & pa & List1.Text
WindowsMediaPlayer1.URL = pa & List1.Text
End Sub
-----------------------------------------------------------------------------------
Private Sub Command1_Click()
Dim song As String
With CommonDialog1
.FileName = ""
.Filter = "*.MP3|*.mp3;*.avi;*.mid"
.Flags = 512
.ShowOpen
song = .FileName
End With
If song = "" Then Exit Sub
a = ""
For i = Len(song) To 1 Step -1
k = Mid(song, i, 1)
If k = " " Then '多首歌的分隔符
List1.AddItem a
a = ""
ElseIf k = "\" Then '一首歌时歌名与路径的分隔符
List1.AddItem a
pa = Left(song, i)
Exit Sub
Else
a = k & a
End If
Next i
End Sub
怎么变成，旧式选择框，代码应该怎么写
第二题
播放进度时间
<
我来回答你的。
第一题，listbox可以通过style属性来更改外观，style=1时，每一行值前面有个复选框，或者你可以换个combobox,这个可以输入，可以选择。同样通过style控制外观。第2题，label可以用来显示信息，如果显示的信息不希望被更改，那使用label很好，Text2.Text = wmp.Controls.currentPositionString
这句改成label1.caption= wmp.Controls.currentPositionString
我看你使用的是mediaplayer控件是吧，这个自带播放时间的，不需要编码，把showstatusbar属性设置为true就OK
第三题，音量由meidaplayer的Volume属性控制，值在-10000到0之间。
第四题，进度条同样是一个属性showtracker属性为true就会显示.
15分不算太少了。不过别忘了给哦。
别说我笑你啊。太多问题你是得不到答案的，分也给得太少了。除非人家太没事了，不然是谁有时间写这么多程序啊。你要分开来一个一个问嘛。像我一样啦。一个问题分成七八个问就可以了嘛。