19. marts 2003 - 13:53Der er
5 kommentarer og 1 løsning
combobox ala explore adresse linje
Hej E'er
Jeg har en combobox jeg gerne vil have til at opføre sig som exeplores adresse linje
Jeg har fået nævnte til at folde sig ud ved at:
Declare Function SendMassege Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal WParm As Long, lParam As Long) As Long
Public Const CB_SHOWDROPDOWN = &H14F
Private Sub Combo1_KeyUp(KeyCode As Integer, Shift As Integer) If Len(Combo1.Text) > 0 And KeyCode <> 11 And KeyCode <> 13 Then SendMassege Combo1.hwnd, CB_SHOWDROPDOWN, 1, ByVal 0& End If End Sub
Så mangler jeg bare at få den til at automatisk scrolle ned til den første der passer på indholdet af combo1.text.
Prøv at lægge denne kode på en tom form med en combobox.
//akj
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Const CB_SHOWDROPDOWN = &H14F
Private Sub Combo1_Keyup(keycode As Integer, shift As Integer)
btw: hvis man tager comboboxen fra ms forms 2.0 får man næsten det jeg skal bruge, med den undtagelse at den ikke automatisk sætter den man er nået til øverest i listen
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
