منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : ويندوز ميديا بلاير وحدث ENTER
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم

عندي ويندوز ميديا بلاير اريد عند الضغط تتوقف وعن الضغط مرةاخري تعمل

قمت بوضع الكود الاتي ويعمل جيدا ولكن لاول مرة يتم الضغط فيها علي الاداة لازم عشان يشتغل تاني اضغط علي اي اداة اخري بالفورم وارجع تاني بالاداة اريد طريقة

طريقة تعمل مباشرتا بدون الضغط علي اي اداة اخري والرجوع مرة اخري


كود :
 Private Sub MEDIA_VEDIO_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MEDIA_VEDIO.Enter
       Try

           If MEDIA_VEDIO.playState = 2 Then
               MEDIA_VEDIO.Ctlcontrols.play()

           ElseIf MEDIA_VEDIO.playState = 3 Then
               MEDIA_VEDIO.Ctlcontrols.pause()

           ElseIf MEDIA_VEDIO.playState <> 3 Then
               MEDIA_VEDIO.Ctlcontrols.play()


           End If
تجربةفقط '        
   MEDIA_VEDIO.Invalidate()
           MEDIA_VEDIO.Focus()
           MEDIA_VEDIO.Select()
 
     Catch ex As Exception
           Exit Sub
       End Try
   End Sub
(19-05-19, 09:52 PM)محمد اسماعيل كتب : [ -> ]السلام عليكم

عندي ويندوز ميديا بلاير اريد عند الضغط تتوقف وعن الضغط مرةاخري تعمل

قمت بوضع الكود الاتي ويعمل جيدا ولكن لاول مرة يتم الضغط فيها علي الاداة لازم عشان يشتغل تاني اضغط علي اي اداة اخري بالفورم وارجع تاني بالاداة اريد طريقة

طريقة تعمل مباشرتا بدون الضغط علي اي اداة اخري والرجوع مرة اخري


كود :
 Private Sub MEDIA_VEDIO_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MEDIA_VEDIO.Enter
       Try

           If MEDIA_VEDIO.playState = 2 Then
               MEDIA_VEDIO.Ctlcontrols.play()

           ElseIf MEDIA_VEDIO.playState = 3 Then
               MEDIA_VEDIO.Ctlcontrols.pause()

           ElseIf MEDIA_VEDIO.playState <> 3 Then
               MEDIA_VEDIO.Ctlcontrols.play()


           End If
تجربةفقط '        
   MEDIA_VEDIO.Invalidate()
           MEDIA_VEDIO.Focus()
           MEDIA_VEDIO.Select()
 
     Catch ex As Exception
           Exit Sub
       End Try
   End Sub

الحدث enter يحث لمجرد انتقال التركير لاداه المديابلاير مثل الحدث gotfocus ولا تصلح هذه الطريقه

الافضل اخفاء ازارير التحكم بكتابه none في الخاصيه uiMode
ثم عمل عمل ازارير بوتون عاديه للتحكم
(19-05-19, 10:24 PM)sami4 كتب : [ -> ]
(19-05-19, 09:52 PM)محمد اسماعيل كتب : [ -> ]السلام عليكم

عندي ويندوز ميديا بلاير اريد عند الضغط تتوقف وعن الضغط مرةاخري تعمل

قمت بوضع الكود الاتي ويعمل جيدا ولكن لاول مرة يتم الضغط فيها علي الاداة لازم عشان يشتغل تاني اضغط علي اي اداة اخري بالفورم وارجع تاني بالاداة اريد طريقة

طريقة تعمل مباشرتا بدون الضغط علي اي اداة اخري والرجوع مرة اخري


كود :
 Private Sub MEDIA_VEDIO_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MEDIA_VEDIO.Enter
       Try

           If MEDIA_VEDIO.playState = 2 Then
               MEDIA_VEDIO.Ctlcontrols.play()

           ElseIf MEDIA_VEDIO.playState = 3 Then
               MEDIA_VEDIO.Ctlcontrols.pause()

           ElseIf MEDIA_VEDIO.playState <> 3 Then
               MEDIA_VEDIO.Ctlcontrols.play()


           End If
تجربةفقط '        
   MEDIA_VEDIO.Invalidate()
           MEDIA_VEDIO.Focus()
           MEDIA_VEDIO.Select()
 
     Catch ex As Exception
           Exit Sub
       End Try
   End Sub

الحدث enter يحث لمجرد انتقال التركير لاداه المديابلاير مثل الحدث gotfocus ولا تصلح هذه الطريقه

الافضل اخفاء ازارير التحكم بكتابه none في الخاصيه uiMode
ثم عمل عمل ازارير بوتون عاديه للتحكم

كل دة انا عملةرجوع تقدم بدا تشغيل ايقاف 

انا عايز حاجة زي ارسل الحدث لاداة ثانية واقوم بالعملية