作者tten (没图没真相~叭~)
看板Visual_Basic
标题[VB6 ] 请问用VB写出来的音乐拨放程式
时间Mon Sep 5 19:59:12 2005
小弟这边用VB写出来一个很简单的音乐拨放程式
Private Sub Timer5_Timer()
If WindowsMediaPlayer1.playState = 0 Or WindowsMediaPlayer1.playState = 1 Then
Select Case con
Case 1
WindowsMediaPlayer1.URL = "C:\111.m3u"
Case 2
WindowsMediaPlayer1.URL = "C:\222.m3u"
Case 3
WindowsMediaPlayer1.URL = "C:\333.m3u"
End Select
End If
End Sub
程式码里面出现的m3u是一个音乐列表
假设里面有1~10首歌
我要如何能够让那10首歌随机拨放
而不是到case1的时候就是放第一首歌,
case2的时候放case2的第二首歌
到时候发生case1的时候又再放case1的第一首歌
我希望可以随机拨放case里面的任何一首歌,
请问我该如何写这个语法呢?
谢谢各位大大~
--
【 19 】佛光普照如达摩再世 真˙背影杀手 (Tten)
状 态 : 半兽人少林和尚(男性)﹐十八岁﹐正常。
经 验 : 670171
阵 营 : 一代大侠
状 况 : 你觉得身体一切正常﹐精神饱满。
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 219.68.58.229