64 lines
1.9 KiB
VB.net
64 lines
1.9 KiB
VB.net
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
|