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 Dom 28 Jan 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.]
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Ocultar e Exibir parte do formulario

    Mensagem  Noobezinho em Dom 28 Jan 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


    .................................................................................
    Noobezinho - Balem

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se ajudamos alguém e não retornou.
    Se não deu retorno, não  ajudo novamente .
    avatar
    tauron
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Ocultar e Exibir parte do formulario

    Mensagem  tauron em Dom 28 Jan 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
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Ocultar e Exibir parte do formulario

    Mensagem  Noobezinho em Dom 28 Jan 2018, 21:42

    Exato Tauron bounce


    .................................................................................
    Noobezinho - Balem

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se ajudamos alguém e não retornou.
    Se não deu retorno, não  ajudo novamente .

    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 Dom 28 Jan 2018, 22:55

    Noobezinho ficou muito bom, Obrigado pela ajuda!!
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Ocultar e Exibir parte do formulario

    Mensagem  Noobezinho em Dom 28 Jan 2018, 23:20


    Ótimo!

    Valeu o retorno!

    Boa sorte!



    .................................................................................
    Noobezinho - Balem

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se ajudamos alguém e não retornou.
    Se não deu retorno, não  ajudo novamente .

      Data/hora atual: Qui 19 Abr 2018, 12:48