Hallo,
ich Zeichne mehere Rechtecke die sich nur durch X1 bis X9 unterscheiden. Das würde ich nun gerne in einer Schleife erledigen.
'Punkt.DrawRectangle(stift, X1 - DiaFrontHalbe, YFront, DiaFront, DiaFront)
'Punkt.DrawRectangle(stift, X2 - DiaFrontHalbe, YFront, DiaFront, DiaFront)
'Punkt.DrawRectangle(stift, X3 - DiaFrontHalbe, YFront, DiaFront, DiaFront)
'Punkt.DrawRectangle(stift, X4 - DiaFrontHalbe, YFront, DiaFront, DiaFront)
'Punkt.DrawRectangle(stift, X5 - DiaFrontHalbe, YFront, DiaFront, DiaFront)
'Punkt.DrawRectangle(stift, X6 - DiaFrontHalbe, YFront, DiaFront, DiaFront)
'Punkt.DrawRectangle(stift, X7 - DiaFrontHalbe, YFront, DiaFront, DiaFront)
'Punkt.DrawRectangle(stift, X8 - DiaFrontHalbe, YFront, DiaFront, DiaFront)
'Punkt.DrawRectangle(stift, X9 - DiaFrontHalbe, YFront, DiaFront, DiaFront)
Dieser Versuch endete kläglich.
For I As Integer = 1 To 9
Punkt.DrawRectangle(stift, (CInt("X" & I)) - DiaFrontHalbe, YFront, DiaFront, DiaFront)
Next
Danke
ich Zeichne mehere Rechtecke die sich nur durch X1 bis X9 unterscheiden. Das würde ich nun gerne in einer Schleife erledigen.
'Punkt.DrawRectangle(stift, X1 - DiaFrontHalbe, YFront, DiaFront, DiaFront)
'Punkt.DrawRectangle(stift, X2 - DiaFrontHalbe, YFront, DiaFront, DiaFront)
'Punkt.DrawRectangle(stift, X3 - DiaFrontHalbe, YFront, DiaFront, DiaFront)
'Punkt.DrawRectangle(stift, X4 - DiaFrontHalbe, YFront, DiaFront, DiaFront)
'Punkt.DrawRectangle(stift, X5 - DiaFrontHalbe, YFront, DiaFront, DiaFront)
'Punkt.DrawRectangle(stift, X6 - DiaFrontHalbe, YFront, DiaFront, DiaFront)
'Punkt.DrawRectangle(stift, X7 - DiaFrontHalbe, YFront, DiaFront, DiaFront)
'Punkt.DrawRectangle(stift, X8 - DiaFrontHalbe, YFront, DiaFront, DiaFront)
'Punkt.DrawRectangle(stift, X9 - DiaFrontHalbe, YFront, DiaFront, DiaFront)
Dieser Versuch endete kläglich.
For I As Integer = 1 To 9
Punkt.DrawRectangle(stift, (CInt("X" & I)) - DiaFrontHalbe, YFront, DiaFront, DiaFront)
Next
Danke