Banner (5 em 5 segundos)

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

Banner (5 em 5 segundos)

Mensagempor ahteixeira » 24 Mai 2017, 02:22

Olá,
Partilho pequeno exemplo de Banner com ficheiros jpg.
Segue o código e exemplo:

Código: Selecionar todos

Option Compare Database
Dim iFoto%

Private Sub Form_Activate()
    iFoto = 1
    Me.foto.Picture = Application.CurrentProject.Path & "\c" & iFoto & ".jpg"
End Sub


Private Sub Form_Timer()
'ahteixeira 2016 para MaximoAccess
    If iFoto = 5 Then
        iFoto = 1
    Else
        iFoto = iFoto + 1
    End If
    Me.foto.Picture = Application.CurrentProject.Path & "\c" & iFoto & ".jpg"
End Sub


Abraço
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