Public Class MyLine
   Public X1 As Single
   Public Y1 As Single
   Public X2 As Single
   Public Y2 As Single
End Class
 
Public Class Form1
   Inherits System.Windows.Forms.Form
 
   'Liste der Linien
   Protected LineList As New List(Of MyLine) 
 
   'ACHTUNG: Event-Signatur stimmt nicht, kann leider jetzt nicht nachsehen
   Public Sub Button1_Click(...)
      Dim lLine as New MyLine
 
      With lLine
         lLine.X1 = 100
         lLine.Y1 = 100
         lLine.X2 = 200
         lLine.Y2 = 200
      End With
 
      Me.LineList.Add(lLine)
   End Sub
 
   Public Sub Form_Paint(...)
     Dim lLine As MyLine = Nothing
 
     For Each lLine In Me.LineList
        e.Graphics.DrawLine(lLine.X1, lLine.Y1, lLine.X2, lLine.Y2)
     End For
   End Sub
End Class

If there's anything to do - do it!

Beitrag wurde zuletzt am 14.07.08 um 13:29:41 editiert.