كيف استطيع تحويل الكتابة إلى العربي او الانجليزي

الحل في استخدام دالة sendkeys

حيث يمكنك ارسال زري Alt+Shift

SendKeys "+%"

السلام عليكم ورحمة الله و بركاته

مش فاهم انت تقصد ايه

ممكن توضج اكتر؟

بسم الله الرحمن الرحيم

الاخ العزيز

هناك على ما اعرف 3 طرق يمكنك من خلالها ان تقم بعملية تغير اللغة :

1- عن طريق استخام الـ function .

2- عن طريق استخدام الـ xml .

3- مشتقات الـ notepad و مشتقاتها :

*.ini

اخىبالنسبة للطريقة الاولى :

تقم بعمل function بها جميع أوامر التغير من لغة انجليزية الى عربية

ثم تقم بعمل call لهذه الfunction

و قمت بارفاق مشروع ارجوا ان يوضح الفكرة العامة

( قمت بالنقل من اللغة الانجليزية الى العربية و انت اكمل الباقى )

2- بالنسبة للطريقة الثانية و الثالثة :

انا لا اجيد التعامل مع xml و اما الفكرة العامة هى :_

ان تقم بعمل ملف ايكان الامتداد و تقم بتعريف كل اداة قمت بوضعها فى البرنامج

( مثل الfunction ) ثم قم بوضع الترجمة لها و بعد هذا تقم بفتح الملف و تقم باستدعاء

ما بة و تقم بتغير القيم حسب الترجمة المكتوبة

و قمت بارفاق ملف يمكن من خلالة ان تصل الى الفكرة

و ارجوا ان اكون قد قدمت شئ و لو بسيط

شكرا ً

change_lang.zip

الملف الثانى

arabic.zip

السلام عليكم ورحمة الله وبركاته

شششششكرا لك أيها الأخ undo على هذه المعلومة القيمة

تحياتي لك مع أخلص التمنيات بدوام التوفيق

مثال عن كيفية التحويل بين اللغة العربية والانجليزية . . .

منقول من احد المنتديات الأ جنبية.

LanguageChange.rar

فى كود با API

الكود:

'This example was created by A.E.Veltstra

'This fucntion changes the locale and as a result, the keyboardlayout gets adjusted

'parameters for api's

Const KL_NAMELENGTH As Long = 9 'length of the keyboardbuffer

Const KLF_ACTIVATE As Long = &H1 'activate the layout

'the language constants

Const LANG_NL_STD As String = "00000413"

Const LANG_EN_US As String = "00000409"

Const LANG_DU_STD As String = "00000407"

Const LANG_FR_STD As String = "0000040C"

'api's to adjust the keyboardlayout

Private Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long

Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long

Public Function SetKbLayout(strLocaleId As String) As Boolean

'Changes the KeyboardLayout

'Returns TRUE when the KeyboardLayout was adjusted properly, FALSE otherwise

'If the KeyboardLayout isn't installed, this function will install it for you

On Error Resume Next

Dim strLocId As String 'used to retrieve current KeyboardLayout

Dim strMsg As String 'used as buffer

Dim lngErrNr As Long 'receives the API-error number

'create a buffer

strLocId = String(KL_NAMELENGTH, 0)

'retrieve the current KeyboardLayout

GetKeyboardLayoutName strLocId

'Check whether the current KeyboardLayout and the

'new one are the same

If strLocId = (strLocaleId & Chr(0)) Then

'If they're the same, we return immediately

SetKbLayout = True

Else

'create buffer

strLocId = String(KL_NAMELENGTH, 0)

'load and activate the layout for the current thread

strLocId = LoadKeyboardLayout((strLocaleId & Chr(0)), KLF_ACTIVATE)

If IsNull(strLocId) Then 'returns NULL when it fails

SetKbLayout = False

Else 'check again

'create buffer

strLocId = String(KL_NAMELENGTH, 0)

'retrieve the current layout

GetKeyboardLayoutName strLocId

If strLocId = (strLocaleId & Chr(0)) Then

SetKbLayout = True

Else

SetKbLayout = False

End If

End If

End If

End Function

Private Sub Form_Load()

'change the current keybour layout to 'English - US'

SetKbLayout LANG_EN_US

End Sub

انا اسف لانى لصقته على كده بدون مشروع

باىىىىىى