Problema con PopUpmenu

di Anonimizzato6840 il
5 risposte
/
Anonimizzato6840
Utente anonimizzato
Buona sera a tutti il mio problema e' questo:
sto facendo un ocx che deve nascondere il menu.
Se uso questo codice in un progetto exe 

On Error Resume Next
Dim Obj As Menu
For Each Obj In Controls
    If TypeOf Obj Is Menu Then
         Obj.Visible = False
    End If
Next
tutto funziona.
Ma se il codice lo metto nel mio ocx non succede nulla
qualcuno puo' darmi un aiuto?
grazie. Saluti Henry.

5 Risposte

  • Super Famoso
    Iscritto da
    nov, 2011
    Messaggi
    21917
    For Each Obj In UserControl.Parent.Controls
  • /
    Anonimizzato6840
    Utente anonimizzato
    Ciao grazie per il tuo aiuto.
    Ma purtroppo non funziona, non capisco perche'.
    saluti henry.
  • Super Famoso
    Iscritto da
    nov, 2011
    Messaggi
    21917
    "Non funziona" non significa molto e non serve a poterti aiutare.

    Se dai qualche informazione in più sul progetto puoi ottenere qualche risposta più precisa ...

    Ad esempio, dove sta il menu che vuoi nascondere?
    Come è organizzato il tuo progetto?

    Non l'hai ancora detto ...
  • /
    Anonimizzato6840
    Utente anonimizzato
    Ho risolto,non so se e' un modo professionale ma funziona.
    in un modulo:
    Public Function Rimuovi(fr As Form)
On Error Resume Next
Dim obj As Object
Dim Srt As String

Srt = TypeName(obj)
For Each obj In fr
    If TypeOf obj Is Menu Then
   obj.Visible = False
    End If
Next
End Function
    Ciao grazie ancora.
  • Super Famoso
    Iscritto da
    nov, 2011
    Messaggi
    21917
    Se l'usercontrol sta nel form dove c'è il menu allora il codice che ti avevo suggerito deve funzionare.

    Se il menu sta in altro form, allora è giusto generalizzare con il parametro che hai utilizzato.
Devi accedere o registrarti per scrivere nel forum
5 risposte