فارسی کردن

[hossein_hgh]

سلام
سوالم اینه که چطور میشه در ابتدای لود کردن فرم زبان سیستم رو فارسی کرد تا دیگه نیازی به زدن Alt+Shiftتوسط کاربر نباشه ؟
باید از توابع API استفاده کرد؟

[Mbt925]

جستجو قبل از ایجاد تاپیک!

ماژول زیر رو به برنامتون اضافه کنید و با سپس می تونید با استفاده از توابع
Set_Persian و Set_English عمل موردنظرتون رو انجام بدید.

[alirezabahrami]

سلام
سوالم اینه که چطور میشه در ابتدای لود کردن فرم زبان سیستم رو فارسی کرد تا دیگه نیازی به زدن Alt+Shiftتوسط کاربر نباشه ؟
باید از توابع API استفاده کرد؟
سلام
بصورت زير هم مي توانيد انجام بدهيد:
اول كد هاي زير را در يك ماژول وارد كن :


Public Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal Flags As Long) As Long
Public Sub farsisaz()
LoadKeyboardLayout "00000429", &H1 'fa
End Sub
Public Sub englisysaz()
LoadKeyboardLayout "00000409", &H1 'En
End Sub

بعد هم در رخداد load فرم ، عبارت farsisaz را تايپ كن

موفق باشيد