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 : 5471
    Registrado : 15/03/2013

    Exemplo Termômetro - Gráfico na Vertical

    Mensagem  ahteixeira em Seg 31 Jul - 16: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 137 vez(es)
    avatar
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1969
    Registrado : 12/04/2012

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

    Mensagem  Fernando Bueno em Qui 10 Ago - 19: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: Seg 24 Set - 13:55