منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : ممكن طلب !! أرجوا المساعده عاجل جداً !!
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
بصراحة عندي طلبين أرجوا أخواني الأعضاء مساعدتي :

الطلب الاول : أريد كود : عندما أكتب على textbox ثم أضغط على الزر Enter يظهر لي رسالة بالموجود في textbox

الطلب الثاني :إذا كنت في أي فورم و قم بالضغط على الزرين ctrl+F يظهر لي فورآخر

أرجوا يكون السؤال واضح !!
إقتباس :
الطلب الاول : أريد كود : عندما أكتب على textbox ثم أضغط على الزر Enter يظهر لي رسالة بالموجود في textbox
ضمن حدث
كود :
KeyDown
لمربع النص اكتب
كود :
If e.KeyData = Keys.Enter Then            
MsgBox(TextBox1.Text)


        End If
إقتباس :
الطلب الثاني :إذا كنت في أي فورم و قم بالضغط على الزرين ctrl+F يظهر لي فورآخر
ضمن حدث
كود :
KeyDown
للفورم الحالي اكتب
كود :
If e.KeyData = Keys.Control + Keys.F Then            
Dim frm As New Form1
            frm.Show()
        End If

ملاحظة! لا يعمل الكود في حال تمكين Tabstop
بلا شك اخواننا لديهم كود افضل.
سعود كتب :ضمن حدث
كود :
KeyDown
للفورم الحالي اكتب
كود :
If e.KeyData = Keys.Control + Keys.F Then            
Dim frm As New Form1
            frm.Show()
        End If

ملاحظة! لا يعمل الكود في حال تمكين Tabstop
بلا شك اخواننا لديهم كود افضل.

الكود يعمل في حال تمكين Tabstop لكن بشرط تمكين خاصية KeyPreview للـForm
السلام عليكم ..

بعد إذنكم أخواني ..

أخوي هذا ملف مرفق شيك عليه وإن شاء الله بيعجبك ..

طبعاً إذا ضغطت على انتر بيظهر لك الكلام اللي في التيكست بوكس

وإذا ضغطت على الحرف f بيظهر لك الفورم الثاني

وبالتوفيق ،،
Wink شكرا أخواني الأعضاء : سعود , Aly El-Haddad , Abu00Raas
جزاكم الله خير ونفعنا بكم إن شاء الله ......جربت الأكواد و كانت 100% Smile