กระทู้เก่าบอร์ด อ.Yeadram
2,330 4
URL.หัวข้อ /
URL
ใส่เพลงใน Access ยังไหรอคะ
ช่วยหนูทีนะค่ะ คืออยากใส่เพลงใน Access นะคะ วิธีใส่ใส่อย่างไรค่ะ แล้วก็สามารถใส่ไฟล์นามสกุลอะไรได้บ้างค่ะ ขอบคุณมากนะคะ
4 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R01187
ขอบคุณมากคะ
3 @R01188
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
(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
4 @R01189
ช่วยอีกแรงพอดีมีโปรแกรมที่ อ. BADMan ทำไว้
ผมส่งไปไว้ที่ [email protected]
password : accgmail นะครับ
26-12-51
ขอให้มีความสุข สมหวัง สวัสดีปีใหม่ครับทุกท่าน
ผมส่งไปไว้ที่ [email protected]
password : accgmail นะครับ
26-12-51
ขอให้มีความสุข สมหวัง สวัสดีปีใหม่ครับทุกท่าน
Time: 0.5114s
หรือถ้าต้องการแค่ดังบี๊บๆๆ ก็สั่ง DoCmd.Beep
หรือถ้าต้องการกำหนดเสียงสูงต่ำและระยะช่วงเวลาได้ ก็ใช้
Public Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
ตย.การเรียกใช้คือ Beep 262,1000 คือการเล่นเสียงคีย์โน๊ต C (เสียง โด ที่ 262 เฮิร์ต) เป็นเวลา 1000 มิลลิวินาที