.:: ترفنــــــدهای خفن،آموزش و غیره ::.

هدف : این تابع ، زبان صفحه کلید را تغییر می دهد و نیازی به دادن کد زبان مورد نظر نمی باشد

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

مبدا فراخوانی : User32.dll

مقادیر برگشتی : اگر تابع با خطایی مواجه شود ، مقدار برگشتی تابع صفر خواهد بود

مثال : یک فرم جدید بسازید و دو دکمه بر روی آن قرار دهید و کد زیر را وارد نمایید:

Private Const HKL_NEXT = 1

Private Const HKL_PREV = 0

Public Declare Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As Long, ByVal flags As Long) As Long

Public Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long

Dim OldKB As Long

Private Sub Command1_Click()

  OldKB = GetKeyboardLayout(0)

 ActivateKeyboardLayout HKL_NEXT, ByVal 0&

End Sub

Private Sub Command2_Click()

 ActivateKeyboardLayout OldKB, ByVal 0&

End Sub