vb 高手来看看帮帮小弟吧

来源：百度知道 编辑：UC知道 时间：2024/06/09 05:56:31
Dim ab As String

Private Sub Command1_Click()
Dim song As String
With Command1
.FontName = ""
.Filter = "video file (*.dat)ㄏ*.datㄏwave file (*.wav)ㄏavi file (*.avi)ㄏ(*.avi)ㄏmovie file (*.mov)ㄏ(*.mov)ㄏmedia file (*.mmm)ㄏ(*.mmm)ㄏmid file (*.mid;*.rmi)ㄏ(*.mid;*.rmi)ㄏmpeg file (*.mpeg)ㄏ(*.mpeg)ㄏall file (*.*)ㄏ*.*"
.ShowOpen
song = .FileName
End With
If song = "" Then Exit Sub
a = ""
For i = Len(song) To 1 Step -1
b = Mid(song, i, 1)
If b = "" Then
List1.AddItem a
a = ""
ElseIf b = "\" Then
List1.AddItem a
ab = Left(song, i)
Exit Sub
Else
a = b & a
End If
Next i

End Sub

Private Sub List1_Click()
Form1.Caption = "播放器" + ab & List1.Text
windowsmediaplay1.URL = ab & List1.Text

End Sub
不知道是什么原因老是报错“未找到方法或数据成员”
哪位大侠知道怎么解决 注释这是音乐播放器
本人

Dim ab As String

Private Sub Command1_Click()
Dim song As String
With CommonDialog1'这一条应是通用对话框
.FontName = ""
.Filter = "video file (*.dat)ㄏ*.datㄏwave file (*.wav)ㄏavi file (*.avi)ㄏ(*.avi)ㄏmovie file (*.mov)ㄏ(*.mov)ㄏmedia file (*.mmm)ㄏ(*.mmm)ㄏmid file (*.mid;*.rmi)ㄏ(*.mid;*.rmi)ㄏmpeg file (*.mpeg)ㄏ(*.mpeg)ㄏall file (*.*)ㄏ*.*"
.ShowOpen
song = .FileName
End With
If song = "" Then Exit Sub
a = ""
For i = Len(song) To 1 Step -1
b = Mid(song, i, 1)
If b = "" Then
List1.AddItem a
a = ""
ElseIf b = "\" Then
List1.AddItem a
ab = Left(song, i)
Exit Sub
Else
a = b & a
End If
Next i

End Sub

Private Sub List1_Click()
Form1.Caption = "播放器" + ab & List1.Text
WindowsMediaPlayer1.URL = ab & List1.Text '你后面少了个ER
End Sub

经过偶的不屑努力，成功了！！！
你的qq号