MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Ocultar e Exibir parte do formulario

    Compartilhe

    lourival
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 23/10/2011

    [Resolvido]Ocultar e Exibir parte do formulario

    Mensagem  lourival em 28/1/2018, 20:03

    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
    [Você precisa estar registrado e conectado para ver este link.]

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido]Ocultar e Exibir parte do formulario

    Mensagem  Noobezinho em 28/1/2018, 21:33

    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
    avatar
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1035
    Registrado : 07/12/2011

    Re: [Resolvido]Ocultar e Exibir parte do formulario

    Mensagem  tauron em 28/1/2018, 21:37

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


    Ja alertando que devera tratar os valores, bastar trocar:

    de: InsideHeight   para: InsideWidth

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido]Ocultar e Exibir parte do formulario

    Mensagem  Noobezinho em 28/1/2018, 21:42

    Exato Tauron bounce

    lourival
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 23/10/2011

    Re: [Resolvido]Ocultar e Exibir parte do formulario

    Mensagem  lourival em 28/1/2018, 22:55

    Noobezinho ficou muito bom, Obrigado pela ajuda!!

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido]Ocultar e Exibir parte do formulario

    Mensagem  Noobezinho em 28/1/2018, 23:20


    Ótimo!

    Valeu o retorno!

    Boa sorte!


      Data/hora atual: 20/10/2018, 18:40