[vb6] assegnare comando a commandbutton creato a runtime

[marguppy]

ho un pulsante generato a runtime insieme ad altri oggetti
Voglio far si che quando clicco sul pulsante in questione vengano eliminati gli altri oggetti.
Come faccio ad attribuire tale comando al pulsante?

[oregon]

Come lo hai generato il pulsante?

[marguppy]

 Set cmdElimina = Controls.Add("VB.CommandButton", "elimina" & n, Picture2)
                cmdElimina.Visible = True
                cmdElimina.Caption = "X"
                cmdElimina.Move 11000, x, 300, 300

[Grumpy]

ho un pulsante generato a runtime insieme ad altri oggetti

Perché? Se vuoi far vedere/non vedere o usare/non usare dei controlli è molto più semplice utilizzare le proprietà Enabled e/o Visible anziché creare e distruggere oggetti a run-time.

Se invece c'è qualche altro buon motivo non indicato, oregon ti risponderà di sicuro.

[marguppy]

Dunque, sono certo che qualcuno esperto in materia dirà che non è questo il modo giusto per fare ciò che mi occorre ma è l'unico modo che conosco.
In realtà gli oggetti creati a runtime (alcune textbox e un commandbutton) vengono successivamente utilizzati per creare una fattura... praticamente sono i prodotti che dovranno essere inseriti in fattura, il pulsante dovrebbe eliminare il singolo prodotto nel caso fosse inserito per errore.
Ovviamente dovrebbe eliminare anche se stesso.
Il problema è che non so come attribuire tale comando.
Spero di essere stato abbastanza chiaro.

[Grumpy]

Se viene inserito un prodotto per errore ciò che devi eliminare non è il "contenitore" (oggetto TextBox), ma il suo contenuto (proprietà Text della TextBox). E poi non è così ovvio che un pulsante una volta usato debba essere eliminato dal form.

Confesso che questa metodologia "usa e getta" riferita ai controlli non l'avevo mai sentita dire.

[Boolean]

Originariamente inviato da marguppy
ho un pulsante generato a runtime insieme ad altri oggetti
Voglio far si che quando clicco sul pulsante in questione vengano eliminati gli altri oggetti.
Come faccio ad attribuire tale comando al pulsante?

Dichiara la variabile oggetto riferita al pulsante con la clausola WithEvents nella sezione Dichiarazioni del tuo form:

Dim WithEvents cmdElimina As CommandButton

dopo potrai utilizzare tutti gli eventi che desideri, come se il pulsante fosse già presente sul form:

Private Sub cmdElimina_Click()
MsgBox "Mi hai cliccato!"
End Sub

Boolean

[marguppy]

Che allocco!!! Non avevo dichiarato il pulsante...
Grazie Boolean