خواندن وضعیت صفحه کلید در vb6

[AFSHARAN]

سلام
من یک برنامه نوشتم با vb6 که یک مشکل داره در خواندن وضعیت کیبرد چه جوری میشه فهمید که کیبرد فارسی هست یا انگلیسی از طریق کد نویسی

[AFSHARAN]

پاسخ : خواندن وضعیت صفحه کلید در vb6

کممممممممممممممممممممممممممممممممممممممممممممممممک کنیییییییییییییییییییییییییییییییییییییییییییییییی یییییییییییییییییید

[مهدی مهری]

پاسخ : خواندن وضعیت صفحه کلید در vb6

سلام
کجایی؟کمپیدایی؟!
باید با api بفهمی.
البته اگه با دات نت نوشته بودیش الان یه dll بهت میدادم توپ ! خودش برات کیبورد رو فارسی میکرد .
این کد api:
اسمش : GETkeyboardLayoutName

Const KL_NAMELENGTH = 9

Private Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long

Private Sub Command1_Click()
 Dim Buffer As String
 
 Buffer = String(KL_NAMELENGTH, 0)
 GetKeyboardLayoutName Buffer
 
 Text1.Text = "Keyboard layout name: " + Buffer
 If (Buffer = 409) Then
   Text2.Text = "Language is ENGLISH(United State)"
 End If
 If (Buffer = 401) Then
   Text2.Text = "Language is ARABIC(Saudi Arabia)"
 End If
End Sub

یه تابع دیگه هم هست که میتونه زبان رو عوض کنه، اگه خواستی بگو تا اونم بزارم.
:nerd:
موفق باشید :smile: