[API] gdi32 : MoveToEx e LineTo

[sebamix]

Ho una finestra con un pulsante che serve a minimizzarla.
Prima di impostare la property windowstate richiamo questa sub per abbellire un po' le cose:

Public Sub AnimateWindowMinimize(objForm As Form)
    Dim lngDeskHwnd As Long
    Dim lngDeskHdc As Long
    Dim i As Long
    
    lngDeskHwnd = GetDesktopWindow()
    lngDeskHdc = GetDC(lngDeskHwnd)
    
    objForm.Visible = False
    DoEvents
    
    SetROP2 lngDeskHdc, R2_NOT

    MoveToEx lngDeskHdc, 100, 100, ByVal 0&
    
    For i = 1 To 300
        LineTo lngDeskHdc, 100 + i, 100 + i
        DoEvents
    Next i
    
    DeleteDC lngDeskHdc
    
    objForm.Visible = True
End Sub

La mia intenzione è creare un effetto di linee quando la form viene minimizzata (una paio di lineee fatte muovere per il desktop con qualche funzione matematica).
Naturalmente la sub che ho postato è solo uan prova e dovrebbe disegnare una manciata di righe... ma non funziona (non appare nulla a video).

Secondo voi??

[sebamix]

Up!

[sebamix]

Up! :bubu:

[sebamix]

Last up!

[sebamix]

Originariamente inviato da sebamix
Last up!

Up

[DeBe99]

al posto di usare il desktop (ngDeskHwnd = GetDesktopWindow()) prova a usare 0 che l'hwnd dello schermo.

[sebamix]

Originariamente inviato da DeBe99
al posto di usare il desktop (ngDeskHwnd = GetDesktopWindow()) prova a usare 0 che l'hwnd dello schermo.

Provo subito!

[sebamix]

Funziona!

Grazie :metallica :bubu: :mavieni:

:sono_troppo_felice:

[DeBe99]

:gren: :sexpulp:

[sebamix]

[lamermode=on]
Ok, adesso io riesco a disegnare una linea in giro per lo schermo.
Il problema e' che questa linea resta
Cioe' esiste un'api per ripulire il DC? (tipo CLS)
[lamermode=off]