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

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