vb程序高手帮帮忙解答一下！！谢谢！

来源：百度知道 编辑：UC知道 时间：2024/05/16 11:18:18
vb高手帮忙翻译一下！！谢谢！！最好是每一句都翻译了！！谢谢！代码如下：Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long
Private Const SND_ASYNC = &H1&
Private Const SND_LOOP = &H8&
Private Const SND_MEMORY = &H4&
Private Const SND_NODEFAULT = &H2&
Private Const SND_NOSTOP = &H10&
Private Const SND_SYNC = &H0&

Dim bArr() As Byte, bArr2() As Byte
Private Sub cmdSound_Click()
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
h = Hour(Now)
n = h \ 10
If n = 0 Then
bArr = LoadResData(100 + h, "CUSTOM")
sndPlaySound bArr(0), SND_MEMORY Or SND_SYNC
Else

Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long '声明函数
Private Const SND_ASYNC = &H1& '声明常量
Private Const SND_LOOP = &H8& '声明常量
Private Const SND_MEMORY = &H4& '声明常量
Private Const SND_NODEFAULT = &H2& '声明常量
Private Const SND_NOSTOP = &H10& '声明常量
Private Const SND_SYNC = &H0& '声明常量

Dim bArr() As Byte, bArr2() As Byte '定义两个数组
Private Sub cmdSound_Click() '按钮事件过程
Dim h As Integer, m As Integer, n As Integer '定义变量

bArr = LoadResData(118, "CUSTOM") '载入资源库118号资源
sndPlaySound bArr(0), SND_MEMORY Or SND_SYNC '播放该资源

bArr = LoadResData(116, "CUSTOM") '载入资源库116号资源
sndPlaySound bArr(0), SND_MEMORY Or SND_SYNC '播放该资源
h = Hour(Now) '获取当前系统时间的小时数
n = h \ 10 '获取当前系统时间的小时数的十位数
If n = 0 Then '如果当前小时数是一位数，则
bArr = LoadR