|
Título: Capturar y guardar pantalla Publicado por: NightMoonKiller en 16 Agosto 2011, 05:05 am Hola! Encontre varios temas sobre ésto en las ayudas y tutoriales pero en los códigos siempre me falla cuando guardo la imagen, asi que entre todos hice uno.. que me funciona pero solo me guarda 1 imagen y luego larga error.... si estuviera mal no me dejaria ni guardar la primera =S
Les dejo el código y la línea donde me tira error en negrita Citar Const SWP_NOSIZE = &H1 Const SWP_NOMOVE = &H2 Const FLAGS As Long = SWP_NOMOVE Or SWP_NOSIZE Const HWND_TOPMOST = -1 Const HWND_NOTOPMOST = -2 Private Declare Function SetWindowPos Lib "user32" ( _ ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _ ByVal X As Long, ByVal Y As Long, ByVal cx As Long, _ ByVal cy As Long, ByVal wFlags As Long) As Long Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Dim nombre As String Private Sub capturar_Click() 'capturar pantalla y guardarla keybd_event 44, 0, 0&, 0& If nombre.Text = "" Then Dim respuesta As String respuesta = MsgBox("Ingrese nombre", vbOKOnly, "Nombre") Else SavePicture Clipboard.GetData, (Path & nombre.Text& ".bmp") End If End Sub Private Sub cerrar_Click() End End Sub Private Sub Form_Load() Clipboard.Clear Me.WindowState = 0 SetWindowPos Me.hwnd, _ HWND_TOPMOST, 0, 0, 0, 0, FLAGS End Sub Logro que me guarde una imagen y luego me da error de compilación, a ver si alguien me puede decir porque! Soy nuevito con visual Título: Re: Capturar y guardar pantalla Publicado por: BlackZeroX en 16 Agosto 2011, 05:15 am .
Solo tienes un error de sintasis mejor aprendete la sintaxis de vb6 antes de intentar nada. Código
Temibles Lunas!¡. . Título: Re: Capturar y guardar pantalla Publicado por: NightMoonKiller en 16 Agosto 2011, 20:21 pm Ese fue un error de copie y pegue, que en todos los intentos que hice para poder intentar que funcione quedo así.... ahora a lo que me pone mal, es que cuando le doy ejecutar y intento, me dice error 308, el valor de la propiedad no es válido, le doy depurar y intento capturar denuevo y me guarda la imagen y todo lo más bien. Esa es la parte que me deja :o
ahora está asi: Citar SavePicture Clipboard.GetData, (Path & nombre.Text & ".bmp") y aún asi dice eso...Gracias de antemano Título: Re: Capturar y guardar pantalla Publicado por: x64core en 16 Agosto 2011, 20:25 pm Ese fue un error de copie y pegue, que en todos los intentos que hice para poder intentar que funcione quedo así.... ahora a lo que me pone mal, es que cuando le doy ejecutar y intento, me dice error 308, el valor de la propiedad no es válido, le doy depurar y intento capturar denuevo y me guarda la imagen y todo lo más bien. Esa es la parte que me deja :o ahora está asi: y aún asi dice eso... Gracias de antemano tio por eso te dejo BlackzeroX el codigo en donde estaba malo :P lo escrito "nombre.txt" donde "nombre" debe ser un textbox pero noce si lo tienes agregado como te digo ejecuta y agregale el codigo de BlackZeroX eso es para que la imagen se guarde en el C y luego compruebasy la puedes modificar Título: Re: Capturar y guardar pantalla Publicado por: NightMoonKiller en 17 Agosto 2011, 02:22 am tio por eso te dejo BlackzeroX el codigo en donde estaba malo :P el codigo ya lo corregi con la linea que me dejo black, y es ese el resultado que logre, que me de error, y luego me deje hacerlo bien... el textbox lo tengo, el formulario tiene 1 textbox (nombre) y los 2 botoneslo escrito "nombre.txt" donde "nombre" debe ser un textbox pero noce si lo tienes agregado como te digo ejecuta y agregale el codigo de BlackZeroX eso es para que la imagen se guarde en el C y luego compruebasy la puedes modificar Título: Re: Capturar y guardar pantalla Publicado por: edulm en 29 Abril 2012, 13:02 pm la variable nombre, deberia quitarlo y el path, deberia ser App.Path, para que no haya fallos.
|