منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[تم الحل] سؤل حلول keydown - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [تم الحل] سؤل حلول keydown (/showthread.php?tid=4385)

الصفحات: 1 2

[تم الحل] سؤل حلول keydown - ™ like VB ™ - 23-09-12

هل توجد طريقه جعل code down يتقبل زر Ctrl ?غير هذه الطريقه
If e.KeyCode = Keys.Ctrl Then
End If

[تم الحل] سؤل حلول keydown - RaggiTech - 23-09-12

يمكن معرفة حالة الضغط على اي زر من ازار لوحة المفاتيح عن طريق API بدالة GetKeyState

الرابط : اضغط هنا Cool

[تم الحل] سؤل حلول keydown - ™ like VB ™ - 23-09-12

Raggi Tech كتب :يمكن معرفة حالة الضغط على اي زر من ازار لوحة المفاتيح عن طريق API بدالة GetKeyState

الرابط : اضغط هنا Cool
شكرآ اخى لاكن لم افهم شيئ Sad

[تم الحل] سؤل حلول keydown - RaggiTech - 23-09-12

هذا مثال بـــفيجوال بيسك دوت نت 2010

التحميل : Key Logger.zip

[تم الحل] سؤل حلول keydown - ™ like VB ™ - 23-09-12

Raggi Tech كتب :هذا مثال بـــفيجوال بيسك دوت نت 2010

التحميل : Key Logger.zip
جزاك الله كل خير
انا جربت الكود وضع كلمه فى **** لاكن بدل مايكتب الكلمه مرا وحدا اعد يكرره اقصد انا خليته يكتب 1 فى ****box اعد يكتب 111111111111 هل يوجد حل؟

[تم الحل] سؤل حلول keydown - ™ like VB ™ - 23-09-12

بعد الكثير من المحولات الفاشله تم اجاد هذا الحل لان فى مشكله Wink هذا هو الكود
كود :
Private Sub ****Box1_KeyDown(ByVal sender As Object, ByVal e As System.******s.Forms.KeyEventArgs) Handles ****Box1.KeyDown

        If Keys.Control Then
            ****Box1.**** &= "vb4arb"
        End If
    End Sub
لاكن عند الضغط على اى زلر اخر يكرر الكلمه وى ازا وضعته فى حدث e.keycode مابيشتغلش المفتاح
انا فاشل كليآ بخصوص المفاتيح Big Grin

[تم الحل] سؤل حلول keydown - ™ like VB ™ - 23-09-12

تم ايجاد الحل بعد مرتين فشل من اخر كود هذا هو الحل للافاده

كود :
Private Sub ****Box1_KeyDown(ByVal sender As Object, ByVal e As System.******s.Forms.KeyEventArgs) Handles ****Box1.KeyDown

        If e.KeyCode = Keys.ControlKey Then
            ****Box1.**** &= "vb4arb"
        End If
    End Sub


[تم الحل] سؤل حلول keydown - RaggiTech - 23-09-12

[COLOR="#000080"]اخي ان كنت تريد ان لا يحدث تكرار فاستخدم KeyUp وليس KeyDown
كود :
If e.KeyCode = Keys.ControlKey Then
te xtbox1.te xt &= "vb4arb"
End If
[/COLOR]

[تم الحل] سؤل حلول keydown - ™ like VB ™ - 23-09-12

Raggi Tech كتب :[COLOR="#000080"]اخي ان كنت تريد ان لا يحدث تكرار فاستخدم KeyUp وليس KeyDown
كود :
If e.KeyCode = Keys.ControlKey Then
te xtbox1.te xt &= "vb4arb"
End If
[/COLOR]

لاسف تم التجربه مسبقآ ولم ينفع الى مهم عرفت اشغل Ctrl key
لاكن مازلت اريد ان لا يكرر الكلمه وى جارى التجربه شكرآ لى مرورك اخى
ان المسه الاخيره صعبه ديمآ Big Grin

[تم الحل] سؤل حلول keydown - RaggiTech - 23-09-12

اخي الكود يعمل معي كيف لا يعمل !!