تغيير زبان سيستم

[mahmood3d]

سلام دوستان
باز من اومدم تا به شما زحمت بدم.
چطوري مي شه توي وي بي زبان سيستم رو عوض كرد . مثلاً من توي يك فرم برنامه اسامي رو هم به صورت فارسي و هم به صورت انگليسي مي گيرم و مي خوام بعد از اينكه نام انگليسي وارد شد و بعد از فشرده شدن Tab كه وارد Textbox مربوط به نام فارسي مي شه (Textbox ربوط به نام فارسي Setfocus مي شه) زبان سيستم به فارسي تغيير كنه و نياز به فشردن Alt+Shift نباشه .:گیج:
قبلا از زحماتتون خيلي خيلي ممنون

[Dr.Bronx]

فكر مي كنم واقعا بيش از 100 بار اين سوال رو پرسيدن
به خدا زحمت ندادي به خودت بگردي

اين دوتا تاپيك رو نگاه كن
فقط دو نتيجه از 5 صفحه يافته اي كه به من نشون داد

http://barnamenevis.org/forum/showpost.php?p=79064&postcount=4
http://barnamenevis.org/forum/showthread.php?t=113197&highlight=%D8%AA%D8%BA%D9%8A%D9%8A%D8%B1+%D8%B2%D8 %A8%D8%A7%D9%86

[mahmood3d]

فقط مي تونم بگم شرمنده . شما راست مي گي

[niniman]

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


If lang.Caption = "EN" Then
a = LoadKeyboardLayout("00000409", &H1)
lang.Caption = "ÇäáíÓí"
ElseIf lang.Caption = "farsi" Then
a = LoadKeyboardLayout("00000429", &H1)
lang.Caption = "ÝÇÑÓí"
End If

[mmssoft]

عالی بود. ممنون.