|
Rozwijanie ComboBoxa po naciśnięciu dowolnego klawisza. (przysłał Druid) |
|
|
|
Napisał Administrator
|
|
wtorek, 24 styczeń 2006 |
Rozwijanie ComboBoxa po naciśnięciu dowolnego klawisza
-----------------------------------------------------------
Tłumaczenie na ludzki język: Druid
-----------------------------------------------------------
1. Utwórz projekt. Forma Form1 jest domyślnie tworzona.
2. Do okna General Declarations dla formy wklej funckję API wraz ze stałymi:
Const WM_USER = &H400
Const CB_SHOWDROPDOWN = &H14F
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
3. Umieść na formie Form1 obiekt ComboBox. Combo1 jest tworzone domyślnie.
4. Dodaj następujące polecenia do Form1_Load (wypełnienie Combo1) :
Combo1.AddItem "Microsoft"
Combo1.AddItem "Visual"
Combo1.AddItem "Basic"
5. Dodaj następujący kod do zdarzenia Combo1_KeyPress:
Dim I As Long
If KeyAscii = 13 Then
I = SendMessage(Combo1.hwnd, CB_SHOWDROPDOWN, True, 0&)
End If
6. Uruchom projekt. Naciśnięcie klawisza Enter w Combo1 spowoduje rozwinięcie
listy. Tip: lista może zostać rozwinięta po naciśnięciu dowolnego klawisza;
podmień jego numer w instrukcji warunkowej If... w zdarzeniu Combo1_KeyPress.
Aby dodać komentarz zaloguj się. Jeśli nie masz konta, załóż je sobie.
Tylko zarejestrowani użytkownicy mogą pisać komentarze. Powered by AkoComment 2.0! |
