[vb6] combo & click

[x69asterix]

ciao a tutti,
secondo voi è possibile all'apertura del Form simulare un click nel combobox?, con conseguenza visibilità dell'intermo del combo?

[Brainjar]

Si, è possibile tramite la proprietà ListIndex.
Impostarla ha lo stesso effetto del Click.
prova questo codice in un Form con una Combo.

Private Sub Form_Load()
    Combo1.AddItem "elemento " & 1
    Combo1.AddItem "elemento " & 2
    Combo1.AddItem "elemento " & 3
    Combo1.AddItem "elemento " & 4
    Combo1.AddItem "elemento " & 5
    Combo1.AddItem "elemento " & 6
    Combo1.ListIndex = 3
End Sub

Ciao,

[x69asterix]

Originariamente inviato da Brainjar
Si, è possibile tramite la proprietà ListIndex.
Impostarla ha lo stesso effetto del Click.
prova questo codice in un Form con una Combo.

Private Sub Form_Load()
    Combo1.AddItem "elemento " & 1
    Combo1.AddItem "elemento " & 2
    Combo1.AddItem "elemento " & 3
    Combo1.AddItem "elemento " & 4
    Combo1.AddItem "elemento " & 5
    Combo1.AddItem "elemento " & 6
    Combo1.ListIndex = 3
End Sub

Ciao,

ciao,
ma in questo modo io vado ad aggiungere, invece la mia combo è già popolata, non devo fare altro ke cliccare e scegliere, quindi la mia simulazione mi dovrebbe avvertire ke devo cliccare e scegliere. Qusto code fa la stessa cosa?

[Brainjar]

Quello che ti ho suggerito riguarda un semplice esempio.
Ovvio che la tua combo viene popolata già in un altro modo.
Il tuo primo post sembrava riguardare la possibilità di selezione
di un item 'via codice'.

Il tuo post successivo, invece, chiarisce che vuoi che si 'apre' la
combo.

Per fare questo devi considerare che :

1) Devi avere il focus nella combo
2) Nel Form_Load non puoi impostare un ControlloQualsiasi.SetFocus
3) Se lo imposti nel Form_Activate, avrai l'apertura della
combo tutte le volte che attivi la form.

Per cui il compromesso più indolore è avere l'apertura della
combo quando riceve il focus. Oppure gestisci se aprire o meno
tramite una variabile bool (vero/falso) nella Form_Activate.

Per l'apertura della combo al focus su di essa :
(Ovviamente l'esempio ti carica gli item, tu non ne hai bisogno)

Private Sub Combo1_GotFocus()
    SendKeys "{F4}"
End Sub

Private Sub Form_Load()
    Combo1.AddItem "elemento " & 1
    Combo1.AddItem "elemento " & 2
    Combo1.AddItem "elemento " & 3
    Combo1.AddItem "elemento " & 4
    Combo1.AddItem "elemento " & 5
    Combo1.AddItem "elemento " & 6
End Sub

Se hai solo la combo nel form, all'apertura ottieni gratis il focus
sulla combo.

Ciao,

[x69asterix]

Originariamente inviato da Brainjar
Quello che ti ho suggerito riguarda un semplice esempio.
Ovvio che la tua combo viene popolata già in un altro modo.
Il tuo primo post sembrava riguardare la possibilità di selezione
di un item 'via codice'.

Il tuo post successivo, invece, chiarisce che vuoi che si 'apre' la
combo.

Per fare questo devi considerare che :

1) Devi avere il focus nella combo
2) Nel Form_Load non puoi impostare un ControlloQualsiasi.SetFocus
3) Se lo imposti nel Form_Activate, avrai l'apertura della
combo tutte le volte che attivi la form.

Per cui il compromesso più indolore è avere l'apertura della
combo quando riceve il focus. Oppure gestisci se aprire o meno
tramite una variabile bool (vero/falso) nella Form_Activate.

Per l'apertura della combo al focus su di essa :
(Ovviamente l'esempio ti carica gli item, tu non ne hai bisogno)

Private Sub Combo1_GotFocus()
    SendKeys "{F4}"
End Sub

Private Sub Form_Load()
    Combo1.AddItem "elemento " & 1
    Combo1.AddItem "elemento " & 2
    Combo1.AddItem "elemento " & 3
    Combo1.AddItem "elemento " & 4
    Combo1.AddItem "elemento " & 5
    Combo1.AddItem "elemento " & 6
End Sub

Se hai solo la combo nel form, all'apertura ottieni gratis il focus
sulla combo.

Ciao,

ok,
Private Sub Combo1_GotFocus()
SendKeys "{F4}"
End Sub
questo riesce a fare quello ke volevo, tnx
cia