[MC-MeDo]

السلام عليكم ورحمة الله وبركاته
===================
 شباب احتاج لكود وضيفته انه تكون لمه اضغط على زر يعمل على ازرار اخرا ! 
مثل : انا عندي ماوس صح ؟ و عندي ازرار بالكيبورد صح ؟ .. يعني لمه اضغط على مثلا زر r يعمل كاني ضغطت على ماوس + زر من كيبورد ! 
بالله لي عنده ميقصر معي  
وشكرا جزيلا لكهم . لاول مره بشارك انشاء الله

[Abu Ehab]

اخي الكريم
كل القصة موجوده في KeyDown Event وقم بتفعيل PreView للفورم

[MC-MeDo]

(10-09-16, 10:32 AM)Abu Ehab كتب : اخي الكريم  
كل القصة   موجوده في KeyDown Event      وقم بتفعيل  PreView  للفورم

ياخي انتا مافهمتني + ياريت توضح لاني جديد 
=========================
انا احتاج مثلا انا صنعت لوحه وحطيت كود تمام كل شيئ  == بس ابي لمه اضغط رز من كيبورد يعمل الحدث مثلا : ظغطت على R  من كيبورد تقول ضغطت على mouse + c فهمتني؟

[soper]

اخي افهمك انا معني KeyDown Event معني هذه الكلمة هو حدث من احداث الفورم مثل حدث الفورم lode

لكن ايمكنك توضيح اكثر معني هذه الجملة

إقتباس :نا احتاج مثلا انا صنعت لوحه وحطيت كود تمام كل شيئ  == بس ابي لمه اضغط رز من كيبورد يعمل الحدث مثلا : ظغطت على R  من كيبورد تقول ضغطت على mouse + c فهمتني؟

[MC-MeDo]

(10-09-16, 10:16 PM)soper كتب : اخي افهمك انا معني KeyDown Event معني هذه الكلمة هو حدث من احداث الفورم مثل حدث الفورم lode

لكن ايمكنك توضيح اكثر معني هذه الجملة

إقتباس :نا احتاج مثلا انا صنعت لوحه وحطيت كود تمام كل شيئ  == بس ابي لمه اضغط رز من كيبورد يعمل الحدث مثلا : ظغطت على R  من كيبورد تقول ضغطت على mouse + c فهمتني؟

  يعني ادمج زرين في زر واحد من كيبورد مثلا : c + w في زر ALT من الكيبورد الرجاء المساعده لانني احتاجه ضروري 

[MC-MeDo]

(10-09-16, 11:58 PM)سعود كتب : اتوقع لو يتم ايضاح الفكرة بيكون اسرع بالحل

اولا ي اخي كل سنه وانتا طيب وكل المسلمين عيدكم مبارك 
تانيا : ماهوا اللذي ليش واضح ؟ انا طلبت كود وليس لديك ولاكن اضن انك لم تفهم فل تقرا الرد لي فوق  

 تالثا : موضوع بسيط يعني انا طالب ادمج زرين بزر واحد من كيبورد   
رابعها : مثلا شغلت البرنامج بدون اي زر عليه واضغط على z من كيبورد يكون يضغط c و u مو z يعني دمجت حرفين من كيبورد الى حرف واحد !

[أبو عمر]

ميددو
انت تريد  ان تطبع حرفين في التكست بوكس مثلا؟ والا انك تدوس C  يقوم مثلا بتظليل الكتابة في التكست أو نسخ الكلام اللي في التكست؟
طيب شوف

PHP كود :

Public Class Form1
    Private Sub TextBox1_KeyUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp
        If e.KeyCode = Keys.Enter Then
           Textbox1.Text="RU"
        End If
    End Sub
End Class 


اذا كبست انتر في التكست بوكس راح يطبع لك حرفين RU
اذا كلنا لم نفهم طلبك قل لنا ماهية عمل برنامجك من الاساس؟
لكن كونه puzzle  فماله حل الا في راسك انت لوحدك

[MC-MeDo]

(12-09-16, 06:28 PM)أبو عمر كتب : ميددو
انت تريد  ان تطبع حرفين في التكست بوكس مثلا؟ والا انك تدوس C  يقوم مثلا بتظليل الكتابة في التكست أو نسخ الكلام اللي في التكست؟
طيب شوف

PHP كود :

Public Class Form1
    Private Sub TextBox1_KeyUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp
        If e.KeyCode = Keys.Enter Then
           Textbox1.Text="RU"
        End If
    End Sub
End Class 


اذا كبست انتر في التكست بوكس راح يطبع لك حرفين RU
اذا كلنا لم نفهم طلبك قل لنا ماهية عمل برنامجك من الاساس؟
لكن كونه puzzle  فماله حل الا في راسك انت لوحدك

السلام عليكم اخي الكريم انتا اقربت ان تفهمني بس انا ماحتاجه بي تيكت بوكس انا احتاجه بالفورم لمه اضغط على مثلا مثلما قلت على انتر مايضغط انتر ولاكن يضغط C و R فهمتني  وانه البرنامج ريثما اشغله يشتغل على طول مو بزر وكدا فهمتني

---

مثلا شوف الصوره ! مثلا : انا ضغطت على c يضغط ماوس وليس c فهمتني 

[soper]

يعني انت قصدك زي اختصرات لوحة المفاتيح

[أبو عمر]

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 Object, e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
        If e.KeyChar = "c" Then
            ContextMenuStrip1.Show(Me.Width, Me.Height)
        End If
    End Sub
    Private Sub Form1_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Right Then
            ContextMenuStrip1.Show(Cursor.Position)
        End If
    End Sub