
PcBase (Normal User)
Newbie
    
Messaggi: 20
Iscritto: 19/04/2011
|
Ciao
Esempio in Vb6
Codice sorgente - presumibilmente VB.NET |
Private Type POINTAPI X As Long Y As Long End Type Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long Private Sub Command1_Click() Unload Me End Sub Private Sub Timer1_Timer() Dim Point As POINTAPI GetCursorPos Point Me.BackColor = GetPixel(GetDC(0), Point.X, Point.Y) End Sub
|
segue esempio compilato
Ultima modifica effettuata da PcBase il 23/08/2011 alle 23:00 |