Utilizzo di Userform variabile

Question

Ciao a tutti,

per il progetto di booking, (per il quale ringrazio casanmaner) avrei ora la necessità di sfruttare un routine che controlla i pulsanti di una frame nel form utilizzandola con tutti i form del progetto che hanno i medesimi pulsanti con la medesima funzione.

---

Public WithEvents cmd As MSForms.CommandButton

'evento Click

Private Sub cmd_Click()

    'chiamata alla routine mEsegui

    'viene passato come parametro

    'il Name del CommandButton

    'sul quale si è fatto Click

    Call mEsegui(cmd.Caption)

End Sub

'routine chiamata dal dall'evento Click

Private Sub mEsegui(ByVal alfa As String)

    'MsgBox che identifica il

    'nome del CommandButton passato

    'come parametro

    'MsgBox "Hai premuto: " & alfa

    On Error Resume Next

    Call FormPrenotazioni.riCaricaListBox(alfa)

    Frame2.Visible = False

End Sub

---

questo è il codice ma i form sono quattro  (per ora) e non riesco in nessun modo a ricavare il nome del form attivo per passarlo a ricaricalistbox presente in ogni userform.

Posso farlo?

Tullio

Answer 1

Ciao Tullio,

Hai caricato il tuo file su DropBox ma, purtroppo,  non hai fornito un link in modo che io possa scaricarlo.

===

Regards,

Norman

Answer 2

Ciao Tullio,

In attesa della tua risposta, per caricare tutte le UserForm del progetto, prova qualcosa del genere:

'=========>>

Public Sub Tester()

    Dim VBComp As VBComponent

    Dim Obj As Object

    For Each VBComp In ThisWorkbook.VBProject.VBComponents

        If VBComp.Type = vbext_ct_MSForm Then

            With VBA.UserForms

                Set Obj = .Add(VBComp.Name)

                Obj.Show vbModeless

            End With

        End If

    Next VBComp

End Sub

'<<=========

===

Regards,

Norman

Answer 3

Ciao Tullio,

Ciao Norman, mi fa piacere rileggerti dopo almeno 5 anni di mia inattività.

Sicuramente non mi sono spiegato  e cerco di farlo meglio.

Nel progetto ci sono 4 UserForm e precisamente:

FormInserimentoClienti

FormInserimentoAgenzie

FormPrenotazioni

FormAltre

Su ciascun form è presente una frame che contiene questi pulsanti che mi servono a ricercare i nominativi immessi in base alla selezione A,B,D ecc. che sul click diventa la variabile (alfa) che viene passata al Form per la ricarica della ListBox.

Dato che il codice è nel modulo di classe clsCommandButton servirebbe un ciclo per ricaricare il form passandogli la variabile.

qualcosa come :

If (non so cosa) then

      Call UserFormMioNome.riCaricaListBox(alfa)

end if

Spero di essere stato chiaro

Tullio

Quello che non riesco a fare è una routine di scelta

Forse non ho capito, ma è possibile ricaricare, in modo dinamico, il controllo ListBox sulla UserForm attiva senza ricaricare la userform.

===

Regards,

Norman

Answer 4

Ciao Tullio,

per il progetto di booking, (per il quale ringrazio casanmaner) avrei ora la necessità di sfruttare un routine che controlla i pulsanti di una frame nel form utilizzandola con tutti i form del progetto che hanno i medesimi pulsanti con la medesima funzione.

---

Public WithEvents cmd As MSForms.CommandButton

'evento Click

Private Sub cmd_Click()

    'chiamata alla routine mEsegui

    'viene passato come parametro

    'il Name del CommandButton

    'sul quale si è fatto Click

    Call mEsegui(cmd.Caption)

End Sub

'routine chiamata dal dall'evento Click

Private Sub mEsegui(ByVal alfa As String)

    'MsgBox che identifica il

    'nome del CommandButton passato

    'come parametro

    'MsgBox "Hai premuto: " & alfa

    On Error Resume Next

    Call FormPrenotazioni.riCaricaListBox(alfa)

    Frame2.Visible = False

End Sub

---

questo è il codice ma i form sono quattro  (per ora) e non riesco in nessun modo a ricavare il nome del form attivo per passarlo a ricaricalistbox presente in ogni userform.

Posso farlo?

Prova:

        Call FormPrenotazioni.riCaricaListBox(Me.Name)

===

Regards,

Norman

Ciao Norman, mi fa piacere rileggerti dopo almeno 5 anni di mia inattività.

Sicuramente non mi sono spiegato  e cerco di farlo meglio.

Nel progetto ci sono 4 UserForm e precisamente:

FormInserimentoClienti

FormInserimentoAgenzie

FormPrenotazioni

FormAltre

Su ciascun form è presente una frame che contiene questi pulsanti che mi servono a ricercare i nominativi immessi in base alla selezione A,B,D ecc. che sul click diventa la variabile (alfa) che viene passata al Form per la ricarica della ListBox.

Dato che il codice è nel modulo di classe clsCommandButton servirebbe un ciclo per ricaricare il form passandogli la variabile.

qualcosa come :

If (non so cosa) then

      Call UserFormMioNome.riCaricaListBox(alfa)

end if

Spero di essere stato chiaro

Tullio

Quello che non riesco a fare è una routine di scelta

Answer 5

Ciao Tullio,

per il progetto di booking, (per il quale ringrazio casanmaner) avrei ora la necessità di sfruttare un routine che controlla i pulsanti di una frame nel form utilizzandola con tutti i form del progetto che hanno i medesimi pulsanti con la medesima funzione.

---

Public WithEvents cmd As MSForms.CommandButton

'evento Click

Private Sub cmd_Click()

    'chiamata alla routine mEsegui

    'viene passato come parametro

    'il Name del CommandButton

    'sul quale si è fatto Click

    Call mEsegui(cmd.Caption)

End Sub

'routine chiamata dal dall'evento Click

Private Sub mEsegui(ByVal alfa As String)

    'MsgBox che identifica il

    'nome del CommandButton passato

    'come parametro

    'MsgBox "Hai premuto: " & alfa

    On Error Resume Next

    Call FormPrenotazioni.riCaricaListBox(alfa)

    Frame2.Visible = False

End Sub

---

questo è il codice ma i form sono quattro  (per ora) e non riesco in nessun modo a ricavare il nome del form attivo per passarlo a ricaricalistbox presente in ogni userform.

Posso farlo?

Prova:

        Call FormPrenotazioni.riCaricaListBox(Me.Name)

===

Regards,

Norman