السلام عليكم و رحمة الله و بركاتة
اخواني الخبراء هذا الكود خاص بالاستاذ ياسر خليل هل يمكنكم تطبيقه على البرنامج
CODE
Public LeTexte As String, LaCouleur As String, v As Long
Private Sub OptionButton1_Click()
WebBrowser1.Navigate _
"about:<html><body BGCOLOR ='#000000' scroll='no'><font color= " & LaCouleur & _
" size='5' face='arial'><body topmargin='0'>" & _
"<marquee direction= right>" & LeTexte & " </marquee></font></body><center></html>"
End Sub
Private Sub CommandButton1_Click()
WindowsMediaPlayer1.Controls.pause
Application.Visible = True
On Error Resume Next
ورقة1.Activate
TextBox1.Text = ""
On Error GoTo 0
Me.Hide
End Sub
Private Sub CommandButton3_Click()
WindowsMediaPlayer1.URL = ThisWorkbook.Path & "20.MP3"
WindowsMediaPlayer1.Controls.Play
End Sub
Private Sub CommandButton4_Click()
WindowsMediaPlayer1.Controls.pause
End Sub
Private Sub CommandButton5_Click()
WindowsMediaPlayer1.Controls.pause
End Sub
Private Sub UserForm_Activate()
CommandButton3_Click
End Sub
Private Sub UserForm_Initialize()
CommandButton3_Click
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
CommandButton4_Click
End Sub