فارسی کردن کیبورد در VB

[akram_raeespour]

با سلام من دنبال یک کد هستم که بتوانم صفحه کلید را در VB به فارسی تغییر بدهم. خودم یک کد دارم که زبان صفحه کلید را فقط تغییر می دهد یعنی اگر فارسی باشد به انگلیسی و اگر انگلیسی باشد به فارسی.
متشکرم

[Neeloofar]

با سلام من دنبال یک کد هستم که بتوانم صفحه کلید را در VB به فارسی تغییر بدهم. خودم یک کد دارم که زبان صفحه کلید را فقط تغییر می دهد یعنی اگر فارسی باشد به انگلیسی و اگر انگلیسی باشد به فارسی.
متشکرم

سلام

یک ماژول ایجاد کن و کدهای ذیل را در آن قرار بده:



Option Explicit
Public Enum KeyboardLanguageConstants
iDefault = 0
iFarsi = 1
iEnglish = 2
End Enum

Private Const LANG_FA_IR As String = "00000429" 'FA_IR
Private Const LANG_EN_US As String = "00000409" 'EN_US

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

Public Sub SetKeyboardLanguage(LID As KeyboardLanguageConstants)
Dim strlID As String
Const KLF_ACTIVATE = &H1
If LID = iEnglish Then
strlID = LANG_EN_US
ElseIf LID = iFarsi Then
strlID = LANG_FA_IR
Else
Exit Sub
End If

LoadKeyboardLayout strlID, KLF_ACTIVATE
End Sub



حالا تابع SetKeyboardLanguage رو از هرجا از پروژه فراخوانی کنید میتونی به انگلیسی یا فارسی تنظیم کنی!

موفق باشید :چشمک:

[pezhman_roudkhaneei]

با سلام خدمت همه ی دوستان عزیز

هر کجا که این 2 تا تابع را فراخوانی منید زبان کیبرد از فارسی به انگلیسی و بالعکس تغییر می کنه .





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

Public Function Change_Language_Farsi()
LoadKeyboardLayout "00000429", 1
End Function

Public Function Change_Language_English()
LoadKeyboardLayout "00000409", 1
End Function




موفق و موید باشید :بوس:

[sepehr1014]

ممنون دوستان.
این تابع فقط داخل برنامه مفیده. چطور میشه زبان سیستم رو عوض کرد؟
http://barnamenevis.org/showthread.php?462068-%D8%A7%D9%81%D8%B2%D9%88%D8%AF%D9%86-%D8%B2%D8%A8%D8%A7%D9%86-%D8%AC%D8%AF%DB%8C%D8%AF-%D8%A8%D9%87-%DA%A9%DB%8C%D8%A8%D9%88%D8%B1%D8%AF&p=2068473#post2068473