پخش آهنگ mp3 با وی بی 6

دوستان شاید خواسته باشید به غیر از مدیا پلیر در ویژوال بیسیک آهنگ و mp3 پخش کنید این کدشه:

mp3 Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long Dim isPlaying As Boolean Dim Mp3File As String Private Sub Command1_Click(Index As Integer) Mp3File = Chr$(34) + Trim(Text1.Text) + Chr$(34) Select Case Index Case 0 mciSendString "open " + Mp3File, 0&, 0&, 0& mciSendString "play " + Mp3File, "", 0&, 0& isPlaying = True Case 1 mciSendString "close " + Mp3File, 0&, 0&, 0& isPlaying = False End Select End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() Command1(0).Caption = "Start" Command1(1).Caption = "Stop" Command2.Caption = "Exit" End Sub Private Sub Form_Unload(Cancel As Integer) If isPlaying = True Then mciSendString "close " + Mp3File, 0&, 0&, 0& End If End Sub </body> </html></body> </html>

حالا تو TextBox آدرس یک فایل MP3 رو وارد کنید و دکمه Start رو بزنید، موسیقی پخش میشه، به همین سادگی. لازم به ذکره که این کد بارها و بارها تست شده و هیچ گونه مشکلی نداره اگر کسی به مشکلی برخورد در قسمت نظرات مطرح کنه. سربلند باشید...