Public Declare Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As Long, ByVal flags As Long) As Long
Private Sub Command1_Click()
Dim uzunluk As Long
'KLF_REORDER : Seçilebilecek klavye listesinin yeniden düzenlenmesini sağlıyor.
'HKL_NEXT : Listedeki aktif klavyeden bir sonraki klavyenin seçilmesi için gereken parametre.
'HKL_PREV : Listedeki aktif klavyeden bir önceki klavyenin seçilmesi için gereken parametre.
uzunluk = ActivateKeyboardLayout(HKL_NEXT, KLF_REORDER)
If (uzunluk <> 0) Then
Text1.Text ="Aktif klavye değiştirildi."
End If
End Sub
Private Sub Command1_Click()
Dim uzunluk As Long
'KLF_REORDER : Seçilebilecek klavye listesinin yeniden düzenlenmesini sağlıyor.
'HKL_NEXT : Listedeki aktif klavyeden bir sonraki klavyenin seçilmesi için gereken parametre.
'HKL_PREV : Listedeki aktif klavyeden bir önceki klavyenin seçilmesi için gereken parametre.
uzunluk = ActivateKeyboardLayout(HKL_NEXT, KLF_REORDER)
If (uzunluk <> 0) Then
Text1.Text ="Aktif klavye değiştirildi."
End If
End Sub
