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

    repetir um comando

    avatar
    crb_sjrp
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 172
    Registrado : 21/03/2013

    repetir um comando Empty repetir um comando

    Mensagem  crb_sjrp 25/4/2015, 04:50

    criei um useform pra capiturar a imagem de uma web cam

    esta funcioaando mas pra eu tirar a foto tenho que ficar clicando num botão gostaria de fazer que essa função se repetisse altomaticamente ate eu soltar o botao

    o código que eu gostaria de repetir e este
    Private Sub CAPTURAR_Click()
    On Error Resume Next
    SendMessage mCapHwnd, WM_CAP_GRAB_FRAME, 0, 0
    SendMessage mCapHwnd, WM_CAP_EDIT_COPY, 0, 0
    DoEvents
    Set Image1.Picture = PastePicture(WM_CAP_EDIT_COPY)
    Me.Image1.Picture = PastePicture(WM_CAP_EDIT_COPY)
    Me.Image1.PictureSizeMode = fmPictureSizeModeStretch
    Dim iPic As StdPicture
    Set iPic = Me.Image1.Picture
    If iPic Is Nothing Then Exit Sub
    SavePicture iPic, "C:\RIO CORAIS\FOTOS MORADORES" _
    & "\M" & Form_FrmMORADOR.IDMORADOR & ".jpg"
    DestroyIcon iPic.handle
    Set iPic = Nothing
    Dim strCaminho As String
    strCaminho = "C:\RIO CORAIS\FOTOS MORADORES" & "\M" & Form_FrmMORADOR.IDMORADOR & ".jpg"
    Form_FrmMORADOR.FOTOMORADOR = strCaminho
    Form_FrmMORADOR.Foto.Picture = Form_FrmMORADOR.FOTOMORADOR
    End Sub
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8496
    Registrado : 05/11/2009

    repetir um comando Empty Re: repetir um comando

    Mensagem  Alexandre Neves 25/4/2015, 08:58

    Bom dia,
    Crie uma variável global para controlar se o código é executado, ou não
    Coloque um ciclo do ... loop dentro do timer, com a condição de executar se a variável for verdadeira
    No código do botão, coloque o controlo da variável (verdadeiro/falso)


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

      Data/hora atual: 8/11/2024, 12:53