الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

سؤال عن أزرار لوجة المفاتيح

مغلق
بدأه مثالي في 1 يناير 2002 · 7 رد · 896 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

عندي برنامج يعمل مع بداية الوندوز وأريد أن أضع فيه ميزة وهي :

إذا كتبت

ةخاشةةثي

في أي مكان في الوندوز وحددت الكلام وضغطت على زر f12 يغير الكلام إلى إنجليزي والعكس ويطلع في النهاية كذا

mohammed

وشكرا

#2

[shdw]في أي مكان في الوندوز[/shdw] ؟؟؟؟؟

صعبة ولكن ليست مستحيلة فماذا تقصد بالضبط ؟؟

#3

في أي مكان في الوندوز مثل المواقع أو الوورد أو المفكرة أو نافذة البحث

في كل مكان فيه TEXT في الوندوز

#4

ان شاء الله احاول في الموضوع وارد عليك

#5

اخي العزيز

خطرت على بالي فكرة

لماذا لاتستخدم clipboard حيث انه يتم تخزين setText لاي نص محدد عند الضغط على مفتاح Ctrl+c أليس كذلك ؟

وبذلك يمكنك اخذ النص باستخدام gettext ومن ثم تحويله الى ماتريد وشكرا (f)

#6

يا أخوي شوف

أنا مليت من كثر ما أكتب البريد بالعربي وإذا خلصت وشفت الشاشة

صار عربي ما صار انجليزي عشان كذا كبيت أطرح هالفكرة يمكن أقا لها

حل فكان بودي أن أضيف ميزه وهي تحديد الكلمه والضغط على زر معين

وتغيرها من عربي وإلى انجليزي والعكس

المشكلة هذه لست أنا الذي أقع فيها فقط بل 10000 ... الخ من الناس

يقعون فيها أيضا

#7

اخي يمكنك الاستفاده من هذا الكود .

Private Declare Function LoadKeyboardLayout Lib "user32" Alias _

"LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags _

As Long) As Long



Private Sub Text1_KeyPress(KeyAscii As Integer)

Text2.SetFocus

SendKeys Chr(KeyAscii)

LoadKeyboardLayout "00000409", 1

End Sub



Private Sub Text2_Change()

LoadKeyboardLayout "00000401", 1

Text1.SetFocus

End Sub
#8

مشكور يا أخوي

هل أقدر إذا ضغطت زر يغير بدون 2 تكست و أعممه على الوندوز أو لا

هذا الموضوع مغلق.

مواضيع مشابهة