165 lines
5.7 KiB
VB.net
165 lines
5.7 KiB
VB.net
Namespace Stammbaum.Classen
|
|
Namespace PictureTagger
|
|
'HauptClasse von PictureTagger ################################
|
|
Public Class TaggedIMG
|
|
|
|
Private sID As String 'Datenbankeintrag - In diesemfall Dateinahme :) da INI
|
|
Public Property ID() As String
|
|
Get
|
|
Return sID
|
|
End Get
|
|
Set(ByVal value As String)
|
|
sID = value
|
|
End Set
|
|
End Property
|
|
|
|
Private sTitle As String
|
|
Public Property Title() As String
|
|
Get
|
|
Return sTitle
|
|
End Get
|
|
Set(ByVal value As String)
|
|
sTitle = value
|
|
End Set
|
|
End Property
|
|
|
|
Private sDescription As String
|
|
Public Property Description() As String
|
|
Get
|
|
Return sDescription
|
|
End Get
|
|
Set(ByVal value As String)
|
|
sDescription = value
|
|
End Set
|
|
End Property
|
|
|
|
Private sTime As String
|
|
Public Property Time() As String
|
|
Get
|
|
Return sTime
|
|
End Get
|
|
Set(ByVal value As String)
|
|
sTime = value
|
|
End Set
|
|
End Property
|
|
|
|
Private iImage As Image
|
|
Public Property Image() As Image
|
|
Get
|
|
Return iImage
|
|
End Get
|
|
Set(ByVal value As Image)
|
|
iImage = value
|
|
End Set
|
|
End Property
|
|
|
|
Private sPath As String
|
|
Public Property Path() As String
|
|
Get
|
|
Return sPath
|
|
End Get
|
|
Set(ByVal value As String)
|
|
sPath = value
|
|
End Set
|
|
End Property
|
|
|
|
Private oOrt As New Stammbaum.Classen.Place
|
|
Public Property Ort() As Stammbaum.Classen.Place 'AufnahmeOrt
|
|
Get
|
|
Return oOrt
|
|
End Get
|
|
Set(ByVal value As Stammbaum.Classen.Place)
|
|
oOrt = value
|
|
End Set
|
|
End Property
|
|
|
|
Public Markierung() As Stammbaum.Classen.PictureTagger.Mark
|
|
'Hier werden Funktionen und Rotienen Geschreiben die die Markierungen steuern ....
|
|
'Ob Array oder eigene Classe steht noch nicht vest, leider
|
|
|
|
Public Sub Clear()
|
|
Me.sID = Nothing
|
|
Me.iImage = Nothing
|
|
Me.sTitle = Nothing
|
|
Me.sDescription = Nothing
|
|
Me.sTime = Nothing
|
|
Me.sPath = Nothing
|
|
Me.oOrt.Clear()
|
|
ReDim Me.Markierung(0) '####################### <<<<======= Hier werden Funktionen und Rotienen Geschreiben die die Markierungen steuern ....
|
|
End Sub 'Lehren des Objects
|
|
|
|
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 'In Arbeit - Erst wenn Mark eindeutig Vestgelegt :(
|
|
|
|
End Class 'TaggedIMG
|
|
'#######################################################
|
|
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 <<-- In Work!! Don't forget! ;) MainFeture
|
|
End Namespace 'PictureTagger
|
|
'#################################################
|
|
Public Class Place
|
|
Private sTitle As String
|
|
Public Property Title() As String
|
|
Get
|
|
Return sTitle
|
|
End Get
|
|
Set(ByVal value As String)
|
|
sTitle = value
|
|
End Set
|
|
End Property
|
|
|
|
Private sAdresse As String
|
|
Public Property Adresse() As String
|
|
Get
|
|
Return sAdresse
|
|
End Get
|
|
Set(ByVal value As String)
|
|
sAdresse = value
|
|
End Set
|
|
End Property
|
|
|
|
Private sDescription As String
|
|
Public Property Description() As String
|
|
Get
|
|
Return sDescription
|
|
End Get
|
|
Set(ByVal value As String)
|
|
sDescription = value
|
|
End Set
|
|
End Property
|
|
|
|
Private sGPS As String
|
|
Public Property GPS() As String
|
|
Get
|
|
Return sGPS
|
|
End Get
|
|
Set(ByVal value As String) 'Später eventuelle überprüfung auf format und deren Umwandlung -GPS Formate-
|
|
sGPS = value
|
|
End Set
|
|
End Property
|
|
|
|
Public Sub Clear()
|
|
Me.sAdresse = Nothing
|
|
Me.sDescription = Nothing
|
|
Me.sGPS = Nothing
|
|
End Sub 'Lehren des Objects
|
|
|
|
End Class 'Place
|
|
End Namespace 'Stammbaum.Classen |