تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب كود
#1
السلام عليكم
لقد قمت بإضافة ملف صوتي (البسملة) من نوع WAV إلى resources المشروع لكي يكون اقلاع البرنامج بالبسملة
كما اضفت قارئ الملفات widows media player  للفورم الأساسي
أريد الكود و مكان وضعه لإستدعاء الملف الصوتي و جعل إقلاعه اوطوماتيكي مع اقلاع برنامجي 
الرد
تم الشكر بواسطة: سعود , ابراهيم ايبو
#2
وعليكم السلام
ضع هذا الكود في حدث الــ Load الخاص بالفورم

كود :
 My.Computer.Audio.Play(My.Resources.F, AudioPlayMode.Background)
واستبدل حرف الــ F باسم الملف الصوتي لديك
الرد
#3
(09-05-20, 01:46 AM)سامي محمد كتب : وعليكم السلام
ضع هذا الكود في حدث الــ Load الخاص بالفورم

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

شكرا أخي 
الرد
تم الشكر بواسطة: ابراهيم ايبو
#4
السلام عليكم

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 


هذه عدة طرق اخرى
الرد
تم الشكر بواسطة: asemshahen5 , paveldida , ابراهيم ايبو
#5
(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 


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

بارك الله فيك
الرد
تم الشكر بواسطة: ابراهيم ايبو


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم