زبان فارسی

[alisaniefar]

سلام
شب بخیر
بعضی از نرم افزار ها بدون نصب زبان فارسی در ویندوز به راحتی فارسی تایپ می کنن
این قضیه اش چیه
من می خوام یه دکمه درست کنم که تو برنامه وقتی روش کلیک کنیم فقط تو خود برنامه بدون نصب زبان فارسی در ویندوز ، فارسی تایپ کنه
مرسی!

[reza6384]

شما باید دنبال فارسی سازهای مستقل از کدپیج بگردین. توی سایت هست، جستجو کنین.

[parsavb]

این کد رو تو یه ماژول بزار و تورویداد کلیک خودت بنویس set farsi() , set english(),set



PrivateDeclareFunction GetKeyboardLayoutName Lib"user32"Alias"GetKeyboardLayoutNameA" (ByVal pwszKLID AsString) AsInteger
PrivateDeclareFunction LoadKeyboardLayout Lib"user32"Alias"LoadKeyboardLayoutA" (ByVal pwszKLID AsString, ByVal flags AsInteger) AsInteger
PrivateDeclareFunction ActivateKeyboardLayout Lib"user32" (ByVal HKL AsInteger, ByVal flags AsInteger) AsInteger
PrivateConst HKL_NEXT AsShort = 1
PrivateConst HKL_PREV AsShort = 0
PrivateConst ELAYOUT AsString = "00000409"
PrivateConst FLAYOUT AsString = "00000429"
PrivateConst KLF_REORDER AsInteger = &H8
Sub SetFarsi()
Dim K2 AsNew VB6.FixedLengthString(30)
K2.Value = Space(30)
GetKeyboardLayoutName(K2.Value)
If K2.Value <> FLAYOUT Then
ActivateKeyboardLayout(HKL_NEXT, KLF_REORDER)
EndIf
EndSub
Sub SetEnglish()
Dim K2 AsNew VB6.FixedLengthString(30)
K2.Value = Space(30)
GetKeyboardLayoutName(K2.Value)
If K2.Value <> ELAYOUT Then
ActivateKeyboardLayout(HKL_NEXT, KLF_REORDER)
EndIf
EndSub