منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
طلب كود - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : طلب كود (/showthread.php?tid=34675)



طلب كود - paveldida - 09-05-20

السلام عليكم
لقد قمت بإضافة ملف صوتي (البسملة) من نوع WAV إلى resources المشروع لكي يكون اقلاع البرنامج بالبسملة
كما اضفت قارئ الملفات widows media player  للفورم الأساسي
أريد الكود و مكان وضعه لإستدعاء الملف الصوتي و جعل إقلاعه اوطوماتيكي مع اقلاع برنامجي 



RE: طلب كود - سامي محمد - 09-05-20

وعليكم السلام
ضع هذا الكود في حدث الــ Load الخاص بالفورم

كود :
 My.Computer.Audio.Play(My.Resources.F, AudioPlayMode.Background)
واستبدل حرف الــ F باسم الملف الصوتي لديك


RE: طلب كود - paveldida - 09-05-20

(09-05-20, 01:46 AM)سامي محمد كتب : وعليكم السلام
ضع هذا الكود في حدث الــ Load الخاص بالفورم

كود :
 My.Computer.Audio.Play(My.Resources.F, AudioPlayMode.Background)
واستبدل حرف الــ F باسم الملف الصوتي لديك

شكرا أخي 



RE: طلب كود - علي بنيان - 09-05-20

السلام عليكم

PHP كود :
Public Class Form1

    Public 
Declare Function mciExecute Lib _
    
"winmm.dll" Alias "mciExecute" _
    
(ByVal lpstrCommand As String) As Long

    Private Sub Button1_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click

        mciExecute
("play FileName.mp3")

 
   End Sub
End 
Class

'2-تشغيل ملفات Mp3 






PHP كود :
  Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click

        My
.Computer.Audio.Play _
        
("FileName.wav"AudioPlayMode.Background)

 
   End Sub

'3-تشغيل ملفات wav 


PHP كود :
 Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click

        Dim ply 
As New System.Media.SoundPlayer("FileName.wav")
 
       ply.Play()

 
   End Sub 


هذه عدة طرق اخرى


RE: طلب كود - paveldida - 09-05-20

(09-05-20, 02:32 AM)علي بنيان كتب : السلام عليكم

PHP كود :
Public Class Form1

    Public 
Declare Function mciExecute Lib _
    
"winmm.dll" Alias "mciExecute" _
    
(ByVal lpstrCommand As String) As Long

    Private Sub Button1_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click

        mciExecute
("play FileName.mp3")

 
   End Sub
End 
Class

'2-تشغيل ملفات Mp3 






PHP كود :
  Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click

        My
.Computer.Audio.Play _
        
("FileName.wav"AudioPlayMode.Background)

 
   End Sub

'3-تشغيل ملفات wav 


PHP كود :
 Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click

        Dim ply 
As New System.Media.SoundPlayer("FileName.wav")
 
       ply.Play()

 
   End Sub 


هذه عدة طرق اخرى

بارك الله فيك