[Resolvido]Ocultar e Exibir parte do formulario

O formiga10x postou no repositorio este exemplo onde ao clicar em um botão ele desoculta parte do formulario para baixo, ocorre que gostaria que ele ocultasse e desocultasse da mesma forma do exemplo "financeiro" que o formiga postou mas para o lado. tem como?

o codigo do botão do exemplo:

'By Formiga 10x
'2016


Private Sub btnAmpliar_Click()
   
   If Me.btnAmpliar.Caption = "DETALHES" Then
   Me.btnAmpliar.Caption = "REDUZIR"
       Dim i As Integer
   
   For i = 1 To 7200
     
           Me.InsideHeight = Me.InsideHeight + 100
           Me.Form.Repaint
       
       If Me.InsideHeight >= 7100 Then Exit Sub
       
   Next i
   
   
   Exit Sub
   
   
   End If
   
   If Me.btnAmpliar.Caption = "REDUZIR" Then
   Me.btnAmpliar.Caption = "DETALHES"
   For i = 1 To 5000
     
           Me.InsideHeight = Me.InsideHeight - 200
           Me.Form.Repaint
       
       If Me.InsideHeight <= 4050 Then Exit Sub
       
   Next i
       
   End If
   
   
End Sub


esse é o link da pagina que ele postou
Redimensionar Formulário "Efeito sanfona "

Lourival

Experimente assim:

Faça uma copia desse formulário (crtl+C e crtl+V)

No evento ao carregar do form:
Me.InsideWidth = 6300


Mude a legenda do botão btnAmpliar de DETALHES para AMPLIAR

Código:


Private Sub btnAmpliar_Click()
    
    If Me.btnAmpliar.Caption = "AMPLIAR" Then
    Me.btnAmpliar.Caption = "REDUZIR"
        Dim i As Integer
    
    For i = 1 To 9630
      
            Me.InsideWidth = Me.InsideWidth + 100
            Me.Form.Repaint
        
        If Me.InsideWidth >= 9240 Then Exit Sub
        
        Debug.Print Me.InsideWidth
        
    Next i
    
    
    Exit Sub
    
    
    End If
    
    If Me.btnAmpliar.Caption = "REDUZIR" Then
    Me.btnAmpliar.Caption = "AMPLIAR"
    For i = 1 To 9240
      
            Me.InsideWidth = Me.InsideWidth - 200
            Me.Form.Repaint
        
        If Me.InsideWidth <= 6300 Then Exit Sub
        
    Next i
        
    End If
 

Tem outros códigos no form, que depende da legenda do desse botão, portanto, dê uma geral.

[ ]'s
   
End Sub

kkkkk Grande Noob, fizemos o mesmo teste com os mesmos valores.


Ja alertando que devera tratar os valores, bastar trocar:

de: InsideHeight   para: InsideWidth

Exato Tauron

Noobezinho ficou muito bom, Obrigado pela ajuda!!

Ótimo!

Valeu o retorno!

Boa sorte!