vb设计定时窗口提醒和播放

来源：百度知道 编辑：UC知道 时间：2024/06/04 12:55:11
怎么编译一个vb程序，使它隐藏自己的窗口，并在很多个特定时间弹出提示窗口，并能播放一段音乐呢？本人不是很熟悉 大家写代码的时候，最好把流程说的详细些，感激不尽！！！

Private Sub Form_Load()
Form1.Visible = False '设置自身不可见
Timer1.Interval = 1
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Select Case Time '按时间选择
Case time1
MsgBox "1"
Case time2
MsgBox "2"
Case time3
MsgBox "3"
Case tiem4
MMControl1.DeviceType = "waveaudio" '音乐文件类型
MMControl1.FileName = "音乐.wav" '音乐文件地址
MMControl1.Command = "open"
MMControl1.Command = "play"
End Select
End Sub

【隐藏窗口】只要在启动窗口代码的合适地方加入“Me.Hide”或将其Visible设置为False即可

【弹出窗口】首先要在启动窗口上放置一个Timer控件，设置其Interval属性为需要的时间。在Timer控件的Timer事件中添加MsgBox（或者是XXX.Show）

如果超过65秒，就可以将Timer的Interval属性设置为60000（根据具体情况设定），再设置一个变量，每次Timer事件发生就将其加1，加到一定数量再执行）
代码类似于下面(30分钟)：
Dim i As Integer
Private Sub Form_Load()