PictureTagger/SB-PictureTagger/TaggedIMG.vb

Public Class TaggedIMG2

    'Soll die "Struktur" einmal ersetzen und zum Formweit ereichbares Objecte erstellen dienen

    Public Class Mark
        Public PositionX As Long
        Public PositionY As Long
        Public ID As Long
        Public Radius As Long
        Public Description As String
    End Class 'Mark
    Public Class Place
        Dim Adresse
        Dim Description
        Dim GPS
        Public Sub Clear()
            Me.Adresse = Nothing
            Me.Description = Nothing
            Me.GPS = Nothing
        End Sub
    End Class

    Public ID As String
    Public Title As String
    Public Description As String
    Public Time As String
    Public Markierung() As Mark
    Public Image As Image
    Public Path As String
    Public Ort As Place

    Public Sub Clear()
        Me.ID = Nothing
        Me.Image = Nothing
        Me.Title = Nothing
        Me.Description = Nothing
        Me.Time = Nothing
        Me.Path = Nothing
        Me.Ort.Clear()
        ReDim Me.Markierung(0)
        Me.Markierung(0).Description = Nothing
        Me.Markierung(0).PositionX = Nothing
        Me.Markierung(0).PositionY = Nothing
        Me.Markierung(0).ID = Nothing
        Me.Markierung(0).Radius = Nothing
    End Sub

    Public Sub Create_NewMark(ByVal ID As Long, ByVal PositionX As Long, ByVal PositionY As Long, Optional ByVal Radius As Long = 10, Optional ByVal Description As String = "")
        Dim Index As Integer
        'If Me.Mark(0) is not Initalisiert Then
        '   Index = 0
        'Else
        Index = 1 + UBound(Me.Markierung)
        'End if
        ReDim Me.Markierung(Index)
        Me.Markierung(Index).ID = ID
        Me.Markierung(Index).PositionX = PositionX
        Me.Markierung(Index).PositionY = PositionY
        Me.Markierung(Index).Radius = Radius
        Me.Markierung(Index).Description = Description
    End Sub

End Class