Kirjautuminen

Haku

Tehtävät

Keskustelu: Ohjelmointikysymykset: VB6: Setpixel

tesmu [16.03.2005 18:29:58]

#

Eli en oikeen saanut tuota set pixel apia toimii eli miten sitä pitäisi käyttää jos esim haluan pixelin pistettyä kohtaan 233,534 ruudulla ?

esakom [16.03.2005 19:09:26]

# 

Private Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long
Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long

Private Sub Form_Load()
    Dim hwnd As Long    'pöydän kahva
    Dim hdc As Long     'pöydän piirtopinta
    hwnd = GetDesktopWindow()
    hdc = GetWindowDC(hwnd)
    Dim i As Integer
    'SetPixel hdc, 233, 534, vbRed 'näin yksi piste
    For i = 0 To 600    'piirretään pystysuora viiva
        SetPixel hdc, 233, i, vbRed
    Next i
    ReleaseDC hwnd, hdc

End Sub

piirtopinta voi toki olla vaikka formille, pictureboksille, etc...

tesmu [16.03.2005 20:02:37]

#

kiitoksia oikein paljon =)

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta