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
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