فارسی شدن صفحه کلید

[evilboy]

سلام
می خوام وقتی وارد برنامم می شم صفحه کلید فارسی بشه و نیازی به زدن کلید های
Alt + Shift نباشه
ممنون

[majidghost]

Declare Function SetKeyboardState Lib "user32" Alias "SetKeyboardState" (lppbKeyState As Byte) As Long

[perfeshnal]

سلام

دوست من فقط یک جستجو کافی بود حتما پیدا می کردی در این صفحه من یک کد قرار دادم برای فارسی کردن صفحه کلید

http://barnamenevis.org/forum/showthread.php?t=15209&page=26

[evilboy]

دوست عزیز من چیزی پیدا نکردم

[perfeshnal]

عزیزم این کد در اون صفحه نبود !!!


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

Private Sub Text1_Click()
Dim xx As Long
xx = LoadKeyboardLayout("00000429", 1)
End Sub
شما می تونی کدی که در رویداد کلیک TextBox هست رو در فرم لود برنامت هم بنویسی فرقی نمی کنه

[evilboy]

این ارور میاد

http://parsaspace.com/evilboy/Image/02.JPG

[__siavash__]

این ارور میاد

http://parsaspace.com/evilboy/Image/02.JPG
شما تابع API رو Declare کردی ؟

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

[perfeshnal]

سلام

اگر مشکلت حل نشد این یک نمونه برنامه