Api per il cerchio

[skyn80]

Buongiorno
Devi disegnare un cerchio con l'Api Ellipse però il cerchio non deve essere bianco ma deve poter contenere altri valori.
Sapete come posso fare, visto che la funzione ellipse non permette di inserire come altro parametro il colore?
Grazie

[xegallo]

ellipse ti fa un cerchio bianco solo perchè non forzi il ridi segno della region ad essa interna ellipse disegna una circonferenza non un cerchio ;)
ti posto come si risolverebbe in vb6

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
'Get the handle of the foreground window
Ret = GetForegroundWindow()
'Get the foreground window's device context
Ret = GetDC(Ret)
'draw an ellipse
Ellipse Ret, 0, 0, 200, 200
DoEvents
Loop
End Sub

[skyn80]

Il tuo codice è ok nel senso che in un form mi disegna un cerchio però a me server il colore di riempimento, ma se io volessi dare un colore diverso ad esempio il rosso, esiste un modo?
Altra cosa, il tuo codice sta messo in un ciclo do-loop e da questo ciclo non esce mai, comfaccio anche a farlo uscire?
Grazie ancora

[skyn80]

Grazie, ci sono riuscito ho usato la CreateEllipticRgn lavorando sulla regione