Autor
|
Tema: Problema con capturas de pantalla (Leído 5,289 veces)
|
newbie007
Desconectado
Mensajes: 13
|
tengo un problema con mi codigo que hace capturas de pantalla cada segundo ya que luego no me marca error y a veces si Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Private Sub Form_Load() Timer1.Interval = 1000 Me.Hide End Sub Private Sub Timer1_Timer() Timer1.Enabled = True keybd_event 44, 0, 0&, 0& Call SavePicture(Clipboard.GetData(vbCFBitmap), App.Path & "\miarchivo.jpg") End Sub
Ayuda pliss
|
|
« Última modificación: 22 Octubre 2011, 02:09 am por raul338 »
|
En línea
|
|
|
|
x64core
Desconectado
Mensajes: 1.908
|
que error te marca? agregale DoEvents... al final del sub del Timer
|
|
|
En línea
|
|
|
|
newbie007
Desconectado
Mensajes: 13
|
Me marca error 521 error en tiempo de ejecusion
No se puede copiar a portapapeles
|
|
|
En línea
|
|
|
|
x64core
Desconectado
Mensajes: 1.908
|
agregale un antes de guardar/salvar la imagen... tambien puede ser porque esta "ocupado" el portapeles digamos que tienes archivos en el portapapeles y da la casualidad que copiaste esos archivos y los esta pasando, por dar un ejemplo...
|
|
|
En línea
|
|
|
|
newbie007
Desconectado
Mensajes: 13
|
me marca error: 424 se requiere objeto
|
|
|
En línea
|
|
|
|
seba123neo
|
tengo un problema con mi codigo que hace capturas de pantalla cada segundo ya que luego no me marca error y a veces si Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Private Sub Form_Load() Timer1.Interval = 1000 Me.Hide End Sub Private Sub Timer1_Timer() Timer1.Enabled = True keybd_event 44, 0, 0&, 0& Call SavePicture(Clipboard.GetData(vbCFBitmap), App.Path & "\miarchivo.jpg") End Sub
Ayuda pliss Clipboard.GetData ?? WTF ??? eso es de .NET, creo que estas confundiendo codigo de .NET con visual basic 6...
|
|
|
En línea
|
|
|
|
BlackZeroX
Wiki
Desconectado
Mensajes: 3.158
I'Love...!¡.
|
Clipboard.GetData ?? WTF ??? eso es de .NET, creo que estas confundiendo codigo de .NET con visual basic 6...
Para nada!¡, claro que es vb6 , y el problema que tiene es que no tubo la desencia de agregar un timer a su proyecto por que de hecho funciona perfectamente el codigo!¡. option explicit Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Private Sub Form_Load() keybd_event 44, 0, 0&, 0& Call SavePicture(Clipboard.GetData(vbCFBitmap), "c:\miarchivo.bmp") End Sub
P.D.: Es mejor usar los Device Context... Dulces Lunas!¡.
|
|
« Última modificación: 22 Octubre 2011, 09:17 am por BlackZeroX (Astaroth) »
|
En línea
|
The Dark Shadow is my passion.
|
|
|
seba123neo
|
cierto, ya me habia olvidado lo del clipboard.
|
|
|
En línea
|
|
|
|
newbie007
Desconectado
Mensajes: 13
|
jeje ya lo solucione
le agrege un on error resume next
|
|
|
En línea
|
|
|
|
BlackZeroX
Wiki
Desconectado
Mensajes: 3.158
I'Love...!¡.
|
... on error resume next ...
tipico... Dulces Lunas!¡.
|
|
|
En línea
|
The Dark Shadow is my passion.
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
Capturas de pantalla
.NET (C#, VB.NET, ASP)
|
David Vans
|
3
|
3,593
|
26 Agosto 2007, 14:18 pm
por shargon
|
|
|
Tres alternativas online para tomar capturas de pantalla a cualquier web desde..
Noticias
|
wolfbcn
|
1
|
2,235
|
15 Julio 2012, 01:12 am
por B€T€B€
|
|
|
Firefox incluye un botón para hacer capturas de pantalla
Noticias
|
wolfbcn
|
0
|
1,398
|
29 Mayo 2017, 01:46 am
por wolfbcn
|
|
|
Realiza capturas de pantalla en Instagram Stories sin delatarte
Noticias
|
wolfbcn
|
0
|
1,457
|
17 Febrero 2018, 14:37 pm
por wolfbcn
|
|
|
programa para hacer capturas de pantalla
« 1 2 »
Software
|
4rm4ndo
|
11
|
4,920
|
26 Mayo 2020, 00:03 am
por Machacador
|
|