|
|
|
![]() |
|
Strumenti |
![]() |
#1 |
Member
Iscritto dal: Feb 2004
Messaggi: 45
|
Api per il cerchio
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 |
![]() |
![]() |
![]() |
#2 |
Member
Iscritto dal: Jan 2001
Città: PATAVIUM
Messaggi: 280
|
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 Codice:
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
__________________
Salva il Pianeta |
![]() |
![]() |
![]() |
#3 |
Member
Iscritto dal: Feb 2004
Messaggi: 45
|
Aiutami...
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 Ultima modifica di skyn80 : 18-05-2004 alle 09:14. |
![]() |
![]() |
![]() |
#4 |
Member
Iscritto dal: Feb 2004
Messaggi: 45
|
Ci sono riuscito
Grazie, ci sono riuscito ho usato la CreateEllipticRgn lavorando sulla regione
|
![]() |
![]() |
![]() |
Strumenti | |
|
|
Tutti gli orari sono GMT +1. Ora sono le: 04:14.