no puedo ver la opacidad gradual

[neo101]

Saludos:

Necesito ayuda por favor, miren trataré de exponer mi caso:

Hice un control (panel) y le agregué la propiedad "opacity", funciona a mi voluntad y todo, PEEEEROOOO el asunto es el siguiente, traté d establecer varios paneles en una ventana y aparecerlos/desaparecerlos en base a la seleccion de un menú de botones (toolstrip); este código tambien funciona, pero solo a la mitad!!! es decir, el panel a desaparecer; desaparece inmediatamente (y no gradualmente como se espera opere) y el que va a aparecer si hace su aparición de forma gradual...

Código vb:

Private Sub Alfrente(ByVal Ps As Integer)
        If Ps = Fpanel Then Exit Sub
        Select Case Fpanel
            Case 0
                JbPanel1.Sh()
                JbPanel1.Visible = True
            Case 1
                JbPanel1.Hy()
                JbPanel1.Visible = False
            Case 2
                JbPanel2.Hy()
                JbPanel2.Visible = False
            Case 3
                JbPanel3.Hy()
                JbPanel3.Visible = False
        End Select
        Select Case Ps
            Case 1
                JbPanel1.Sh()
                JbPanel1.Visible = True
            Case 2
                JbPanel2.Sh()
                JbPanel2.Visible = True
            Case 3
                JbPanel3.Sh()
                JbPanel3.Visible = True
        End Select
        Fpanel = Ps
    End Sub
 

El primer case desaparece el panel q esta al frente indicado por la variable fpanel y el segundo case aparece el panel solicitado x el usuario...

No se, habia pensado en retener el proceso hasta q terminara d desvanecerse el anterior, pues sé que es la instruccion

Código:

JbPanel1.visible = False

la que hace q primero desaparezca el panel de manera inmediata y ya sin verse, se aplique el desvanecimiento... pero no hallo como hacer esto...

Bueno, los dejo opinar... Gracias x su atención...

[bllua]

Supongo que el método Hy es uno propio que va bajando la opacidad hasta que desaparece, si esto es así lo que puedes hacer es poner el visible = false dentro de ese método y que lo haga cuando la opacidad sea 0.

[neo101]

Muchas Gracias x tu respuesta... Si, el método .Hy() (ó -Sh()) desvanecen o hacen aparecer con gradualidad el panel instanciado; lamento decirte que aunq ponga el .visible cuando haya terminado de opacarse, hace el mismo efecto... Como lo desvanezco a través de un timer, te muestro el evento tick:

Código vbnet:

Private Sub timer_tick(ByVal sender As Object, ByVal e As System.EventArgs)
            If Estado < 0 Then
                If Me.Opacity = 0 Then
                    timer.Stop()
                    Me.Visible = False
                    edo = False
                Else
                    Me.Opacity -= Vel
                End If
            End If
            If Estado > 0 Then
                If Me.Opacity = 255 Then
                    timer.Stop()
                    Me.Visible = True
                    edo = False
                Else
                    Me.Opacity += Vel
                End If
            End If
            Me.Refresh()
        End Sub
 

Me has dado la idea d probar con 2 timer... A todos, les cuento después... Gracias x su atención...

[David]

Efectivamente, como mencionas, el hecho de que uses la propiedad Visible para ocultarlo hace que se oculte inmediatamente.

Por otro lado, habría que ver, por ejemplo, de dónde sale la variable Estado, ya que es posible que la estés sobreescribiendo al aparecer el otro panel haciendo que el efecto no funcione.

Saludos.

[neo101]

Gracias por tu respuesta.

La variable estado, es un miembro privado d esta clase, en el supuesto; estoy entendiendo que esta se inicializa como nueva, modificando un poco el código, y aplicando mas timers, me sucede exactamente lo mismo; de entrada esta variable que declaré como entea queda en cero:

Código vb.net:

