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

    Exemplo Termômetro - Gráfico na Vertical

    Compartilhe
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4473
    Registrado : 15/03/2013

    Exemplo Termômetro - Gráfico na Vertical

    Mensagem  ahteixeira em Seg 31 Jul 2017, 23:38

    Olá a todos,
    A propósito de questão de colega, partilho exemplo de "Termômetro".
    Também pode ser usado como Gráfico ou Barra de Progresso na vertical.
    Será adaptar.

    Código utilizado:
    Código:
    Private Sub xValor_AfterUpdate()
    'Alvaro Teixeira  (ahteixeira) 2017 para MaximoAccess
    Dim i As Integer
    i = Me.xValor * 20

        If i = 0 Then
            Me.barra.Visible = False
        Else
            Me.barra.Height = i
            Me.barra.Top = 3000 - i
            Me.barra.Visible = True
        End If
    End Sub

    Abraço e bons estudos com o MaximoAccess Wink
    Anexos
    Termometro.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (15 Kb) Baixado 89 vez(es)
    avatar
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1889
    Registrado : 13/04/2012

    Re: Exemplo Termômetro - Gráfico na Vertical

    Mensagem  Fernando Bueno em Sex 11 Ago 2017, 02:42

    Belo exemplo Alvaro, obrigado pela partilha!


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: Sab 21 Out 2017, 11:03