怎样在VB做一个简单的音乐播放器啊????
请问怎样做啊???我不太会的。。要什麽工具,怎样拉工具,程式码都帮我写出来,我後天就要交功课了。急求。。。。只要简单的播放器。可以播一首歌就可以了,帮我搞好我给50分我的...
请问怎样做啊???我不太会的。。要什麽工具,怎样拉工具,程式码都帮我写出来,我後天就要交功课了。急求。。。。只要简单的播放器。可以播一首歌就可以了,帮我搞好我给50分
我的MSN
JANEJIEJIE2011@HOTMAIL.COM
哪一位帮我,教我点做啊。。。急求啊 展开
我的MSN
JANEJIEJIE2011@HOTMAIL.COM
哪一位帮我,教我点做啊。。。急求啊 展开
3个回答
展开全部
大哥,这个可以直接拖个控件,基本的播放功能就实现了
追问
在哪裡拖控件??拖到哪裡啊??
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
从网上搜一个DIrectX SDK 8 . 里边有VB写的播放器。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_DblClick()
Dim tmpF As String
tmpF = File1.Path
If Right(tmpF, 1) <> "\" Then tmpF = tmpF & "\"
tmpF = tmpF & File1.List(File1.ListIndex)
WMP1.URL = tmpF
WMP1.Controls.play
Label1 = tmpF
End Sub
Private Sub Form_Load()
File1.Pattern = "*.mp3;*.wav"
End Sub
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_DblClick()
Dim tmpF As String
tmpF = File1.Path
If Right(tmpF, 1) <> "\" Then tmpF = tmpF & "\"
tmpF = tmpF & File1.List(File1.ListIndex)
WMP1.URL = tmpF
WMP1.Controls.play
Label1 = tmpF
End Sub
Private Sub Form_Load()
File1.Pattern = "*.mp3;*.wav"
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询