Comunidad Gambas-es
Obtener el color del pixel del escritorio que apunta el cursor del ratón - Versión para impresión

+- Comunidad Gambas-es (https://gambas-es.org)
+-- Foro: Gambas (https://gambas-es.org/forum-3.html)
+--- Foro: Aplicaciones/Fragmentos de Código (https://gambas-es.org/forum-8.html)
+--- Tema: Obtener el color del pixel del escritorio que apunta el cursor del ratón (/thread-1161.html)



Obtener el color del pixel del escritorio que apunta el cursor del ratón - Shell - 07-01-2023

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.

Código:
Private atimer As Timer

Public Sub Form_Open()

  With atimer = New Timer As "Tiempo"
    .Delay = 50
    .Start
  End With

End


Public Sub Tiempo_Timer()

  Dim unaimagen As Image

  lblX.Text = CStr(Mouse.ScreenX)
  lblY.Text = CStr(Mouse.screeny)

  unaimagen = Desktop.Screenshot(Mouse.ScreenX, Mouse.ScreenY, 1, 1).Image
  With PictureBox1
    .Mode = PictureBox.Fill
    .Picture = unaimagen.Picture
  End With

End


Public Sub Form_KeyPress()

  'No existen bordes en el formulario, la tecla escape aborta la ejecución
  If Key.code = Key.Esc Then Me.Close()

End

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

Saludos