VB 语音报时.rar

Dim h As Integer, m As Integer, n As Integer bArr = LoadResData(118, "CUSTOM") '播放"叮咚" sndPlaySound bArr(0), SND_MEMORY Or SND_SYNC bArr = LoadResData(116, "CUSTOM") '播放"现在时间是" sndPlaySound bArr(0), SND_MEMORY Or SND_SYNC