none
Por qué no funciona mi código RRS feed

  • Pregunta

  • Tengo una serie de paneles y quiero hacer un efecto de transicción entre ellos, para ello uso este código. El problema es que si me pasa los paneles hacia la derecha, pero NO hacia la izquierda. Os lo dejo.

    Private Paneles As New List(Of Panel) 'Lo uso para ordenar los paneles.
    Dim i As Integer = 0 'Valor que tomo inicial para mostrar el primer panel.
    
    Private Sub Load(sender As Object, e As EventArgs) Handles Me.Load
    
            Paneles.Add(Panel1) 'Agrego paneles en el orden que quiero
            Paneles.Add(Panel2)
            Paneles.Add(Panel3)
    
        End Sub
    
    'Utilizo botones para cambiar de panel.
    
    'Botón hacia la derecha. Este FUNCIONA.
    
            i = i + 1
    
            Dim GetCtrl As Panel = Paneles.Item(i)
    
            Dim Pto As Point = New Point(60, 0)
    
            GetCtrl.Location = Pto
    
    'Botón hacia la izquiera. NO FUNCIONA
    
    i = i - 1
    
            Dim GetCtrl As Panel = Bases.Item(i) 
    
            Dim Pto As Point = New Point(60, 0)
    
            GetCtrl.Location = Pto
    


    Si la contestación te ha servido de ayuda márcala como respuesta. Si lo que publico no funciona, no tengo la culpa, SOY HUMANO, no una máquina.

    • Cambiado Enrique M. Montejo domingo, 27 de diciembre de 2015 10:14 Pregunta relacionada con controles de Windows Forms.
    lunes, 29 de diciembre de 2014 16:16