اضافة الصوت للبرنامج

[husain alhammadi]

السلام عليكم و رحمة الله و بركاتة

اخواني الخبراء هل يمكن اضافة الصوت WindowsMediaPlayer1 فى UserForm2و UserForm3

Sub View_images()

Application.Visible = False
On Error Resume Next
        Login_screen.Show
        Application.Wait Now + TimeValue("00:00:3")
        Login_screen.Hide
        
        
        UserForm1.Show
        UserForm1.Repaint
        Application.Wait Now + TimeValue("00:00:3")
        UserForm1.Hide
        
        UserForm2.Show
        UserForm2.Repaint
        Application.Wait Now + TimeValue("00:00:9")
        UserForm2.Hide
        
        UserForm3.Show
        UserForm3.Repaint
        Application.Wait Now + TimeValue("00:00:9")
        UserForm3.Hide
      
        
        Application.Visible = True
        
       End
   On Error GoTo 0
    
 End Sub

 

[husain alhammadi]

اخواني الخبراء كيف اجعل  WindowsMediaPlayer1 الصوت يعمل و يوقف اتوماتيكيا عند فتح يوزرفورم مهما كان عدد اليوزرفورم

Private Sub OptionButton1_Click()
WindowsMediaPlayer1.URL = ThisWorkbook.Path & "سورة الإخلاص\"
Application.Wait (Now + TimeValue("0:00:45"))
WindowsMediaPlayer1.Controls.Play
End Sub

 

[husain alhammadi]

للرفع

[husain alhammadi]

السلام عليكم و رحمة الله و بركاتة

اخواني الخبراء هل يمكن دمج كودين فى UserForm1 اضافة الصوت WindowsMediaPlayer1

هذا كود يوزرفورم
Private Sub CommandButton5_Click()
Application.Visible = False
On Error Resume Next
        Login_screen.Show
        Application.Wait Now + TimeValue("00:00:3")
        Login_screen.Hide
        
        
        UserForm1.Show
        UserForm1.Repaint
        Application.Wait Now + TimeValue("00:00:3")
        UserForm1.Hide
        
        
        Application.Visible = True
        
       End
   On Error GoTo 0
End Sub


هذا كود الصوت

Private Sub CommandButton13_Click()
WindowsMediaPlayer3.Controls.Play
End Sub

 

تم تعديل نوفمبر 20, 2023 بواسطه husain alhammadi