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:
codice:
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??