تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
عند الضغط على زر في الكيبورد يضغط زر بوتن في المشوع تلقائيا
#1
الاخوة اعضاء المنتدى الافاضل اطلب منكم مثال او كود على طريقة جعل زر بوتن يضيء تلقائيا عند ضغط على زر في الكيبورد يقابل تسميته بمعنى ادق
يعني لدي 10 زر بوتن في الفورم وكل زر له تسمية تقابل زر في الكيبورد مثلا زر كيبورد (1) يوجد مثله زر بوتن (1) وزر (2) يوجد مثله (2)
عندما اضغط على زر 2 يضيء زر بوتن 2 في المشروع وهكذا على كل الازرار Rolleyes صعبة شوي لكن ليس على اساتذة منتدانا العزيز
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم
أخي الكريم
هناك طريقتان لتنفيذ طلبك:
الأولى: أن تقوم بوضع الرمز & أمام الرقم في خاصية النص للزر
مثال:
كود :
Button1.Text ="&1"
وعندما تريد أن تضغط على زر تقوم بالضغط على المفتاح ALT مع الرقم المطلوب

أما الثانية
فهذا الكود يحقق لك مبتغاك
كود :
Public Class Form1
    Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
        For Each Button_ As Button In Me.Controls.OfType(Of Button)()
            If e.KeyChar = Button_.Text Then
                'إذا أردت أن تجعل الوميض حول الزر
                Button_.Focus()
                'وإذا أردت تنفيذ حدث الضغط على الزر
                Button_.PerformClick()
                'للخروج من الحدث
                Exit Sub
            End If
        Next
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'لتمكين خاصية الفورم من استقبال
        'جميع الأزرار التي يقوم المستخدم بالضغط عليها
        'وتستطيع تغييرها أيضا من خصائص الفورم
        Me.KeyPreview = True
    End Sub
End Class

بالتوفيق
الرد }}}
تم الشكر بواسطة:
#3
عفوا على التكرار
الرد }}}
تم الشكر بواسطة:
#4
اسف اخي على التاخر بالرد لكن كوني اعيش في سوريا فالظروف تمنعني من الدخول الى النت كثيرا لكن هل لي بمثال على هذا ؟؟
فلقد جربت الكود لكن لم يعمل:o
الرد }}}
تم الشكر بواسطة:
#5
أضف 1 Timer
2- ضع هذا الكود تحت كلمه
كود :
Public Class Form1
كود :
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
3- خلى Timer Enabled True
4- اكتب هذا الكود فى Timer
كود :
If GetAsyncKeyState(Keys.A) Then
            'ضع الكود الذى تريضة هنا
        End If
    End Sub
الرد }}}
تم الشكر بواسطة:
#6
تفضل هذا هو المثال


الملفات المرفقة
.zip   KeyPress.zip (الحجم : 70.67 ك ب / التحميلات : 288)
الرد }}}
تم الشكر بواسطة:
#7
:d مشكووووووور اخي العزيز
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] ما هي طريقة استدعاء الازرار في الكيبورد من خلار زر افتراضي haider.mohsin92 1 295 14-12-23, 03:19 PM
آخر رد: Kamil
  [سؤال] حول ظهور النافذة الاولى عند الضغط على Menustrip2 في النافذة الثانية vb.net 2012 mh66 0 244 19-10-23, 09:05 AM
آخر رد: mh66
  [VB.NET] كيف اقوم بمنع المستخدم من استخدام الكيبورد وخصوصا مفتاح Print screen Ameenh 0 235 07-10-23, 10:45 PM
آخر رد: Ameenh
  اريد كود لمسح النص من textbox بمجرد الضغط على ال textebox للكتابة رهف العريفي 21 11,880 03-06-23, 04:56 AM
آخر رد: سعود
  [VB.NET] كود لجعل الكود ينفذ عن طريق زران في الكيبورد عبدالرحمن الأصبحي 1 541 20-01-23, 03:30 AM
آخر رد: asmarsou
  [VB.NET] راديو بوتن & شيك بوكس الزويي 2 499 19-01-23, 05:25 PM
آخر رد: الزويي
  تنفيذ الكود عند الضغط على checkbox الموجود في الداتاقريدفيو جيولوجي مبتدئ 1 1,108 29-09-22, 09:55 AM
آخر رد: mohamedassim
  [سؤال] اظهار الكيبورد الخاص بالويندوز محمد اسماعيل 3 2,739 19-09-22, 04:00 AM
آخر رد: abiza
  تحويل النص تلقائيا للعربية او الانجليزية nooralcown 6 5,762 19-08-22, 06:29 AM
آخر رد: esawy1
  [VB.NET] مشكلة اضافة بوتن لكل خلية بالداتاجريد فيو محمد اسماعيل 5 2,167 30-06-22, 08:29 PM
آخر رد: alessam4pro

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


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