Nabídka portálu se při zobrazení článku přesouvá na konec pravého sloupce nabídek.
 Změna aktivní klávesnice (CZ,Eng ...) |
Autor: Kočí Marek
| Zdroj: SDK
| Vytvořeno: 4.3.2003
| Publikováno: 4.3.2003
| Čtenářů: 2790
| Unikátních: 2755
|
Potřebujete programově měnit klávesnici.Potom čtěte dále.
Pokud chcete přepínat za běhu programu klávesnici můžete použít API funkci ActivateKeyboardLayout.
Zde je malý a jednoduchý příklad jak se používá:
Na Form1 vložte:
TextBox (TextBox1)
CommandButton (CommandButton1)
a následující kód:
Private Sub Command1_Click()
SetNextKeyboard
Text1.SetFocus
End Sub
Do modulu mKeyboard vložte:
Option Explicit
Private Const HKL_NEXT As Long = 1
Private Declare Function ActivateKeyboardLayout _
Lib "user32" ( _
ByVal HKL As Long, _
ByVal Flags As Long) As Long
Public Sub SetNextKeyboard()
ActivateKeyboardLayout HKL_NEXT, 0
End Sub
|
Novinky e-mailem
Nejčtenější články
Anketa
Nabídka portálu