|
Visual # per creare in un form un controllo
private sub cmdadd_click() if maxid = 0 then maxid = 1 ' imposta il numero totale di pulsanti di opzione. if maxid > 8 then exit sub ' e' possibile impostare un massimo di dieci pulsanti. maxid = maxid + 1 ' incrementa il conteggio dei pulsanti. load optbutton(maxid) ' crea un nuovo pulsante. optbutton(0).setfocus ' reimposta la selezione dei pulsanti. ' posiziona il nuovo pulsante sotto quello precedente. optbutton(maxid).top = optbutton(maxid - 1).top + 400 optbutton(maxid).visible = true ' visualizza il nuovo pulsante. optbutton(maxid).caption = "opzione" & maxid + 1 end sub |