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

• #51319 Fferi50 Topikgazda Mutt #51318

  Új Válasz 2023-08-10 21:58:50 #51319

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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