Este foro usa cookies
Este foro utiliza cookies para almacenar su información de inicio de sesión si está registrado y su última visita si no lo está. Las cookies son pequeños documentos de texto almacenados en su computadora; las cookies establecidas por este foro solo se pueden usar en este sitio web y no representan ningún riesgo de seguridad. Las cookies en este foro también rastrean los temas específicos que ha leído y la última vez que los leyó. Si Ud. continúa navegando, entenderemos que acepta todas las cookies.

Se almacenará una cookie en su navegador, independientemente de la elección, para evitar que se le vuelva a hacer esta pregunta. Podrá cambiar la configuración de sus cookies en cualquier momento utilizando el enlace en el pie de página.

El foro antiguo se encuentra accesible desde https://foro.gambas-es.org en modo de solo lectura.

Calificación:
  • 0 voto(s) - 0 Media
  • 1
  • 2
  • 3
  • 4
  • 5

Obtener el color del pixel del escritorio que apunta el cursor del ratón
#1

Buenas!.

Espero que los reyes hayan sido muy buenos con ustedes. Bueno, eso será si se han portado bien. Tongue

Este ejemplo muestra el color que nuestro cursor apunta sobre el escritorio.
Es un ejemplo para hacer otro.

GAMBAS
  1.  
  2. Public Sub Form_Open()
  3.  
  4.   With atimer = New Timer As "Tiempo"
  5.     .Delay = 50
  6.     .Start
  7.  
  8.  
  9.  
  10. Public Sub Tiempo_Timer()
  11.  
  12.   Dim unaimagen As Image
  13.  
  14.   lblX.Text = CStr(Mouse.ScreenX)
  15.   lblY.Text = CStr(Mouse.screeny)
  16.  
  17.   unaimagen = Desktop.Screenshot(Mouse.ScreenX, Mouse.ScreenY, 1, 1).Image
  18.   With PictureBox1
  19.     .Mode = PictureBox.Fill
  20.     .Picture = unaimagen.Picture
  21.  
  22.  
  23.  
  24. Public Sub Form_KeyPress()
  25.  
  26.   'No existen bordes en el formulario, la tecla escape aborta la ejecución
  27.   If Key.code = Key.Esc Then Me.Close()
  28.  



Mañana continuaré leyendo los mensajes que me quedan por leer. Ahora ya es un poco tarde. Buenas noches!.

Saludos


Archivos adjuntos
.gz ObtenerColorPixelEscritorio-0.0.1.tar.gz Tamaño: 12.07 KB  Descargas: 1

"Pero no toques, por qué tocas? - Amador"
[-] Los siguientes 2 usuarios dicen gracias a Shell por este post:
  • Grandamakulo, guizans
    ¡Gracias!


Posibles temas similares…
Tema / Autor Respuestas Vistas Último mensaje

Salto de foro:


Usuarios navegando en este tema: 1 invitado(s)