MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Movimentar Imagem em Formulario

    cacorei09
    cacorei09
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 172
    Registrado : 20/08/2014

    Movimentar Imagem em Formulario Empty Movimentar Imagem em Formulario

    Mensagem  cacorei09 em 5/12/2019, 17:49

    Boa tarde amigos deste Excelente Forum!

    Estou com uma dúvida.

    Como faço para movimentar imagens dentro de um formulário? Já pesquisei e nada encontrei sobre "imagens (png ou jpg)"

    Em anexo tem um Frm. Eu queria movimentar para onde eu quiser as imagens.
    Anexos
    Movimentar Imagem em Formulario AttachmentMovimentar.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (23 Kb) Baixado 15 vez(es)
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Movimentar Imagem em Formulario Empty Re: Movimentar Imagem em Formulario

    Mensagem  ahteixeira em 6/12/2019, 15:26

    Olá Glaucius,

    Já tentou a "Busca" aqui do fórum, veja como fazer:
    https://www.maximoaccess.com/t1115-busca-no-forum-search

    Veja se ajuda:
    https://www.maximoaccess.com/t31339-registo-grafico

    Abraço
    cacorei09
    cacorei09
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 172
    Registrado : 20/08/2014

    Movimentar Imagem em Formulario Empty movimentar imagem

    Mensagem  cacorei09 em 8/12/2019, 03:08

    Boa noite:
    O exemplo que o JPaulo deu é perfeito, o único problema é como fazer isso com imagem.
    Já busquei em varios lugares e não consegui encontrar.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Movimentar Imagem em Formulario Empty Re: Movimentar Imagem em Formulario

    Mensagem  ahteixeira em 14/12/2019, 10:31

    Olá Glaucius,

    Também tinha um link para o site do nosso colega Avelino Sampaio.
    Uma vez que está com dificuldade, sugiro seguir por aí, pois o colega explica bem.
    Se não tem assinatura recomendo, vale cada centimo investido.

    Montei um pequeno exemplo com o seguinte código:
    Código:
    Option Compare Database
    'origem da tecnica aplicada do nosso colega Avelino Sampaio, mais detalhes
    'https://usandoaccess.com.br/Dicas/movimentar-objetos-formulário-com-mouse.asp?id=1#inicio
    Dim MouseX As Long, MouseY As Long

    Private Sub CxImg_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
        If (Button = 1) Then MouseX = X: MouseY = Y
    End Sub

    Private Sub CxImg_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
        If (Button = 1) Then fncMouseMove Me!CxImg, X, Y
    End Sub

    Private Function fncMouseMove(ctl As Control, X As Single, Y As Single)
        ctl.Left = ctl.Left + X - MouseX
        ctl.Top = ctl.Top + Y - MouseY
    End Function

    Espero que ajude.

    Abraço
    Anexos
    Movimentar Imagem em Formulario AttachmentMoverImagemFormulario.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (84 Kb) Baixado 31 vez(es)
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Movimentar Imagem em Formulario Empty Re: Movimentar Imagem em Formulario

    Mensagem  DamascenoJr. em 14/10/2020, 04:27

    cacorei09, algum avanço aqui?

    Aguardamos...


    .................................................................................
    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: 5/12/2020, 17:28