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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية تشغيل وإغلاق الادوات الذكية لويندوز 7 عن طريق الكود رمضان محمد 1 71 منذ 5 ساعة مضت
آخر رد: رمضان محمد
  [VB.NET] برجاء المساعدة فى تعديل هذا الكود (htmlDocument.DocumentNode.SelectNodes) الماجيك مسعد 16 248 منذ 7 ساعة مضت
آخر رد: alma2
  [VB.NET] كيف اوضع ProgressBar في هذا الكود e-coder 0 54 23-05-17, 07:43 PM
آخر رد: e-coder
  [VB.NET] احتاج تعديل الكود يخص تشغيل Button حسب user domin hglogtd 4 106 22-05-17, 09:25 AM
آخر رد: hglogtd
  [VB.NET] اريد وضع مؤقت بدون تايمر داخل هذا الكود + المشروع بالكامل e-coder 0 52 19-05-17, 04:09 PM
آخر رد: e-coder
  منع تعديل التاريخ والوقت ريم النهاري 7 151 18-05-17, 09:28 AM
آخر رد: ريم النهاري
  [VB.NET] كيف اضع وقت في هذا الكود e-coder 4 131 18-05-17, 08:07 AM
آخر رد: e-coder
  اين الخطا في هذا الكود rabeh.ram 18 470 16-05-17, 10:48 PM
آخر رد: rabeh.ram
  [مشروع] ممكن تعديل علي المشروع دموع الوطن 12 208 15-05-17, 09:29 AM
آخر رد: دموع الوطن
  [كود] طلب الكود للتاريخ الميلادي كتابياُ باسم الشهر الميلادي . محمد مسافر 2 81 11-05-17, 12:42 AM
آخر رد: محمد مسافر

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


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