'Sub New()
Public Sub New()
            MyBase.New()
            SetStyle(ControlStyles.AllPaintingInWmPaint, True)
            SetStyle(ControlStyles.UserPaint, True)
            SetStyle(ControlStyles.OptimizedDoubleBuffer, True)
            Me.BackColor = Color.Transparent
            x2 = 0
            y2 = 0
            ancho = Me.Width
            alto = Me.Height
            modecolor = 1
            Color1 = Color.Black
            Color2 = Color.White
            Color3 = Color.Black
            posiciones = New Single() {0, 0.2, 1.0}
            Av = 255
            Vel = 16
            intervalo = 25
            intervalo2 = 50
            timer1 = New System.Windows.Forms.Timer
            timer2 = New System.Windows.Forms.Timer
            AddHandler timer1.Tick, AddressOf Me.timer1_tick
            AddHandler timer2.Tick, AddressOf Me.timer2_tick
            edo1 = 0
            edo2 = 0
        End Sub
 

Arbitrariamente le asigno un valor negativo si quiero desvanecer y un positivo para que aparezca de nuevo, y aunq ponga el .visible = x en algun lugar o despues de completar la opacida, no hay cambios!! Realiza este efecto sin poderme dar las opciones o efectos que necesito... CAbe mencionar que para no sobreescribir las cosas, use timers y variables x separado... Les dejo los códigos que inicializan los efectos y los tick's q usé... ya me quedé sin ideas, la vdd...

Código vb.net:

Public Sub Sh() 'aparece el panel...
            While edo1 <> 0
            End While
            timer1.Interval = intervalo
            edo1 = 1
            timer1.Start()
        End Sub
 
        Public Function ShowAllObjects() As Integer '.visible = TRUE a todos los objetos contenidos...
            While edo2 <> 0
            End While
            timer2.Interval = intervalo2
            edo2 = 1
            idx = 0
            timer2.Start()
        End Function
 
        Public Sub Hy() 'desaparece el panel...
            While edo1 <> 0
            End While
            timer1.Interval = intervalo
            edo1 = -1
            timer1.Start()
        End Sub
 
        Public Function HideAllObjects() As Integer '.visible = false
            While edo2 <> 0
            End While
            timer2.Interval = intervalo2
            edo2 = -1
            idx = 0
            timer2.Start()
        End Function
 
        Private Sub timer1_tick(ByVal sender As Object, ByVal e As System.EventArgs)
            If edo1 < 0 Then
                If Me.Opacity = 0 Then
                    timer1.Stop()
                    edo1 = 0
                Else
                    Me.Opacity -= Vel
                End If
            End If
            If edo1 > 0 Then
                If Me.Opacity = 255 Then
                    timer1.Stop()
                    edo1 = 0
                Else
                    Me.Opacity += Vel
                End If
            End If
            Me.Refresh()
        End Sub
 
        Private Sub timer2_tick(ByVal sender As Object, ByVal e As System.EventArgs)
            If idx >= Me.Controls.Count Then
                timer2.Stop()
                edo2 = 0
            End If
            If edo2 > 0 Then 'showall
                Me.Controls(idx).Visible = True
            End If
            If edo2 < 0 Then        'hideall
                Me.Controls(idx).Visible = False
            End If
        End Sub
 

Gracias a todos x su atención...

[neo101]

A ver si este mensaje no me lo banean... ¬_¬

ya logré hacer el efecto que necesitaba, fué mas sencillo hacerlo a través de ciclos que disminuyeran la opacidad y / ó aparición o desaparición de controles cada X tiempo (el X tiempo es un retraso con la instrucción Thread.Sleep(intervalo_de_milisegundos)).

A partir de esto, lo que noto ahora es que derepente este proceso llega a tardarse con respecto a el contenido de controles adheridos (o agregados) al panel en cuestion... No se si me ecplique, pero entonces la nueva pregunta sería: ¿¿Si tengo más procesos en memoria o el programa consume ya recursos con otras ventanas, el proceso de opacidad/ocultación de controles ralentizará ó comprometerá el desempeño general del programa y o del equipo?

Escucho sus opiniones y muchas gracias a todos por tu atención...