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

Shell 07-01-2023, 01:35

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

Archivos adjuntos

ObtenerColorPixelEscritorio-0.0.1.tar.gz (Tamaño: 12.07 KB Descargas: 1)

Última modificación: 07-01-2023, 01:36 por Shell.

"El conocimiento es la mejor inversión que se puede hacer" - Abraham Lincoln