تشخیص زبان کیبرد

[siyn71]

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

[Dr Saeed]

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

با سلام

یه تایمر بزارید رو فرم با یه تکس باکس

موفق باشید

Const KL_NAMELENGTH = 9
Private Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long
Public Buffer As String

Private Sub Text1_Change()
If Text1.Text = "00000409" Then
MsgBox ("Engilisi")
Else
MsgBox ("farsi")
End If


End Sub


Private Sub Timer1_Timer()
Buffer = String(KL_NAMELENGTH, 10)
GetKeyboardLayoutName Buffer

Text1.Text = Buffer
End Sub