منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] ويندوز ميديا بلاير وحدث ENTER - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] ويندوز ميديا بلاير وحدث ENTER (/showthread.php?tid=29648)

ويندوز ميديا بلاير وحدث ENTER - محمد اسماعيل - 19-05-19

السلام عليكم

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

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

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


كود :
 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


RE: ويندوز ميديا بلاير وحدث ENTER - sami4 - 19-05-19

(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
ثم عمل عمل ازارير بوتون عاديه للتحكم

RE: ويندوز ميديا بلاير وحدث ENTER - محمد اسماعيل - 19-05-19

(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
ثم عمل عمل ازارير بوتون عاديه للتحكم

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

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