[VB6] CommandButton Click da codice

[evilsaint]

Salve,
creo un CommandButton da codice così:

Dim button As CommandButton
Set button = nomeform.Controls.Add("Vb.CommandButton", "button")
        With button
            .Caption = "Annulla"
            .Width = w * 0.1
            .Height = h * 0.05
            .Top = menuAmministrazione.Height + (h * 0.84)
            .Left = menuLido.Width + (w * 0.4)
            .Visible = True
        End With

Poi faccio la funzione dell'evento del click del mouse:

Private Sub button_Click()
       MsgBox "Cliccato"
End Sub

Ma l'evnto del click() non viene richiamato, cosa potrebbe essere?
Grazie

[wallrider]

Public Sub button_Click()

?

[evilsaint]

Ho provato con:

Public Sub button_Click()

ma è la stessa cosa, non richiama ugualmente l'evento

[xegallo]

Originariamente inviato da evilsaint
Salve,
creo un CommandButton da codice così:

Dim button As CommandButton  
Set button = nomeform.Controls.Add("Vb.CommandButton", "button")
        With button
            .Caption = "Annulla"
            .Width = w * 0.1
            .Height = h * 0.05
            .Top = menuAmministrazione.Height + (h * 0.84)
            .Left = menuLido.Width + (w * 0.4)
            .Visible = True
        End With

Poi faccio la funzione dell'evento del click del mouse:

Private Sub button_Click()
       MsgBox "Cliccato"
End Sub

Ma l'evnto del click() non viene richiamato, cosa potrebbe essere?
Grazie

se non lo dichiari withevents non li prende no gli eventi

[evilsaint]

Come faccio a dichiararlo withevents? Scusa ma non l'ho mai fatto.
Grazie

[xegallo]

dim withevents istanza as oggetto

adesso scrivi 100 volte
"devo premere F1 prima di chiedere sul forum"

[evilsaint]

Hai ragione!!!
Grazie di tutto

[evilsaint]

Se devo fare un tot di commandbutton come faccio ad associarli l'evebni click?
esempio:

dim i as Integer
dim withevents button as CommandButton
for i=0 to max
  set button=Controls.Add("Vb.CommandButton","button" & i)
  with button
    .caption="..."
    ......
    ......
  end with
next

Come faccio ad associare ad ogni bottone la funzione Click()?
Spero di essere stato chiaro.
Grazie

[MItaly]

Se ne devi fare tanti credo che ti convenga usare gli array di controlli...

[evilsaint]

Ma la dimensione dell'array non deve essere un numero statico? Io non so quanti bottoni devo creare, cioè il programma ne deve creare per quanti gliene servono.