برای اینکار خط زیر رو داخل یک ماژول قرار دهید:

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

سپس از دستور زیر برای تغییر زبان استفاده کنید:

 LoadKeyboardLayout "00000429", 1

429 کد زبان فارسی

409 کد زبان انگلیسی

شما می تونید با لود شدن فرم اصلی زبان رو فارسی کرده و با بسته شدن فرم زبان رو انگلیسی کنید.

نوشته شده توسط مهدی در چهارشنبه 88/2/30 و ساعت 2:22 صبح | نظرات دیگران()