728x90

'선언
Private Declare Function Beep Lib "kernel32.dll" _
(ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

'사용방법 및 예제
Private Sub Form_Load()
Call Beep(5000, 1000) '  Beep(주파수,재생시간) 1000 = 약 1초
End Sub


참쉽죠?

키워드 : Microsoft Visual Basic 6.0 , Win32 Api , Beep

+ Recent posts