Question

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

怎么编译一个vb程序，使它隐藏自己的窗口，并在很多个特定时间弹出提示窗口，并能播放一段音乐呢？本人不是很熟悉 大家写代码的时候，最好把流程说的详细些，感激不尽！！！

Answer 1

【隐藏窗口】只要在启动窗口代码的合适地方加入“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()
Timer1.Interval = 60000
End Sub
Private Sub Timer1_Timer()
i = i + 1
If i = 30 Then ' 30 x 60000ms = 30 min
显示提示框（调用MsgBox函数或显示窗口）
i = 0
End If
End Sub

【播放音乐】如果要播放音乐，可以在窗体内添加一个Windows Media Player控件（“工程”→“部件”→选中“Windows Media Player”），在代码的合适位置输入：
WindowsMediaPlayer1.URL = "音乐文件路径"
（这个我还没用过，你可以看看相关的文档）

Answer 2

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

Answer 3

我也还有这样一个问题没有解决。郁闷