تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] احتاج كود الضغط على الكيبورد
#11
(13-09-16, 05:57 PM)أبو عمر كتب :
Add ContextMenuStrip
add some items like file open save etc..
just copy this code
run your app
hid c key or right click on form
Good luck
PHP كود :
   Private Sub Form1_KeyPress(sender As ObjectAs System.Windows.Forms.KeyPressEventArgsHandles Me.KeyPress
        If e
.KeyChar "c" Then
            ContextMenuStrip1
.Show(Me.WidthMe.Height)
 
       End If
 
   End Sub
    Private Sub Form1_MouseDown
(sender As ObjectAs System.Windows.Forms.MouseEventArgsHandles Me.MouseDown
        If e
.Button Windows.Forms.MouseButtons.Right Then
            ContextMenuStrip1
.Show(Cursor.Position)
 
       End If
 
   End Sub 

جاري التجريب  === Thank You

(13-09-16, 05:57 PM)أبو عمر كتب :
Add ContextMenuStrip
add some items like file open save etc..
just copy this code
run your app
hid c key or right click on form
Good luck
PHP كود :
   Private Sub Form1_KeyPress(sender As ObjectAs System.Windows.Forms.KeyPressEventArgsHandles Me.KeyPress
        If e
.KeyChar "c" Then
            ContextMenuStrip1
.Show(Me.WidthMe.Height)
 
       End If
 
   End Sub
    Private Sub Form1_MouseDown
(sender As ObjectAs System.Windows.Forms.MouseEventArgsHandles Me.MouseDown
        If e
.Button Windows.Forms.MouseButtons.Right Then
            ContextMenuStrip1
.Show(Cursor.Position)
 
       End If
 
   End Sub 

اخي الكريم شكرا لك لي الرد والمساعد بس ياريت توضح الكود  لاني جديد واحتاج الا التعليم -- هل انشئ زر او لا؟ لم افهم = e.Button + e.KeyChar
الرد }}}
تم الشكر بواسطة:
#12
PHP كود :
Private Sub Form1_MouseDown(sender As Objectميدو As System.Windows.Forms.MouseEventArgsHandles Me.MouseDown
        
If ميدو.Button Windows.Forms.MouseButtons.Right Then
            ContextMenuStrip1
.Show(Cursor.Position)
        
End If
    
End Sub 

ولا تزعل ركز ف الكود كود عادي نسمية حدث زرار الماوس وهو مضغوط لاسفل سواء اليمين او اليسار
e حرف عادي ولا يسوى اي حاجة لكن عندما تجعله ككائن او متغير تصبح له قيمة كبيرة جدا
انا استبدلت e ب ميدو زي ما انت شايف
انما مطورون بيئة الدوت نت اخذو هذا الحرف وخلوه يتم انشاؤه بشكل تلقائي عند انشاء اي حدث لاي كائن
الكائن مثلا Form1
والحدث بتاعنا Mouse Down
والمتغيير اللي تدخل في الكود "e" أو ميدو اصبح ككائن ثاني مستقل يحمل خصائص
كائن من كائنات النظام في حالة الماوس داون او الكي اب
e as System.Windows.Forms.MouseEventArg
e as System.Windows.Forms.Keyup
وتقدر تستغني عن e.button ب Mouse.Button
مثلاً
if e.Button= Windows.Forms.MouseButtons.Right then
msgbox""
end if
أو
if mouse Button= Windows.Forms.MouseButtons.Right then
msgbox""
end if
وتقدر تختصر Windows.Forms.MouseButtons.Right مثلا
if MouseButton=MouseButton.Right then
msgbox("")
end if

PHP كود :
Public Class Form1



    
Private Sub Form1_KeyPress(sender As Objectميدو As System.Windows.Forms.KeyPressEventArgsHandles Me.KeyPress
        
If ميدو.KeyChar "c" Then
            ContextMenuStrip1
.Show(Me.WidthMe.Height)
        
End If

    
End Sub
    
Private Sub Form1_MouseDown(sender As Objectميدو As System.Windows.Forms.MouseEventArgsHandles Me.MouseDown
        
If ميدو.Button Windows.Forms.MouseButtons.Right Then
            ContextMenuStrip1
.Show(Cursor.Position)
        
End If
    
End Sub

    
End 
Class 
بالتوفيق
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد }}}
تم الشكر بواسطة:
#13
(13-09-16, 07:35 PM)أبو عمر كتب :
PHP كود :
   Private Sub Form1_MouseDown(sender As Objectميدو As System.Windows.Forms.MouseEventArgsHandles Me.MouseDown
        If ميدو
.Button Windows.Forms.MouseButtons.Right Then
            ContextMenuStrip1
.Show(Cursor.Position)
 
       End If
 
   End Sub 

ولا تزعل ركز ف الكود كود عادي نسمية حدث  زرار الماوس وهو مضغوط لاسفل سواء اليمين او اليسار
e حرف عادي ولا يسوى اي حاجة لكن عندما تجعله ككائن او متغير تصبح له قيمة كبيرة جدا
انا استبدلت e ب ميدو زي ما انت شايف
انما مطورون بيئة الدوت نت اخذو هذا الحرف وخلوه يتم انشاؤه بشكل تلقائي عند انشاء اي حدث لاي كائن
الكائن مثلا  Form1
والحدث بتاعنا Mouse Down
والمتغيير اللي تدخل في الكود "e" أو ميدو اصبح ككائن ثاني مستقل يحمل خصائص
كائن من كائنات النظام في حالة الماوس داون او الكي اب
e as System.Windows.Forms.MouseEventArg
e as System.Windows.Forms.Keyup
وتقدر تستغني عن e.button ب Mouse.Button
مثلاً
if e.Button= Windows.Forms.MouseButtons.Right then
msgbox""
end if
أو
if mouse Button= Windows.Forms.MouseButtons.Right then
msgbox""
end if
وتقدر تختصر  Windows.Forms.MouseButtons.Right  مثلا
if MouseButton=MouseButton.Right then
msgbox("")
end if

PHP كود :
Public Class Form1



    Private Sub Form1_KeyPress
(sender As Objectميدو As System.Windows.Forms.KeyPressEventArgsHandles Me.KeyPress
        If ميدو
.KeyChar "c" Then
            ContextMenuStrip1
.Show(Me.WidthMe.Height)
 
       End If

 
   End Sub
    Private Sub Form1_MouseDown
(sender As Objectميدو As System.Windows.Forms.MouseEventArgsHandles Me.MouseDown
        If ميدو
.Button Windows.Forms.MouseButtons.Right Then
            ContextMenuStrip1
.Show(Cursor.Position)
 
       End If
 
   End Sub

    
End 
Class 
بالتوفيق
 اسف اخوي بس والله مافهمت وش اسوي للاسف


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] السلام عليكم ممكن مساعدة اخوان احتاج يكون تسجيل الدخول textbox1 + textbox2 Coder_iraqii 4 400 18-12-23, 06:46 PM
آخر رد: Kamil
  [VB.NET] ما هي طريقة استدعاء الازرار في الكيبورد من خلار زر افتراضي haider.mohsin92 1 295 14-12-23, 03:19 PM
آخر رد: Kamil
  احتاج كود اعادة الترقيم في السنة الجديدة ranosh 3 456 27-11-23, 01:25 AM
آخر رد: justforit
  [سؤال] حول ظهور النافذة الاولى عند الضغط على 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
  احتاج دالة التفقيط ، ريال سعودي .. كرما Ali_hassn 3 556 20-08-23, 06:35 AM
آخر رد: Alexander Max2
  [VB.NET] احتاج كود يغلق جميع الفورم ويبقي فقط الفورم Home Ali_hassn 4 545 15-08-23, 06:43 PM
آخر رد: Alexander Max2
  [VB.NET] احتاج فانكشن Ali_hassn 0 207 09-08-23, 09:24 PM
آخر رد: Ali_hassn
  اريد اضافة متغيراخر داخل Listbox1 احتاج تعديل بسيط moh61 0 350 05-08-23, 02:29 PM
آخر رد: moh61
  اريد كود لمسح النص من textbox بمجرد الضغط على ال textebox للكتابة رهف العريفي 21 11,884 03-06-23, 04:56 AM
آخر رد: سعود

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


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