VB实现给控件添加系统声音

作品展中组员做了一个小游戏，功能都实现了但还有很多方面要维护，其中添加声音就是改进的一方面。通过上网搜集找到了些代码，很简单也很有意思，和大家分享一下。

（1）添加“咚”的声音

在窗体上添加一个command按钮

private sub command1_click()

beep

end sub

（2）其他的系统声音

使用API: MessageBeep
声明: Declare Function MessageBeep Lib "user32" Alias "MessageBeep" (ByVal wType As Long) As Long
把下面的东西复制到一个新的空白的form中，不要任何东西，不要有代码、控件。
Private Const MB_ICONASTERISK = &H40&
Private Const MB_ICONEXCLAMATION = &H30&
Private Const MB_ICONHAND = &H10&
Private Const MB_ICONINFORMATION = MB_ICONASTERISK
Private Const MB_OK = &H0&
Private Declare Function MessageBeep Lib "user32" (ByVal wType As Long) As Long

Dim WithEvents Command1 As CommandButton
Dim WithEvents Command2 As CommandButton
Dim WithEvents Command3 As CommandButton
Dim WithEvents Command4 As CommandButton
Dim WithEvents Command5 As CommandButton
Dim WithEvents Command6 As CommandButton

Private Sub Command1_Click()
MessageBeep 0
End Sub

Private Sub Command2_Click()
MessageBeep MB_ICONASTERISK
End Sub

Private Sub Command3_Click()
MessageBeep MB_ICONEXCLAMATION
End Sub

Private Sub Command4_Click()
MessageBeep MB_ICONHAND
End Sub

Private Sub Command5_Click()
MessageBeep MB_ICONINFORMATION
End Sub

Private Sub Command6_Click()
MessageBeep MB_OK
End Sub

Private Sub Form_Load()
MessageBeep 0

Set Command1 = Me.Controls.Add("VB.CommandButton","Command1")
Command1.Visible = True
Command1.Caption = "0"
Command1.Left = 120
Command1.Top = 240
Command1.Height = 255
Command1.Width = 1215

Set Command2 = Me.Controls.Add("VB.CommandButton","Command2")
Command2.Visible = True
Command2.Caption = "MB_ICONASTERISK"
Command2.Left = 120
Command2.Top = 600
Command2.Height = 255
Command2.Width = 1935

Set Command3 = Me.Controls.Add("VB.CommandButton","Command3")
Command3.Visible = True
Command3.Caption = "MB_ICONEXCLAMATION"
Command3.Left = 120
Command3.Top = 960
Command3.Height = 255
Command3.Width = 1935

Set Command4 = Me.Controls.Add("VB.CommandButton","Command4")
Command4.Visible = True
Command4.Caption = "MB_ICONHAND"
Command4.Left = 120
Command4.Top = 1320
Command4.Height = 255
Command4.Width = 1935

Set Command5 = Me.Controls.Add("VB.CommandButton","Command5")
Command5.Visible = True
Command5.Caption = "MB_ICONINFORMATION"
Command5.Left = 120
Command5.Top = 1680
Command5.Height = 255
Command5.Width = 1935

Set Command6 = Me.Controls.Add("VB.CommandButton","Command6")
Command6.Visible = True
Command6.Caption = "MB_OK"
Command6.Left = 120
Command6.Top = 2040
Command6.Height = 255
Command6.Width = 1935
End Sub

运行时出现六个按钮 点击就会出现声音