Public Class Form1
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
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
Dim filename = "audio.mp3"
mciSendString("close 0", Nothing, 0, 0)
mciSendString(String.Format("open ""{0}"" alias 0", filename), Nothing, 0, 0)
mciSendString("play 0", Nothing, 0, 0)
End Sub
End Class
My.Computer.Audio.Play(Application.StartupPath & "\SoundFile.wav")(18-10-24, 09:57 PM)الورد الصناعي كتب : [ -> ]هلا بيك Taha Okla
لم يعمل معي الكود ممكن تضع الكود كامل مع الشرح عزيزي
جزاك الله خير اخي justforit
المشكلة المثال لازم تضع أداة وانا اريد كود بدون وضع أداة
(18-10-24, 09:57 PM)الورد الصناعي كتب : [ -> ]هلا بيك Taha Okla
لم يعمل معي الكود ممكن تضع الكود كامل مع الشرح عزيزي
(18-10-24, 02:41 AM)Zuhare كتب : [ -> ][تحديث] هذا الكود باستخدام mci
PHP كود :
Public Class Form1
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
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
Dim filename = "audio.mp3"
mciSendString("close 0", Nothing, 0, 0)
mciSendString(String.Format("open ""{0}"" alias 0", filename), Nothing, 0, 0)
mciSendString("play 0", Nothing, 0, 0)
End Sub
End Class
Public Class Form1
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
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
Dim filename = "audio.mp3"
mciSendString("close 0", Nothing, 0, 0)
My.Computer.Audio.Stop()
mciSendString(String.Format("open ""{0}"" alias 0", filename), Nothing, 0, 0)
mciSendString("play 0", Nothing, 0, 0)
End Sub
End Class