Exemplo Termômetro - Gráfico na Vertical

Destinado a postagens de exemplos em Microsoft Access (código aberto) por todos os utilizadores cadastrados.
Não são permitidos exemplos sem acesso à estrutura.
Não são aceitos exemplos com a extensão em .EXE

Moderador: Avelino Sampaio

Avatar do usuário
ahteixeira
Mensagens: 38
Registrado em: 07 Jun 2015, 18:51
Localização: Porto - Portugal

Exemplo Termômetro - Gráfico na Vertical

Mensagempor ahteixeira » 31 Jul 2017, 22:47

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: Selecionar todos

Private Sub xValor_AfterUpdate()
'Alvaro Teixeira  (ahteixeira) 2017 para REDEACCESS
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 ;)
Você deve estar registrado e autenticado para ter acesso ao arquivo anexo.

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Voltar para “Biblioteca de exemplos Ms Access”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 1 visitante