怎么在vb中按一下enter键电脑中的蜂鸣器就响一声呢？

答案:2 悬赏:10 手机版

解决时间 2021-03-19 00:10

提问者网友：沉默的哀伤
2021-03-18 02:22

最佳答案

五星知识达人网友：英雄的欲望
2021-03-18 03:47

Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Private Sub Command1_Click()
playsnd 440, 100
playsnd 550, 100
playsnd 660, 100
playsnd 660, 100
playsnd 733, 200
playsnd 660, 200
playsnd 550, 100
playsnd 440, 100
playsnd 660, 100
playsnd 660, 100
playsnd 660, 100
playsnd 550, 200
playsnd 440, 200

playsnd 733, 200
playsnd 550, 100
playsnd 587, 100
playsnd 660, 200
playsnd 587, 100
playsnd 550, 100
playsnd 495, 200
playsnd 495, 100
playsnd 587, 100
playsnd 733, 200
playsnd 660, 100
playsnd 587, 100
playsnd 550, 200
playsnd 587, 200
playsnd 660, 200
playsnd 733, 200
playsnd 587, 200
playsnd 495, 200
playsnd 495, 200
playsnd 440, 200
playsnd 440, 200
playsnd 660, 200
playsnd 660, 200
playsnd 733, 200
playsnd 733, 200
playsnd 660, 300
playsnd 587, 200
playsnd 587, 200
playsnd 550, 200
playsnd 550, 200
playsnd 495, 200
playsnd 495, 200
playsnd 440, 200
playsnd 550, 100
playsnd 550, 100
playsnd 550, 200
playsnd 550, 100
playsnd 550, 100
playsnd 550, 200
playsnd 550, 100
playsnd 660, 100
playsnd 440, 100
playsnd 495, 100
playsnd 550, 200

End Sub

Function playsnd(ByVal x As Long, y As Long)
Beep x, y * 3
DoEvents
End Function

全部回答

1楼网友：何以畏孤独
2021-03-18 05:13

我不会~~~但还是要微笑~~~：）

我要举报

如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！