فارسی کردن کیبورد در...

[twelve]

:خجالت: سلام ، من میخوام به محض focus شدن روی text box ، صفحه کلید فارسی بشه تا نیازی به تغیر زبان نباشه ، چطور باید اینکار رو کنم؟

[saeed_rezaei]

سلام
تابع زیر زبان جاری رو واست عوض می کنه.



PublicSub changelanguge(ByVal cl AsString)

Dim lang As System.Windows.Forms.InputLanguage
ForEach lang In System.Windows.Forms.InputLanguage.InstalledInputL anguages
If (lang.Culture.TwoLetterISOLanguageName = cl) Then
System.Windows.Forms.Application.CurrentCulture = lang.Culture
System.Windows.Forms.Application.CurrentInputLangu age = lang
EndIf
Next

EndSub


حالا هر وقت خواستی بری یه زبان دیگه باید دو حرف اول اون زبان رو وارد کنی. برای مثال برای تغییر زبان به فارسی می نویسی:


changelanguge("fa")


و یا تغییر به انگلیسی:



changelanguge("en")

[art2000ir]

اگر بخواهیم یک زبان مثل فرانسه را به زبان ها اضاقه کنیم یعنی نصب کنیم چی کار باید کرد ؟