vb.net定时播放音乐的简单介绍

怎么在VB中定时播放音乐文件呢?

Step 1可以省略，本来默认就是1

成都创新互联公司IDC提供业务:德阳服务器托管,成都服务器租用,德阳服务器托管,重庆服务器租用等四川省内主机托管与主机租用业务;数据中心含:双线机房,BGP机房,电信机房,移动机房,联通机房。

Text1.Text最好改为val(Text1.Text)将值转为数值型

要定时8：00可以用timer控件，每秒获取一次time，if 8：00就执行

用VB编个定时播放软件

这个很简单，需要用到部件 WindowsMediaPlayer 这个是系统自带的播放器，很好用，使用也很简单，先用Timer 控件做个定时器，当设定时间到了就开始播放，WindowsMediaPlayer 这个控件只要指定File.Name（要播放的文件） 属性 和 Play 方法即可 如果是 vb.net 则指定的是Url属性，其它相同，

用vb程序设计一个“定时器”软件，要求定时时间到时会播放一段音乐，那个音乐怎么弄啊！谁能能帮帮忙？

加入一个定时器控件，interval属性改为1000，

加入一个命令按键控件，caption属性改为“开始计时”，

加入一个复选框控件，cpation属性改“开始计时后自动隐藏程序”，

其它属性一律不要动！

然后打开代码窗口，把里面的内容清空，把下面一段代码粘贴进去：

Dim dingshi As String

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub PlayWavFile(strFileName As String, PlayCount As Long, JianGe As Long)

'strFileName 要播放的文件名(带路径)

'playCount 播放的次数

'JianGe 多次播放时,每次的时间间隔

If Len(Dir(strFileName)) = 0 Then Exit Sub

If PlayCount = 0 Then Exit Sub

If JianGe 1000 Then JianGe = 1000

DoEvents

sndPlaySound strFileName, 16 + 1

Sleep JianGe

Call PlayWavFile(strFileName, PlayCount - 1, JianGe)

End Sub

Private Sub Command1_Click()

Timer1.Enabled = True

If Check1.Value = 1 Then

Form1.Hide

App.TaskVisible = False

End If

End Sub

Private Sub Form_Load()

Show

Timer1.Enabled = False

dingshi = InputBox("时间格式为00:00:00，请输入正确，否则出错", "输入")

End Sub

Private Sub Timer1_Timer()

If dingshi = Time$ Then

PlayWavFile "C:\Documents and Settings\Administrator\桌面\配音\火星片花-广告回来继续关注.wav", 1, 1000

End If

End Sub

输入时间格式时那个冒号要是英文的冒号，中文的会出错，

最后这句PlayWavFile "C:\Documents and Settings\Administrator\桌面\配音\火星片花-广告回来继续关注.wav", 1, 1000

路径改成你的声音路径，格式必须是.wav格式的，不然播放不出来，后面那个1是重复次数，那个1000是重复时的间隔，还不懂就追问我，忙活了这么长时间，怎么也得给个辛苦分吧？

vb.net中如何播放声音，是要什么控件嘛？

My.Computer.Audio.Play("SoundFile.wav")

SoundFile.wav是你要播放的声音文件的路径

跪求用vb.net做一个小闹钟！！

'加个定时器,textbox ,button,label Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Label1.Text = Now

If FF = Now And FF "2001-1-1" And Timer1.Tag = "" Then

Timer1.Tag = "1"

MsgBox("ff")

End If

End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

FF = TextBox1.Text

Timer1.Tag = ""

End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

FF = "2001-1-1"

End Sub'声音加个 AxMMControl控件 AxMMControl1.DeviceType = "waveaudio" ''''''''定义播放*.wav格式 AxMMControl1.FileName = "c:\1.wav" ''''''''载入文件， AxMMControl1.Command = "open" ''''''''打开载入的文件

AxMMControl1.From = 0 '从头开始

AxMMControl1.Command = "play"'保存时间,只要设定时把时间保存到文本文件就行,load 事件中读取,并对比是不是超时,.