Tijdens het tekenen van een heleboel blokjes wil ik de kleur tijdens het tekenen kunnen veranderen..
In onderstaande code worden de blokjes getekend maar vreemd genoeg niet ingekleurd? Wanneer ik in dezelfde code de 'if drawprofile then' weghaal lukt dit wel?
(Voor mijn toepassing wil ik de kleur van de blokje af laten hangen van de waarde van een bit in een array).
Iemand een suggestie?
Alvast bedankt
In onderstaande code worden de blokjes getekend maar vreemd genoeg niet ingekleurd? Wanneer ik in dezelfde code de 'if drawprofile then' weghaal lukt dit wel?
(Voor mijn toepassing wil ik de kleur van de blokje af laten hangen van de waarde van een bit in een array).
Iemand een suggestie?
Alvast bedankt
Code:
Private Sub Button1_Paint(sender As Object, e As PaintEventArgs) Handles Button1.Paint
If drawProfile Then
Dim penWhite As New System.Drawing.Pen(System.Drawing.Color.Green)
Dim blueBrush As New SolidBrush(Color.Black)
Dim obj As System.Drawing.Graphics
obj = Me.CreateGraphics()
Dim rect As System.Drawing.Rectangle() = New Rectangle(210) {}
Dim j As Integer = 50
Dim k As Integer
Dim l As Integer
l = 50 'x
For k = 1 To 50
For i = 1 To 210
If i = 100 Then
e.Graphics.FillRectangle(blueBrush, rect(i))
End If
rect(i) = New Rectangle(l, j, 3, 3) '' x,y,width,hieght
j = j + 3
Next
obj.DrawRectangles(penWhite, rect)
j = 50
l = l + 3
Next
obj.Dispose()
End If
End Sub