Keskustelu: Ohjelmointikysymykset: VB6: [vb6] Funktio jota en osaa käyttää

Miten tätä funktiota käytettään? FindColorTolerance selWnd, ??, ??, ?

Public Function FindColorTolerance(hdc, xe, ye, Tolerance As Long) As POINTAPI
Dim x, y As Long
For x = 0 To xe
For y = 0 To ye
If SimilarColors(GetPixel(hdc, x, y), Color, Tolerance) = True Then DoEvents
Next y
Next x
End Function

Mistä tuo funktio on peräisin? Irrallisena sen toiminnasta on hankala sanoa mitään. Outoa funktiossa on se, että se ei näytä palauttavan mitään arvoa.

Antti Laaksonen kirjoitti:

Mistä tuo funktio on peräisin? Irrallisena sen toiminnasta on hankala sanoa mitään. Outoa funktiossa on se, että se ei näytä palauttavan mitään arvoa.

Täältä sen löysin: http://www.cruels.net hakusanalla findcolorspiral.
Toi tarvii paljon declareja

Minä en tuolla hakusanalla löytänyt kyllä mitään. Pistäisitkö linkin ihan siihen, mistä tuon kopioit?