تشخیص زبان صفحه کلید

[alireza661]

چطور بفهمم که زبان صفحه کلید FA هست یا EN ؟

[MohammadGh2011]

سلام عليکم
يک label و يک timer با اينتروال 1 روي فورم اضافه کنيد بعد کد زير رو اضافه کنيد:
Private Declare Function GetKeyboardLayout Lib "User32" (ByVal dwLayout As Long) As Long

Private Sub Timer1_Timer()
Dim L As Long
Label1.Caption = IIf(GetKeyboardLayout(L) Mod &H1000 = &H409, "En", "Fa")
End Sub

[xrezax]

کار نمی کنه ؟؟؟

[MohammadGh2011]

کار نمی کنه ؟؟؟
دوباره امتحان کردم به درستي کار ميکنه
تمامي گزينه ها رو دوباره بررسي کنيد

[alireza661]

این کد در اکس پی درست کار میکنه
ولی در 7 وقتی زبان en هست پاسخ میده fa
البته لازم به ذکر هست که من در ویندوزم برای تغییر زبان از لاتین به پارسی مجبورم 2 بار کلید های Alt + Shift رو فشار بدم اما برای تغییر به لاتین با 1 بار جواب میده

[MohammadGh2011]

این کد در اکس پی درست کار میکنه
ولی در 7 وقتی زبان en هست پاسخ میده fa

هم در ويندوز XP و هم در 7 به درستي جواب ميده،نميدونم شما چه طور امتحان ميکنيد!:متفکر:

[محسن واژدی]

سلام
منم تست کردم مشکلی نداشت

[بهروز عباسی]

درود به همه
فکر کنم دوستمون کیبردش سه زبانه باشه (مثلاً روسی،فارسی،انگلیسی)

البته لازم به ذکر هست که من در ویندوزم برای تغییر زبان از لاتین به پارسی مجبورم 2 بار کلید های Alt + Shift رو فشار بدم اما برای تغییر به لاتین با 1 بار جواب میده
و به همین خاطرجواب نمیده
دوست عزیز اینو که گفتم تست کن بگوکه سه زبانست یا نه فقط فارسی انگیسی
موفق باشی