Private Sub ReorganizeControls(Optional ByVal PicMove As Boolean = False)
        Dim one As Control = Nothing
        Dim two As Control = Nothing
 
        For Each i As Control In Me.Controls
            If TypeOf i Is PictureBox Then
                If one Is Nothing = False AndAlso two Is Nothing = False Then
                    Dim myPen As New System.Drawing.Pen( _
                      System.Drawing.Color.Black, 1)
                    Dim formGraphics As System.Drawing.Graphics
                    formGraphics = Me.CreateGraphics()
 
                    Dim myPen2 As New System.Drawing.Pen( _
                      System.Drawing.Color.Gray, 1)
                    Dim formGraphics2 As System.Drawing.Graphics
                    formGraphics2 = Me.CreateGraphics()
 
                    If PicMove = True Then
                        formGraphics2.DrawLine(myPen2, one.Location.X, _
                          one.Location.Y, two.Location.X, two.Location.Y)
                    End If
                    formGraphics.DrawLine(myPen, one.Location.X, _
                      one.Location.Y, two.Location.X, two.Location.Y)
                Else
                    If one_isActive = False Then
                        one = i
                        one_isActive = True
                    Else
                        two = i
                        one_isActive = False
                    End If
 
                End If
 
            End If
 
        Next
    End Sub

______________________________________


www.fk-freeware.de.vu

Beitrag wurde zuletzt am 31.01.09 um 13:09:18 editiert.