Nabídka portálu se při zobrazení článku přesouvá na konec pravého sloupce nabídek.
 Změna rozložení klávesnice ve VB |
Autor: Kočí Marek
| Zdroj:
| Vytvořeno: 19.11.2003
| Publikováno: 19.11.2003
| Čtenářů: 3038
| Unikátních: 2980
|
Potřebujete přepnout uživatele na ANG,FR,RU atd. klávesnici?
Zde je návod jak na to.
Tento kód zkopírujte na formulář VB (musí obsahovat tlačítko command1).Dále to nebudu rozepisovat kód je krátký a přehledný.
Private Const HKL_NEXT As Long = 1
Private Const HKL_PREV As Long = 0
Private Declare Function ActivateKeyboardLayout _
Lib "user32" ( _
ByVal HKL As Long, _
ByVal Flags As Long) As Long
Private Declare Function GetKeyboardLayout _
Lib "user32" ( _
ByVal dwLayout As Long) As Long
Private Function NextKbdLayout() As Long
Dim lngCurKBD As Long
Dim lngNextKBD As Long
'Aktuální ukazatel KBD
lngCurKBD = GetKeyboardLayout(0)
ActivateKeyboardLayout HKL_NEXT, 0
NextKbdLayout = lngCurKBD
End Function
Private Function SetKbdLayout( _
ByVal lOld As Long) As Long
Dim lngCurKBD As Long
Dim lngNextKBD As Long
'Aktuální ukazatel KBD
lngCurKBD = GetKeyboardLayout(0)
ActivateKeyboardLayout lOld, 0
SetKbdLayout = lngCurKBD
End Function
Private Sub Command1_Click()
Dim lPredch As Long
lPredch = NextKbdLayout
MsgBox "asd"
lPredch = SetKbdLayout(lPredch)
End Sub
|
Novinky e-mailem
Nejčtenější články
Anketa
Nabídka portálu