کد فارسی سازی فرم ها

[jaber]

salam man ye code mikham ke vaqti fourm ejra shod keyboard farsi

beshe va vaqti forum baste shod keyboard english she mamnon misham

har ki baram bezaare vali eroor mirorr nade mamnon

[Darg]

ببین مطمعنم این برنامه به دردت می خوره:
مب بخشی یکم کثیفه! با عجله الان نوشتمش!

[hamed_Arfaee]

آقا جوارد چرا با عجله ؟
چرا اینجوری ؟
کلش کد زیر هست:
البطه برنامه آقا جواد کامل و بی نقص هست ولی خلاصش می شه این

کد:

private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long
   LoadKeyboardLayout "00000429", 1 'Farsi

   LoadKeyboardLayout "00000409", 1 'English

[jaber]

ممنون ام از هر 2 نفر شما

[jaber]

آقای hamed_Arfaee این کد رو باید در چه رویدادی نوشت من تو رویداد load

نوشتم ایرور داد

[Darg]

کد:

private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long
private sub form_Load()
   LoadKeyboardLayout "00000429", 1 'Farsi
end sub
private sub command1_click()
   LoadKeyboardLayout "00000409", 1 'English
end sub

با اجازه آقا حامد...
ببین اون تعریف در بخش General باید باشه و بقیه توی هر زیر برنامه ای ...

[hamed_Arfaee]

آقا جواد واقعا دستت درد نکنه وقعا که آقایی

[Darg]

آقا جواد واقعا دستت درد نکنه وقعا که آقایی

اختیار دارید آقایی از خودتونه (مثل اینکه کد خودتون رو دست کاری کردم ها ...)

[jaber]

ممنون ام آقا Darg