怎么给Picturebox控件加点声音?

yttlovezxx 2005-12-09 02:13:55

我现在有一大堆的picture1(20个)(用来控制20个警报器),当load的时候全部不可见.然后当显示picture1的时候(picture1(i).visible=true)发出声音就行.怎么办?高手帮忙!

...全文

122 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

yttlovezxx 2005-12-23

打赏
举报

只有未结、非0分贴子才可以结贴给分

我晕.给分都给不了!

yttlovezxx 2005-12-09

打赏
举报

'播放警报声音
Private Sub Timer2_Timer()
Dim temp As Integer
If PicDVR1(temp).Visible = True Then
APIBeep 2000 * Rnd, 1000 * Rnd '不同的声音效果
End If
End Sub

子程序或函数未定义.怎么办?

northwolves 2005-12-09

打赏
举报

用APIBEEP效果还可以,可以试试:

Private Declare Function APIBeep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Dim n As Long

Private Sub Form_Load()
For i = 0 To 19
Picture1(i).Visible = False
Next
End Sub

Private Sub Timer1_Timer()
Dim temp As Integer
temp = Int(20 * Rnd)
n = n + 1
If n = 4 Then
Picture1(temp).Visible = True
APIBeep 2000 * Rnd, 1000 * Rnd '不同的声音效果
n = 0
End If
Picture1(temp).Visible = False
End Sub

northwolves 2005-12-09