|
Jen sem dám řešení aby to bylo "ukončený vlákno" :
Private Declare Function CreateDC& Lib "gdi32" _
Alias "CreateDCA" (ByVal lpDriverName As String, _
ByVal lpDeviceName As String, ByVal lpOutput As String, _
lpInitData As Any)
Private Declare Function DeleteDC& Lib "gdi32" (ByVal hdc As Long)
Private Declare Function GetPixel Lib "gdi32" _
(ByVal hdc As Long, ByVal x As Long, _
ByVal y As Long) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" _
(lpPoint As POINTAPI) As Long
Dim z As POINTAPI
A pak třeba do Timeru
GetCursorPos z
screendc = CreateDC("DISPLAY", "", "", 0&)
Picture1.BackColor = GetPixel(screendc, z.x, z.y)
DeleteDC (screendc)
K otázce "Proč to neudělat v .NET?". VB.NET zas tak dobře neumím abych si troufnul na takovej program :) I když nějaký věci v něm jsou uplně úžasně jednoduchý (třeba načítání textu ze souboru po řádcích)
|