[تنبيه - عنوان غير مناسب : ]سوال في الفجول بيسك 6

استخدم الحدثين Form_KeyDown و Form_KeyUp كالتالي :

تنبيه :أود تنبيهك أن العنوان غير مناسب.

الرجاء اختيار عنوان مناسب أكثر في مواضيعك القادمة، وهذا بمثابة إشعار للأهمية.

السلام عليكم

اخ احمد شكرا عالرد وبعتذر بالنسبه للعنوان...

انا جربت وعملت

If KeyCode = vbKeyRight Then Text1.Text = "hello"

in form keydown()

بس مارضي

جربت اعمل

If keyascii = 13 Then Text1.Text = "hello"

in form keypress()

رضي بس انا عايزه لما ضغط على اي مفتاح تنعمل الشفره وبس اترك المفتاح يتوقف عمل الشفره

سبحان الله ،أعطاك الأجابة الأخ أحمد وقال لك في الحدثين وأنت تقولي له لم تعمل ،فما هي التي لم ترضى أن تعمل

ونصيحة هناك زر أسمه كود يمكنك تحديد كودك المكتوب قبل ارسال الرد والضغط على زر الكود ليتم وضعه بين كلمتي بداية ونهاية الكود ليظهر بالشكل التالي الجميل :

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
	If KeyCode = vbKeyRight Then Me.Caption = 1
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
	If KeyCode = vbKeyRight Then Me.Caption = 0
End Sub

Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeyRight Then Out &H378, 1

End Sub

Private Sub Command1_KeyUp(KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeyRight Then Out &H378, 0

End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

'If KeyCode = vbKeyRight Then Text1.Text = "heloo"

End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)

'If KeyCode = vbKeyRight Then Text1.Text = ""

End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

'If KeyCode = vbKeyRight Then Text1.Text = "heloo"

End Sub

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)

'If KeyCode = vbKeyRight Then Text1.Text = ""

End Sub

السلام عليكم

عفوا حاولت استخدم زر الاكواد ماعرفت كيف اضيف هالكود ليه

لما علمت الشفره الي كتبتها في الtext keydown

رضي بس لما عملتها عالform keydown

مارضي هل لانو الشفره الي هتؤدي عمل في التكست انكتبت في مكان غير التكست

هو مطلوب مني مشروع تحكم… وين اكتب الشفره Out &H378, 1

ماعرفت كيف اتحكم بشفره هاذي عن طريق ازرار احطها ب commandزي ماعملت لانو جربت اعمل الكتابه hello عالتكست عن طريق اوضع شفرتها في الcommand وليس في الtext مارضي

اعذروني ماعرفت اصيغ السوال بتمنى حد يفهم

اخ عبد العزيز اذا في حد مافهم بسرعه عادي مش ضروي تعصب ماصار شي يعني مش كل الناس زي

بعض(ههههها

الكلمه الناقصه عالعموم بعتذر منكم

عرفت الاجابه خلال بحثي بمنتديات اخرى

بغير خاصيه

keypreview=true

وانحلت المشكله