منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تعديل هذا الكود - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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
        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 TrackBar1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TrackBar1.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
    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 واحد فقط يعمل اما الثانى لا


تعديل هذا الكود - محمود اكرم - 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]السلام عليكم
الذي فهمته من الكود ان هناك خطأ بان 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
واحد يعمل و واحد لا برده المشكلة فى select انة بيبئة معلم على واحد فا عند استخدام المفاتيح يعمل واحد فقط هل توجد طرية لى نقل التعليم عند استخدام المفاتيح؟


تعديل هذا الكود - محمود اكرم - 16-07-13

إقتباس :واحد يعمل و واحد لا برده المشكلة فى select انة بيبئة معلم على واحد فا عند استخدام المفاتيح يعمل واحد فقط هل توجد طريقة لى نقل التعليم عند استخدام المفاتيح؟
نقل التعليم عند استخدام المفاتيح؟ باستخام Tab
اذا لم يكن هذا قصدك
فاني لم افهم عليك اخي وضح اكثر ماذا تريد
ما هو المطلوب:confused::confused::confused:


تعديل هذا الكود - مبتدئ - 16-07-13

محمود اكرم كتب :نقل التعليم عند استخدام المفاتيح؟ باستخام Tab
اذا لم يكن هذا قصدك
فاني لم افهم عليك اخي وضح اكثر ماذا تريد
ما هو المطلوب:confused::confused::confused:

اقصد عند استخدام ال 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
        If e.KeyCode = Keys.Right Or e.KeyCode = Keys.Left Then
            Me.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
        Me.Label1.Visible = False
    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
            Me.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
        Me.Label1.Visible = False
    End Sub