Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - Cerchio riempito
Forum - Visual Basic 6 - Cerchio riempito

Avatar
felixiuc91 (Normal User)
Rookie


Messaggi: 27
Iscritto: 16/04/2010

Segnala al moderatore
Postato alle 16:28
Giovedì, 31/03/2011
Salve a tutti,
Ho creato una circonferenza sul form con
Codice sorgente - presumibilmente Plain Text

  1. Circle (3000, 3000), 1000,vbRed


però questa circonferenza voglio riempirla anche essa di rosso...
Grazie!

PM Quote
Avatar
Sal47 (Normal User)
Pro


Messaggi: 96
Iscritto: 05/02/2009

Segnala al moderatore
Postato alle 22:41
Venerdì, 01/04/2011
Ciao, se può esserti ancora utile, per un programmino simile al tuo avevo risolto inserendo in un form una Picturebox e un commandButton e poi il seguente codice:
---------
Option Explicit

Private Sub Command1_Click()
Picture1.DrawWidth = 4
Picture1.Circle (202.5, 145), 100
Pausa 1
Colora
End Sub

Private Sub Colora()
    Const Pi As Double = 3.14159265358979
    Const Corr As Double = 1.334
    Dim angG As Double
    Dim angRad As Double
    Dim y As Integer, x As Integer
    Picture1.Scale (-400, 400)-(400, -400)
    For angG = 0 To 360 Step 1
         angRad = angG * Pi / 180
         x = 200 * Cos(angRad)
         y = 200 * Sin(angRad) * Corr
         Picture1.Line (0, 0)-(x, y), vbRed
        Pausa 0.0001
    Next angG
End Sub

Sub Pausa(Value As Double)
Dim t As Double
t = Timer
Do
DoEvents
Loop While Value >= (Timer - t)
End Sub
---------------------
Saluti

PM Quote
Avatar
felixiuc91 (Normal User)
Rookie


Messaggi: 27
Iscritto: 16/04/2010

Segnala al moderatore
Postato alle 19:25
Sabato, 02/04/2011
qundi da quello che ho capito quel codice riempie la circonferenza di raggi e qundi risulta colorata, giusto?

PM Quote
Avatar
Sal47 (Normal User)
Pro


Messaggi: 96
Iscritto: 05/02/2009

Segnala al moderatore
Postato alle 11:37
Domenica, 03/04/2011
Esattamente così.
Saluti

PM Quote
Avatar
felixiuc91 (Normal User)
Rookie


Messaggi: 27
Iscritto: 16/04/2010

Segnala al moderatore
Postato alle 21:46
Lunedì, 04/04/2011
grazie

PM Quote