Come faccio a creare dinamicamente delle commandbutton?
Come faccio a creare dinamicamente delle commandbutton?
In quale linguaggio, please?![]()
MARCO BREVEGLIERI
Software and Web Developer, Teacher and Consultant
Home | Blog | Delphi Podcast | Twitch | Altro...
Se usi VB
da codice puoi fare in questo modo.
In modo semplice:
metti il controllo che ti serve sulla form e utilizzalo come matrice di controlli.
poi da codice utilizza il metodo LOAD oggetto(id)
dove id è un contatore degli oggetti che crei, fallo avanzare man mano che ne crei uno, e tramite questo id posizionalo con:
oggetto(id).Top, oggetto(id).Left o modifichi qualsiasi property che vuoi.
Fammi sapere se cosi è troppo semplice, si puo fare anche via codice ma è più difficile.
Il dubbio non è piacevole, ma la certezza è ridicola. Solo gli imbecilli son sicuri di ciò che dicono.
E' sempre meglio attendere che l'autore definisca il linguaggio utilizzato per evitare di inserire soluzioni inadatte. Serve anche all'autore stesso per...imparare la lezione.Originariamente inviato da Genius7115
Se usi VB
Ciao!
MARCO BREVEGLIERI
Software and Web Developer, Teacher and Consultant
Home | Blog | Delphi Podcast | Twitch | Altro...
Ciao ALKA
ti hanno fatto moderatore?
mi fa piacere.... e da un pò che mancavo a queste discussioni...
hai fatto carriera..... ehehehehe
Ciao
Il dubbio non è piacevole, ma la certezza è ridicola. Solo gli imbecilli son sicuri di ciò che dicono.
Ciao Gmalex!
Potresti fare anche in questo modo:
codice:Private Sub Form_Load() 'la prima textbox esiste già in quanto è stata creata a design time, 'quindi occorre solo renderla visibile (se non lo è) e posizionarla Me.Text1(0).Visible = True Me.Text1(0).Move 500, 100 'il ciclo è solo d'esempio: 'per creare una serie di altre textbox: Dim i For i = 1 To 5 'carico la textbox nella form: Load Text1(i) 'la posiziono sotto quelle già presenti: With Text1(i) .Move 500, (400 * i + 100) .Visible = True End With Next i End Sub![]()
LM