Foro de elhacker.net

Hola que tal, soy nuevo en este foro; y quiero darles las gracias x aceptarme y espero poder aportar algunas cosas mas adelante.

y bueno kisiera poder contar con ustedes en una duda que tengo, estoy realizando un proyecto de captura de video y de imagenes, mi pregunta es si ¿es posible hacer que un CommandButton al se ejecutado una vez , este se ejecute automaticamente y que cada determinado segundo vuelva a capturar una imagen y la vaya guardando en alguna carpeta especificada y bueno que un segundo clic al commanbutton desactive la captura de imagenes.

si me podrian ayudar con un ejemplo de codigo o disiendome cual seria la funcion si es que existe se los agradeceria mucho.

espero y me aya explicado y de ante mano gracias x hacer este tipo de foros que en realidan aportan mucho.

gracias.

Utiliza controles timer y variables booleanas, dentro del timer llamas a la rutina del CommondButton

¡saludos!

Hola amigo, aunque soy muy nuevo en esto del vbasic te pondre una de las posibles soluciones que se me ocurren aunque se que hay otras cuantas, al menos una mas  ;) :
 al form le añades un command de mas y un timer y puedes usar este codigo:
espero te sea util

Hola,un ejemplo asi simple con variable boolean:


reemplaza vos ahora por la funcion que captura la pantalla...

saludos.

  :D orale gracias  x el apoyo la verdad esta muy chido esto, ya me di cuenta de que no estaba tan complejo esto, a lo mejor no lo estaba razonando bien jejeje..

gracias x sus aportaciones!!!

Saludos

mmmm creo que no di, jejeje, este es mi ejemplo del boton de captura imagen, al hacer lo del timer aparente mente funciona, bueno no marca ningun error pero pues no hace nada. podrian explicarme porfavo en que me equivoke.. gracias

Dim filename As String
    If mCmnDlg.VBGetSaveFileName(filename, _
                            filter:="Bitmap files (*.bmp)|*.bmp", _
                            InitDir:=App.Path, _
                            DlgTitle:="Save Frame As Bitmap File", _
                            DefaultExt:="bmp", _
                            Owner:=Me.hWnd) _
                                                    Then
        On Error Resume Next
        Call ezVidCap1.SaveDIB(filename)
        If Err Then
            MsgBox Err.Description, vbInformation, App.Title
        End If
    End If

Saludos.

eso es VBA ,no visual basic??

saludos

gracias nuevamente x sus aportaciones
 mi problema ya kedo solucionado

estamos en contacto

saludos :)