Problema con PopUpmenu

di il
5 risposte

Problema con PopUpmenu

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

  • Re: Problema con PopUpmenu

    For Each Obj In UserControl.Parent.Controls
  • Re: Problema con PopUpmenu

    Ciao grazie per il tuo aiuto.
    Ma purtroppo non funziona, non capisco perche'.
    saluti henry.
  • Re: Problema con PopUpmenu

    "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 ...
  • Re: Problema con PopUpmenu

    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.
  • Re: Problema con PopUpmenu

    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