Ok, sto giocherellando con Paint (dopo aver provato Draw, come mi è stato suggerito) sono ancora in alto mare, ma piano piano imparo...
Sto provando a disegnare delle rette in una drawing area, vorrei farle di colore differente ma non mi riesce, quando imposto i vari colori, il programma le disegna tutte dello stesso colore...
Allego il mio codice:
Paint.Begin(DrawingArea1)
Paint.FillRule = Paint.FillRuleEvenOdd
Paint.Brush = Paint.Color(0)
Paint.Fill(True)
Paint.AntiAlias = True
Paint.LineWidth = 2
''Asse y
Paint.MoveTo(50, 10)
Paint.RelLineTo(0, y)
''Asse x
Paint.MoveTo(25, y - 10)
Paint.RelLineTo(x, 0)
Paint.Font.Size = 8
Paint.Font.Name = "Liberation Sans"
Paint.Text(0, 40, y - 10, 1, 1)
Ecco l'altra parte del codice
While e < timeframe
Paint.LineWidth = 1
Paint.FillRule = Paint.FillRuleEvenOdd
Paint.Brush = Paint.Color(Color.RGB(1, 100, 0))
Paint.Fill(True)
Paint.MoveTo(e + 50 + f, 10)
Paint.RelLineTo(0, y - 15)
Paint.Stroke
e = e + f
Wend
...vorrei farle di colore differente ma non mi riesce, quando imposto i vari colori, il programma le disegna tutte dello stesso colore...
La linea di codice per impostare il colore di ciascuna linea è forse questa ?
Paint.Brush = Paint.Color(Color.RGB(1, 100, 0))
Ma, così, come fai a impostare i diversi colori ? :-\
Utilizzando il tuo codice, che hai riportato sopra, modificandolo leggermente attraverso la sostituzione del While con un ciclo For...Next, ed eliminando qualcosa, ...sino ad avere una cosa di 'sto genere:
Public Sub DrawingArea1_Draw()
Dim i As Short
With Paint
.Begin(DrawingArea1)
For i = 0 To 255
.LineWidth = 1
.FillRule = Paint.FillRuleEvenOdd
.Brush = Paint.Color(Color.RGB(1, i, 0))
.MoveTo(i, 50)
.RelLineTo(0, 50)
.Stroke
Next
.End
End With
End
ho provato ad ottenere una variazione di colori. E mi ha funzionato. :-\