我想请教一下各位大侠谁可以在wince 5.0net操作系统下用VB编写MP3播放器程序,急,请大家帮帮忙

来源:百度知道 编辑:UC知道 时间:2024/06/28 14:52:57

我不知道行不行你试试看吧
要一个list和一个command还有MCI和CommonDialog
Private Sub Command1_Click()
CommonDialog1.DialogTitle = "选择媒体文件"
CommonDialog1.Filter = "所有格式(*.*)|*.*|*.avi|*.avi|*.wma|*.wma|*.mp3|*.mp3"

CommonDialog1.FileName = ""

CommonDialog1.ShowOpen

If CommonDialog1.FileName = "" Then Exit Sub
List1.AddItem CommonDialog1.FileName

' appendplaylist CommonDialog1.FileName
' End If

End Sub

Private Sub Form_Unload(Cancel As Integer)
MMControl1.FileName = ""
MMControl1.Command = "close"
End SubPrivate Sub List1_DblClick()
MMControl1.FileName = List1.Text
MMControl1.Command = "close"
MMControl1.Command = "open"
End Sub

Private Sub MMControl1_NextClick(Cancel As Integer)

End Sub