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

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

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

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")

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