تقييم الموضوع :
  • 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
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مشكلة نقل الكود من Form2 الي Form1 3asfa~mdmra 2 70 17-02-17, 02:44 AM
آخر رد: الماجيك مسعد
  توليد الادوات في FlowLayoutPanel بواسطة الكود وحذفها (تم ارفاق المشروع) اليوم مبتدئة وغداً محترفة 16 317 13-02-17, 07:43 AM
آخر رد: اليوم مبتدئة وغداً محترفة
  ما الفرق بين اضافة قاعدة البيانات عن طريق الكود و اضافى قاعدة البيانات عن طريق add ne noway 1 47 12-02-17, 08:06 PM
آخر رد: مساعدة
  طلب تعديل كود لاظهار الصور من السكانر f-www 7 976 11-02-17, 02:03 AM
آخر رد: alimoi79
  [VB.NET] تعديل ع كود اتصال 3asfa~mdmra 0 42 06-02-17, 06:51 PM
آخر رد: 3asfa~mdmra
Photo [VB.NET] مساعده في تعديل كود التنبيه قبل انتهاء التاريخ بفتره زمنيه.. Marwan9990 11 181 02-02-17, 06:12 PM
آخر رد: Marwan9990
  [سؤال] تعديل عدة سجلات ابو يوسف النواوي 2 8 137 30-01-17, 03:19 AM
آخر رد: ابو ليلى
  [VB.NET] تعديل بيسط على الكود ليصيح جاهزآ 3asfa~mdmra 0 59 27-01-17, 06:01 PM
آخر رد: 3asfa~mdmra
  [VB.NET] رجاء تصحيح الكود التالي dubai.eig 4 96 25-01-17, 03:02 PM
آخر رد: مساعدة
  [VB.NET] ممكن حل مشكلة الكود MOSTAFA.KAMEL 1 164 22-01-17, 09:37 PM
آخر رد: MOSTAFA.KAMEL

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


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