Keskustelu: Ohjelmointikysymykset: VB6: Setpixel

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