Play a wav file (sound file) through the API in Access 2003/XP/2000/97


หรือถ้าต้องการแค่ดังบี๊บๆๆ ก็สั่ง DoCmd.Beep



หรือถ้าต้องการกำหนดเสียงสูงต่ำและระยะช่วงเวลาได้ ก็ใช้
Public Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

ตย.การเรียกใช้คือ Beep 262,1000 คือการเล่นเสียงคีย์โน๊ต C (เสียง โด ที่ 262 เฮิร์ต) เป็นเวลา 1000 มิลลิวินาที

ขอบคุณมากคะ

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As _
Integer, ByVal hwndCallback As Integer) As Integer

Sub playmp3 ()

Dim minta, mintb   As Integer
Dim fileToPlay As String

fileToPlay = Chr(34) + " ใส่ ชื่อไฟล็พร้อม พาร์ทตรงนี้ "+ Chr(34)

minta = mciSendString("open " & fileToPlay & " alias myDevice", "nothing", 0, 0)

mintb = mciSendString("play myDevice", "nothing", 0, 0)

End Sub


Sub Stopmp3 ()

Dim mintb As Integer
mintb = mciSendString("stop myDevice", "nothing", 0, 0)
mintb = mciSendString("close myDevice", "nothing", 0, 0)


End Sub

ช่วยอีกแรงพอดีมีโปรแกรมที่ อ. BADMan ทำไว้
ผมส่งไปไว้ที่ accboard@gmail.com
password : accgmail นะครับ

26-12-51

ขอให้มีความสุข สมหวัง สวัสดีปีใหม่ครับทุกท่าน