[jamme280]

يوجد لدي مشكلة في وضع كود خاص لزر معين !
قمت بكتابة ها الكود وذلك حتى استفيد من الإشارة التي تخرج من منفذ الطابعة
الكود هو: (( عذروني شوي صارت لخبطة في مكان الاقواس ولكن عند نسخ الكود ولصقة في الفيجول بيسك تضهر بالشكل الصحيح ))

Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)
Out "&H378", 255
End Sub
__________________________________________________ ____________
Private Sub Command1_KeyUp(KeyCode As Integer, Shift As Integer)
Out "&H378", 0
End Sub

ولكن هذا الكود يعمل مع جميع الأزرار

ثم وضعت هذا الكود حتى اجعله يعمل مع زر معين ولكن دون جدوى :

Private Sub Form_Keydown(Keypress As Integer, Shift As Integer)
If Keypress = 13 Then Keycode = 20
End Sub

كيف يمكن جعل الكود الأول مخصص ل الزر A ؟؟؟ وينفذ الأمر عند الضغط على الزر وينتهي عند رفع الإصبع عن الزر ؟

ملاحظة الكود Out "&H378", 255 يعني إخراج إشارة من منافذ الـ data الموجودة في منفذ الطابعة

أرجو من المختصين مد يد العون وسأكون شاكر لهم ولن أنسى جميلهم

[compiler_x]

تفضل اخي

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 65 Then
Out "&H378", 250
End If
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 65 Then
Out "&H378", 0
End If
End Sub


ولست بحاجة الى وضع اي زر في النافذة
فقط النافذة وسيتنفذ انشاء الله

[باسم ماجد]

اقتباس المشاركة الأصلية كتبت بواسطة compiler_x تفضل اخي Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 65 Then Out "&H378", 250 End If End Sub Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode = 65 Then Out "&H378", 0 End If End Sub ولست بحاجة الى وضع اي زر في النافذة فقط النافذة وسيتنفذ انشاء الله

أخي العزيز compiler_x
أرجو شرح هذا البرنامج بالتفصيل أقصد بالصور إن أمكن و ذلك لتعم الفائده كما تعلم أخي يوجد في الفيجوال بيسك أكواد و أزرار ...
و شكرا" مقدما"

[الهجري]

تحية طيبه

اخي اذا اردة تنفيذ بظغط على مفتاح من لوحة المفاتيح مثلا على Text2 ضع الكود في KeyPress رقم 13 في الكود هو المفتاح Enter اذا ضغطة عليه ينتقل المؤشر الى Text99

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then Text99.SetFocus

End Sub

[باسم ماجد]

تحية طيبة لجميع الأعضاء
ارجو شرح برنامج صغير فيجوال بيسك 6 للتحكم بمنافذ الطابعة و يا ليت يكون المنفذ الأكثر إنتشارا" و هو USB لتعم الفائدة
و تمنياتي للجميع بالتوفيق