أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
ashraf_hertlion hassona229-- لا تميز خلال هذه الفترة YasserKhalil مطلوب تعديل الكود للطباعة اكسيل اسئله واجابات


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





تشغيل صوت mp3 بدون ضغط أي زر عند ظهور اليوزر فروم

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريبالسلام عليكم ورحمة الله وبركاته تقبل الله منا ومنكم صالح الأعمال ..


موضوع مغلق


15-05-2021 04:53 مساء
صالح ربيع
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 01-03-2021
رقم العضوية : 21834
المشاركات : 5
الجنس : ذكر
تاريخ الميلاد : 1-1-1986
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 64
 offline 

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريبالسلام عليكم ورحمة الله وبركاته

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

عندي سؤال واتمنى منكم الجواب: 
 كيف نجعل الصوت mp3 يعمل بصورة تلقائية عند ظهور اليوزرفورم بدون ضغط أي زر
  بشرط عند الضغط على زر الدخول إلى الشيت يتوقف الصوت وعند الضغط على زر الاغلاق يتوف الصوت

 
 
  تعديل.rar   تحميل rar مرات التحميل :(11)
الحجم :(637.406) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
وعليكم السلام
جرب الكود التالي بعد التعديلات لعله يفي بالغرض
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
عرض الإجابة




17-05-2021 08:50 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif تشغيل صوت mp3 بدون ضغط أي زر عند ظهور اليوزر فروم
وعليكم السلام
جرب الكود التالي بعد التعديلات لعله يفي بالغرض
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



الكلمات الدلالية
تشغيل ، بدون ، ظهور ، اليوزر ، فروم ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 07:26 مساء