Hallo liebe Community,
ich habe ein eigenartiges Problem, das ich noch nie hatte:
Ich habe hier einen sehr primitiven Test-Code:
Dies sollte eigentlich mein Control auf die Values (i1-i3) aufteilen, und anschließend zeichnen.
Dennoch funktioniert es nicht.
h1-h3 haben einen Wert, das habe ich getestet.
Dennoch werden keine Rechtecke gezeichnet.
Wenn ich einen Haltepunk bei
Wenn ich einen auf rect2 setze bekommt rect einen Wert aber nicht rect2.
Als rest habe ich anschließend rect4 erstellt.
Dies wird perfekt gezeichnet.
Könnt ihr mir weiterhelfen?
Danke im Vorraus.
ich habe ein eigenartiges Problem, das ich noch nie hatte:
Ich habe hier einen sehr primitiven Test-Code:
VB.NET-Quellcode
- Dim g As Graphics = e.Graphics
- Dim i As Integer = 20
- Dim i2 As Integer = 40
- Dim i3 As Integer = 43
- Dim Total As Integer = i + i2 + i3
- Dim rect, rect2, rect3 As Rectangle
- Const BarWidth = 30
- Dim p1 = i / (Total / 100)
- Dim p2 = i2 / (Total / 100)
- Dim p3 = i3 / (Total / 100)
- Dim h1 = Me.Height * i / 100
- Dim h2 = Me.Height * i2 / 100
- Dim h3 = Me.Height * i3 / 100
- rect = New Rectangle(0, Height, BarWidth, h1)
- rect2 = New Rectangle(0, Height + h1, BarWidth, h2)
- rect3 = New Rectangle(0, Height + h1 + h2, BarWidth, h3)
- g.DrawRectangle(Pens.Red, rect)
- g.FillRectangle(Brushes.Green, rect2)
- g.FillRectangle(Brushes.Blue, rect3)
- Dim rect4 As New Rectangle(0, 0, 10, 10)
- g.DrawRectangle(Pens.Red, rect4)
Dies sollte eigentlich mein Control auf die Values (i1-i3) aufteilen, und anschließend zeichnen.
Dennoch funktioniert es nicht.
h1-h3 haben einen Wert, das habe ich getestet.
Dennoch werden keine Rechtecke gezeichnet.
Wenn ich einen Haltepunk bei
rect = New Rectangle
setze, hat rect keinen Wert.Wenn ich einen auf rect2 setze bekommt rect einen Wert aber nicht rect2.
Als rest habe ich anschließend rect4 erstellt.
Dies wird perfekt gezeichnet.
Könnt ihr mir weiterhelfen?
Danke im Vorraus.