تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تعديل هذا الكود
#1
كود :
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 واحد فقط يعمل اما الثانى لا
الرد }}}}
تم الشكر بواسطة:
#2
[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
الرد }}}}
تم الشكر بواسطة:
#3
محمود اكرم كتب :[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 انة بيبئة معلم على واحد فا عند استخدام المفاتيح يعمل واحد فقط هل توجد طرية لى نقل التعليم عند استخدام المفاتيح؟
الرد }}}}
تم الشكر بواسطة:
#4
إقتباس :واحد يعمل و واحد لا برده المشكلة فى select انة بيبئة معلم على واحد فا عند استخدام المفاتيح يعمل واحد فقط هل توجد طريقة لى نقل التعليم عند استخدام المفاتيح؟
نقل التعليم عند استخدام المفاتيح؟ باستخام Tab
اذا لم يكن هذا قصدك
فاني لم افهم عليك اخي وضح اكثر ماذا تريد
ما هو المطلوب:confused::confused::confused:
الرد }}}}
تم الشكر بواسطة:
#5
محمود اكرم كتب :نقل التعليم عند استخدام المفاتيح؟ باستخام Tab
اذا لم يكن هذا قصدك
فاني لم افهم عليك اخي وضح اكثر ماذا تريد
ما هو المطلوب:confused::confused::confused:

اقصد عند استخدام ال TrackBar بنستخدمة بى الفاره عادى لاكن عند تعين مفاتيح لى اسخدام 2 TrackBar واحد فقط يعمل
الرد }}}}
تم الشكر بواسطة:
#6
ارجو التوضيح مالذي تريده من المزلاج الثاني هذا الكود يعمل معي وقد اختصرته ايضا
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
الرد }}}}
تم الشكر بواسطة:
#7
[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
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  حل مشكلة الكود الاتي - سهل- CLARO 3 75 02-12-16, 04:06 PM
آخر رد: ali.alfoly
  [كود] تعديل كود البحث بين تاريخينب hglogtd 2 38 29-11-16, 01:37 AM
آخر رد: hglogtd
  ما هو الخطاء فى هذا الكود "كود التعديل" السيد الجوهري 1 62 26-11-16, 03:22 AM
آخر رد: أبو عمر
  [VB.NET] ربط الداتا بيز بالكريستال ريبورت عن طريق الكود thevirus 3 93 22-11-16, 02:38 PM
آخر رد: thevirus
  [VB.NET] طلب تعديل ع الكود ليصبح البرنامج جاهزاً 3asfa~mdmra 8 191 12-11-16, 02:30 AM
آخر رد: 3asfa~mdmra
  [سؤال] هل يمكن عرض عناصر الكومبوبوكس عن طريق الكود ؟؟؟؟؟؟؟؟؟؟؟؟ thevirus 1 96 10-11-16, 06:25 PM
آخر رد: أبو عمر
  كيف اضيف هذا الكود في module nabil.1710 6 122 01-11-16, 03:23 PM
آخر رد: silverlight
  كيف انقل هذا الكود منForm2 اليForm1 3asfa~mdmra 2 73 30-10-16, 01:47 PM
آخر رد: 3asfa~mdmra
  [VB.NET] تعديل بسيط على المشروع المرفق أبووسم 4 133 29-10-16, 03:42 PM
آخر رد: أبووسم
  ممكن شرح هذا الكود؟ rafaag777 0 70 26-10-16, 10:18 AM
آخر رد: rafaag777

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم