تغییر زبان ویندوز در هنگام اجرای برنامه

برای تغییر زبان ویندوز از قطعه کد زیر استفاده کنید

InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(New System.Globalization.CultureInfo("fa-IR"))

اگر این کد در FormLoad برنامه قرار گیرد زبان ویندوز برای این فرم فارسی میشود

نوشتن فرم های چند زبانه و تغییر نوشتار کنترل ها در زمان اجرا

• ابتدا در فسمت property فرم Localizable آنرا True کنید

• کنترل های مورد نظر خود را به فرم اضافه نمایید.
• برچسب های نام های انگلیسی کنترل ها را بنویسید (منظور خاصیت Text آنها را به دلخواه تغییر دهید)

• Language آنرا به زبان فارسی تغییر دهید

• حال برچسب کنترل ها را با زبان فارسی بنویسید و جای آنها را به سلیقه خود تغییر دهید

• توجه داشته باشید در صورتیکه بخواهید کنترل جدید به فرم اضافه نمایید باید Language فرم (Default) باشد
• NameSpace های زیر را به اول برنامه اضافه نمایید:

Imports System.Globalization

Imports System.Threading
Imports System.ComponentModel

• از تابع زیر برای تغییر زبان فرم خود استفاده نمایید

    Private Sub ChangeLanguage(ByVal lang As String)
        For Each c As Control In Me.Controls
            Dim resources As ComponentResourceManager = New ComponentResourceManager(GetType(Form1))
            resources.ApplyResources(c, c.Name, New CultureInfo(lang))
        Next c
    End Sub

• برای استفاده از تابع تغییر زبان به صورت زیر عمل نمایید

ChangeLanguage("en") ' برای زبان انگلیسی
ChangeLanguage("fa-IR") ' برای زبان فارسی