MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

2 participantes

    Figuras para direita e para esquerda

    avatar
    wal97
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 39
    Registrado : 30/06/2021

    Figuras para direita e para esquerda Empty Figuras para direita e para esquerda

    Mensagem  wal97 19/10/2021, 22:16

    Boa noite,
    Prezados, peguei um modelo simples de figura animada aqui no fórum, adaptei para uma situação que preciso.
    As figuras se movimentam para direita e quando chegam no limite do formulário o processo continua, como se as figuras saíssem do outro lado.
    Incluir uma terceira figura (Visible3 e Hidden6) voltando, até aí vai tudo bem, mas quando chega no limite do formulário na esquerda, trava e dá erro de limite de tamanho de subformulário, queria que a figura voltasse pela direita.

    Código:

    Option Compare Database

    Dim gfrmWidth

    Private Sub Form_Open(Cancel As Integer)
    gfrmWidth = Me.Width
    End Sub

    Private Sub Form_Timer()
    Static intPic As Integer

    Select Case intPic
    Case Is = 1
    Me!Visible1.PictureData = Me!Hidden1.PictureData
    Me!Visible2.PictureData = Me!Hidden5.PictureData
    Me!Visible3.PictureData = Me!Hidden6.PictureData
    Case Else
    End Select

    If intPic = 2 Then intPic = 0
    intPic = intPic + 1
    If (Me!Visible1.Left > gfrmWidth) Then Me!Visible1.Left = 0
    Me!Visible1.Left = Me!Visible1.Left + 200
    If (Me!Visible2.Left > gfrmWidth) Then Me!Visible2.Left = 0
    Me!Visible2.Left = Me!Visible2.Left + 150
    If (Me!Visible3.Left > gfrmWidth) Then Me!Visible3.Left = 0
    Me!Visible3.Left = Me!Visible3.Left - 150

    End Sub
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3707
    Registrado : 22/11/2016

    Figuras para direita e para esquerda Empty Re: Figuras para direita e para esquerda

    Mensagem  DamascenoJr. 19/10/2021, 23:47

    Tópico movido da sala de Tabelas por não ter relação com este tipo de objeto. Favor atentar-se a descrição de cada sala ao abrir tópicos.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 1/10/2022, 16:31