تعديل هذا الكود - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182) +--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183) +--- الموضوع : تعديل هذا الكود (/showthread.php?tid=9621) |
تعديل هذا الكود - مبتدئ - 16-07-13 كود : Private Sub TrackBar1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TrackBar1.KeyDown تعديل هذا الكود - محمود اكرم - 16-07-13 [SIZE=5]السلام عليكم الذي فهمته من الكود ان هناك خطأ بان KeyDown فيها Keys.Right و Keys.Left وفي حدث KeyUp فيها Keys.Up و Keys.Down [/SIZE]وهذا ليس معقول انك تضغط ازرار اليمين واليسار وترفع الزر من الفوق والتحت [الاقتباس مبتدئ] Private Sub TrackBar2_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TrackBar2.KeyDown If e.KeyCode = Keys.Right Then Label1.Visible = True End If If e.KeyCode = Keys.Left Then Label1.Visible = True End If End Sub Private Sub TrackBar2_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TrackBar2.KeyUp If e.KeyCode = Keys.Up Then Label1.Visible = False End If If e.KeyCode = Keys.Down Then Label1.Visible = False End If End Sub المشكلة هنا انى TrackBar واحد فقط يعمل اما الثانى لا [انتهى الاقتباس] لذا الجواب هو لحدثي TrackBar 2 Private Sub TrackBar2_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TrackBar2.KeyDown If e.KeyCode = Keys.Right Then Label1.Visible = True End If If e.KeyCode = Keys.Left Then Label1.Visible = True End If End Sub Private Sub TrackBar2_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TrackBar2.KeyUp If e.KeyCode = Keys.Right Then Label1.Visible = False End If If e.KeyCode = Keys.Left Then Label1.Visible = False End If End Sub تعديل هذا الكود - مبتدئ - 16-07-13 محمود اكرم كتب :[SIZE=5]السلام عليكمواحد يعمل و واحد لا برده المشكلة فى select انة بيبئة معلم على واحد فا عند استخدام المفاتيح يعمل واحد فقط هل توجد طرية لى نقل التعليم عند استخدام المفاتيح؟ تعديل هذا الكود - محمود اكرم - 16-07-13 إقتباس :واحد يعمل و واحد لا برده المشكلة فى select انة بيبئة معلم على واحد فا عند استخدام المفاتيح يعمل واحد فقط هل توجد طريقة لى نقل التعليم عند استخدام المفاتيح؟نقل التعليم عند استخدام المفاتيح؟ باستخام Tab اذا لم يكن هذا قصدك فاني لم افهم عليك اخي وضح اكثر ماذا تريد ما هو المطلوب:confused::confused::confused: تعديل هذا الكود - مبتدئ - 16-07-13 محمود اكرم كتب :نقل التعليم عند استخدام المفاتيح؟ باستخام Tab اقصد عند استخدام ال TrackBar بنستخدمة بى الفاره عادى لاكن عند تعين مفاتيح لى اسخدام 2 TrackBar واحد فقط يعمل تعديل هذا الكود - محمود اكرم - 17-07-13 ارجو التوضيح مالذي تريده من المزلاج الثاني هذا الكود يعمل معي وقد اختصرته ايضا Private Sub TrackBar1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TrackBar1.KeyDown If e.KeyCode = Keys.Right Or e.KeyCode = Keys.Left Then Label1.Visible = True End If End Sub Private Sub TrackBar1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TrackBar1.KeyUp If e.KeyCode = Keys.Right Or e.KeyCode = Keys.Left Then Label1.Visible = False End If End Sub Private Sub TrackBar2_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TrackBar2.KeyDown If e.KeyCode = Keys.Right Or e.KeyCode = Keys.Left Then Label1.Visible = True End If End Sub Private Sub TrackBar2_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TrackBar2.KeyUp If e.KeyCode = Keys.Right Or e.KeyCode = Keys.Left Then Label1.Visible = False End If End Sub تعديل هذا الكود - 3booody - 17-07-13 [COLOR="#800000"]السلام عليكم ورحمة الله وبركاته اخي الخطأ بكودك ضع هذا الكود الصحيح[/COLOR] كود : Private Sub TrackBar1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TrackBar1.KeyDown |