[VB] Disegnare un cerchio sul form e salvarlo.

[jabjoint]

Ciao forumisti!

1)Devo riuscire a disegnare un cerchio usando l' API "SetPixelV", avete magari l' algoritmo?

2)Salvare l' immagine creata con i pixel in qualsiasi formato, devo crearmi una matrice?

Grazie anticipato, ciao,?

[xegallo]

1) non puoi usare Ellipse che è + semplice?
2) dipende da che regione devi salvare cmq non serve una matrice anche perchè una circonferenza ha infiniti punti

[jabjoint]

Cos' è Ellipse?, magari lo uso, anche se avrei preferito imparare ad usare bene i pixel con l' api apposita..., per salvarla ci penso dopo,se mi dai una mano per creare il cerchio te ne sono grato!

[xegallo]

Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function Ellipse Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Sub Form_Activate()

    Dim Ret As Long
    Do
        'trova dove disegnare
        Ret = GetForegroundWindow()
        'trova l'handle
        Ret = GetDC(Ret)
        'disegna x,y,base, altezza
        Ellipse Ret, 0, 0, 200, 200
        DoEvents
    Loop
End Sub

[jabjoint]

il codice funziona.. solo che sembra un po lento