السلام عليكم
عندي برنامج يعمل مع بداية الوندوز وأريد أن أضع فيه ميزة وهي :
إذا كتبت
ةخاشةةثي
في أي مكان في الوندوز وحددت الكلام وضغطت على زر f12 يغير الكلام إلى إنجليزي والعكس ويطلع في النهاية كذا
mohammed
وشكرا
السلام عليكم
عندي برنامج يعمل مع بداية الوندوز وأريد أن أضع فيه ميزة وهي :
إذا كتبت
ةخاشةةثي
في أي مكان في الوندوز وحددت الكلام وضغطت على زر f12 يغير الكلام إلى إنجليزي والعكس ويطلع في النهاية كذا
mohammed
وشكرا
[shdw]في أي مكان في الوندوز[/shdw] ؟؟؟؟؟
صعبة ولكن ليست مستحيلة فماذا تقصد بالضبط ؟؟
في أي مكان في الوندوز مثل المواقع أو الوورد أو المفكرة أو نافذة البحث
في كل مكان فيه TEXT في الوندوز
ان شاء الله احاول في الموضوع وارد عليك
اخي العزيز
خطرت على بالي فكرة
لماذا لاتستخدم clipboard حيث انه يتم تخزين setText لاي نص محدد عند الضغط على مفتاح Ctrl+c أليس كذلك ؟
وبذلك يمكنك اخذ النص باستخدام gettext ومن ثم تحويله الى ماتريد وشكرا (f)
يا أخوي شوف
أنا مليت من كثر ما أكتب البريد بالعربي وإذا خلصت وشفت الشاشة
صار عربي ما صار انجليزي عشان كذا كبيت أطرح هالفكرة يمكن أقا لها
حل فكان بودي أن أضيف ميزه وهي تحديد الكلمه والضغط على زر معين
وتغيرها من عربي وإلى انجليزي والعكس
المشكلة هذه لست أنا الذي أقع فيها فقط بل 10000 ... الخ من الناس
يقعون فيها أيضا
اخي يمكنك الاستفاده من هذا الكود .
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
مشكور يا أخوي
هل أقدر إذا ضغطت زر يغير بدون 2 تكست و أعممه على الوندوز أو لا
هذا الموضوع مغلق.