| Oggetti UserForm di
Magicshark |
Eh già, sono ancora io. Stavolta ho letto
attentamente la guida, ma non ho trovato soluzione. Ho costruito
alcuni UserForm assegnando loro dei nomi (es: FrmStart). In quasi
tutti questi UserForm sono presenti i pulsanti Indietro e Avanti che
permettono di spostarsi tra i vari UserForm. Vorrei cambiare in
maniera dinamica il form che fanno partire i pulsanti di Avanti e
Indietro. Ho pensato allora di dichiarare
Public FrmForward
As UserForm
come variabile generica a cui assegnare tramite
script diversi UserForm per poter poi scrivere nei pulsanti
FrmForward.Show
Il Problema è che non riesco a
linkare la variabile all'oggetto userForm. Ho provato con
Set FrmFroward = Set FrmFroward =
New FrmFroward = Dim FrmFroward As New
Ma
niente da fare. Che dite? |
|
| di Mauro |
Da quello che capisco tu vuoi assegnare delle
Userform che hai creato ad una variabile oggetto Userform? Mi è
oscuro il motivo. Ad ogni modo: L'oggetto UserForm è un tipo di
dati Object. È possibile dichiarare variabili come tipo UserForm
prima di impostare le variabili su un'istanza di un tipo di UserForm
dichiarato in fase di progettazione. In modo analogo, è possibile
passare un argomento a una routine come tipo UserForm. È possibile
creare più istanze di form nel codice utilizzando la parola chiave
New in istruzioni Dim, Set e Static. Quindi dopo avere creato
una Userform di nome Form1, in un modulo di codice inserisci:
Sub prova() Dim prova As UserForm Set prova = New Form1
End Sub |
|