VB 主板扬声器唱歌，VB 控制主板喇叭Beep，VB 主板扬声器唱歌，VB 主板 喇叭 Beep，VB 主板扬声器唱歌，VB 主板 喇叭，VB 主板扬声器，VB 主板 Beep，VB 扬声器，VB 喇叭 Beep，VB playsnd，VB 声音频率(从37Hz到32767Hz)，VB 声音的持续时间，以毫秒为单位。如为-1，表示一直播放声音，直到再次调用该函数为止。在windows95中会被忽略。

【VB声明】
  Private Declare Function Beep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
 
【说明】
  用于生成简单的声音
 
【返回值】
  Long，TRUE（非零）表示成功，否则返回零。会设置GetLastError
 
【备注】
  在windows95中，这个函数简单的播放默认系统响铃
 
【参数表】
  dwFreq --------- Long，声音频率（从37Hz到32767Hz）。在windows95中忽略
 
  dwDuration ----- Long，声音的持续时间，以毫秒为单位。如为-1，表示一直播放声音，直到再次调用该函数为止。在windows95中会被忽略

VB主板扬声器唱歌，VB主板喇叭Beep：

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

Private Sub Form_Load()
    playsnd 440, 100
    playsnd 494, 100
    playsnd 554, 100
    playsnd 622, 100
    playsnd 698, 100
    playsnd 784, 100
    playsnd 880, 100
End Sub

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

留言评论（旧系统）：

RainShine @ 2014-11-11 12:56:47

嗯，挺好听的。手一贱把时间改成了100000，差点挨打

本站回复：

哈哈哈，重启吧~