窗体加载
GS = True
'初始设置窗体为跟随鼠标
Me.Height = Picture1.Height
'设置窗体高度
Me.Width = Picture1.Width
'设置窗体宽度
Call SetWindowPos(Me.hWnd, -1, 0, 0, 0, 0, 3) '设置窗体为最上层
'以下设置MCI控件
MMControl1.Notify = False
'多媒体命令执行完毕不返回Done事件
MMControl1.Wait = False
'让程序在多媒体命令完成前就得到控制权
MMControl1.Shareable = False
'媒体设备不共享
MMControl1.FileName = musicname
'设置闹响播放的音乐名称
MMControl1.Command = "Open"
'打开设备
Call GetAlarmtime
'设置初始的任务列表
End Sub
你说后,我把0改为具体的数字,但还是不行,请问到底要怎么修改?还有什么是PIX数据呢?谢谢啦!!
|