Keresés

Új hozzászólás Aktív témák

  • Fferi50

    Topikgazda

    válasz Mutt #51318 üzenetére

    Szia!
    Szerintem egyáltalán nem kell a billentyűvizsgálat hozzá, a ComoBox maga is kezeli ezt. Annyi kell csak, hogy az Inicializálásnál vagy a fókuszba kerülésnél be kell állítani a ListIndexet a ListCount-1 értékre.
    Én biztosan nem foglalkoznék itt a KeyDown, KeyUp eseményekkel.
    Pl:
    Private Sub UserForm_Initialize()
        With Me.ComboBox1
            .AddItem "Géza"
            .AddItem "Paula"
            .AddItem "Kriszta"
            .AddItem "Aladár"
            .AddItem "Blöki"
            .AddItem "Maffia"
            .AddItem "Mz/X"
            .AddItem "Máris szomszéd"
            .ListIndex = .ListCount - 1
        End With
    End Sub
    Ha a Textbox1ből kilépünk és azt szeretnénk, hogy az utolsóra ugorjon:
    Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    With Me.ComboBox1
         .ListIndex = .ListCount - 1
    End With
    End Sub
    Bármelyik listaelemet be lehet ezzel a módszerrel állítani szerintem.
    Üdv.

Új hozzászólás Aktív témák