v0.2

SB-PictureTagger/Form_SB-PictureTagger.Designer.vb

@@ -43,15 +43,15 @@ Partial Class Main
         Me.b_save = New System.Windows.Forms.Button()
         Me.b_reloaddir = New System.Windows.Forms.Button()
         Me.GroupBox3 = New System.Windows.Forms.GroupBox()
+        Me.rtb_Place_Description = New System.Windows.Forms.RichTextBox()
         Me.Label4 = New System.Windows.Forms.Label()
         Me.Label5 = New System.Windows.Forms.Label()
         Me.Label6 = New System.Windows.Forms.Label()
-        Me.TextBox3 = New System.Windows.Forms.TextBox()
-        Me.TextBox4 = New System.Windows.Forms.TextBox()
-        Me.rtb_Place_Description = New System.Windows.Forms.RichTextBox()
+        Me.tb_Place_GPS = New System.Windows.Forms.TextBox()
+        Me.tb_Place_Addresse = New System.Windows.Forms.TextBox()
         Me.GroupBox4 = New System.Windows.Forms.GroupBox()
-        Me.cb_marks_visible = New System.Windows.Forms.CheckBox()
         Me.cb_AutoSave = New System.Windows.Forms.CheckBox()
+        Me.cb_marks_visible = New System.Windows.Forms.CheckBox()
         Me.Label7 = New System.Windows.Forms.Label()
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.GroupBox1.SuspendLayout()
@@ -155,9 +155,8 @@ Partial Class Main
         Me.rtb_Bild_Description.Name = "rtb_Bild_Description"
         Me.rtb_Bild_Description.Size = New System.Drawing.Size(263, 86)
         Me.rtb_Bild_Description.TabIndex = 1
-        Me.rtb_Bild_Description.Text = "Tasks: Info in Textvelder laden,TextvelderReset, Info aus Textveldern Laden und z" & _
-            "um Speichern übergeben, Mark-Array Funktion,LoadPhotoDir abfangen einer lehren P" & _
-            "fadangabe, Kreat New Class TaggedIMG"
+        Me.rtb_Bild_Description.Text = "Tasks: Info in Textvelder laden, Mark-Array Funktion,LoadPhotoDir abfangen einer " & _
+            "lehren Pfadangabe, Kreat New Class TaggedIMG"
         '
         'tb_Bild_Title
         '
@@ -243,8 +242,8 @@ Partial Class Main
         Me.GroupBox3.Controls.Add(Me.Label4)
         Me.GroupBox3.Controls.Add(Me.Label5)
         Me.GroupBox3.Controls.Add(Me.Label6)
-        Me.GroupBox3.Controls.Add(Me.TextBox3)
-        Me.GroupBox3.Controls.Add(Me.TextBox4)
+        Me.GroupBox3.Controls.Add(Me.tb_Place_GPS)
+        Me.GroupBox3.Controls.Add(Me.tb_Place_Addresse)
         Me.GroupBox3.Location = New System.Drawing.Point(742, 184)
         Me.GroupBox3.Name = "GroupBox3"
         Me.GroupBox3.Size = New System.Drawing.Size(352, 127)
@@ -252,6 +251,14 @@ Partial Class Main
         Me.GroupBox3.TabStop = False
         Me.GroupBox3.Text = "Aufnahme Ort"
         '
+        'rtb_Place_Description
+        '
+        Me.rtb_Place_Description.Location = New System.Drawing.Point(83, 69)
+        Me.rtb_Place_Description.Name = "rtb_Place_Description"
+        Me.rtb_Place_Description.Size = New System.Drawing.Size(263, 52)
+        Me.rtb_Place_Description.TabIndex = 6
+        Me.rtb_Place_Description.Text = ""
+        '
         'Label4
         '
         Me.Label4.AutoSize = True
@@ -279,27 +286,19 @@ Partial Class Main
         Me.Label6.TabIndex = 3
         Me.Label6.Text = "Adresse:"
         '
-        'TextBox3
+        'tb_Place_GPS
         '
-        Me.TextBox3.Location = New System.Drawing.Point(83, 45)
-        Me.TextBox3.Name = "TextBox3"
-        Me.TextBox3.Size = New System.Drawing.Size(263, 20)
-        Me.TextBox3.TabIndex = 2
+        Me.tb_Place_GPS.Location = New System.Drawing.Point(83, 45)
+        Me.tb_Place_GPS.Name = "tb_Place_GPS"
+        Me.tb_Place_GPS.Size = New System.Drawing.Size(263, 20)
+        Me.tb_Place_GPS.TabIndex = 2
         '
-        'TextBox4
+        'tb_Place_Addresse
         '
-        Me.TextBox4.Location = New System.Drawing.Point(83, 19)
-        Me.TextBox4.Name = "TextBox4"
-        Me.TextBox4.Size = New System.Drawing.Size(263, 20)
-        Me.TextBox4.TabIndex = 0
-        '
-        'rtb_Place_Description
-        '
-        Me.rtb_Place_Description.Location = New System.Drawing.Point(83, 69)
-        Me.rtb_Place_Description.Name = "rtb_Place_Description"
-        Me.rtb_Place_Description.Size = New System.Drawing.Size(263, 52)
-        Me.rtb_Place_Description.TabIndex = 6
-        Me.rtb_Place_Description.Text = ""
+        Me.tb_Place_Addresse.Location = New System.Drawing.Point(83, 19)
+        Me.tb_Place_Addresse.Name = "tb_Place_Addresse"
+        Me.tb_Place_Addresse.Size = New System.Drawing.Size(263, 20)
+        Me.tb_Place_Addresse.TabIndex = 0
         '
         'GroupBox4
         '
@@ -312,16 +311,6 @@ Partial Class Main
         Me.GroupBox4.TabStop = False
         Me.GroupBox4.Text = "Optionen"
         '
-        'cb_marks_visible
-        '
-        Me.cb_marks_visible.AutoSize = True
-        Me.cb_marks_visible.Location = New System.Drawing.Point(11, 19)
-        Me.cb_marks_visible.Name = "cb_marks_visible"
-        Me.cb_marks_visible.Size = New System.Drawing.Size(121, 17)
-        Me.cb_marks_visible.TabIndex = 3
-        Me.cb_marks_visible.Text = "Zeige Markierungen"
-        Me.cb_marks_visible.UseVisualStyleBackColor = True
-        '
         'cb_AutoSave
         '
         Me.cb_AutoSave.AutoSize = True
@@ -332,6 +321,16 @@ Partial Class Main
         Me.cb_AutoSave.Text = "Automatisch Speichern"
         Me.cb_AutoSave.UseVisualStyleBackColor = True
         '
+        'cb_marks_visible
+        '
+        Me.cb_marks_visible.AutoSize = True
+        Me.cb_marks_visible.Location = New System.Drawing.Point(11, 19)
+        Me.cb_marks_visible.Name = "cb_marks_visible"
+        Me.cb_marks_visible.Size = New System.Drawing.Size(121, 17)
+        Me.cb_marks_visible.TabIndex = 3
+        Me.cb_marks_visible.Text = "Zeige Markierungen"
+        Me.cb_marks_visible.UseVisualStyleBackColor = True
+        '
         'Label7
         '
         Me.Label7.AutoSize = True
@@ -396,8 +395,8 @@ Partial Class Main
     Friend WithEvents Label4 As System.Windows.Forms.Label
     Friend WithEvents Label5 As System.Windows.Forms.Label
     Friend WithEvents Label6 As System.Windows.Forms.Label
-    Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
-    Friend WithEvents TextBox4 As System.Windows.Forms.TextBox
+    Friend WithEvents tb_Place_GPS As System.Windows.Forms.TextBox
+    Friend WithEvents tb_Place_Addresse As System.Windows.Forms.TextBox
     Friend WithEvents rtb_Place_Description As System.Windows.Forms.RichTextBox
     Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
     Friend WithEvents cb_AutoSave As System.Windows.Forms.CheckBox

SB-PictureTagger/Form_SB-PictureTagger.resx

@@ -129,16 +129,4 @@
   <metadata name="Column2.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>True</value>
   </metadata>
-  <metadata name="Column1.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>True</value>
-  </metadata>
-  <metadata name="Position.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>True</value>
-  </metadata>
-  <metadata name="Radius.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>True</value>
-  </metadata>
-  <metadata name="Column2.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>True</value>
-  </metadata>
 </root>

SB-PictureTagger/Form_SB-PictureTagger.vb

@@ -32,6 +32,18 @@ Public Class Main
     '###################################################################################################################
     '############### Form1_Sub-Tasks ###################################################################################
     '###################################################################################################################
+    Private Sub Clear()
+        tb_Bild_Time.Clear()
+        tb_Bild_Title.Clear()
+        tb_Place_Addresse.Clear()
+        tb_Place_GPS.Clear()
+        rtb_Bild_Description.Clear()
+        rtb_Place_Description.Clear()
+        ReDim pub_aPhotos(0)
+        pub_aPhotos(0) = Nothing
+        pub_nPhotoIndex = 0
+    End Sub
+
     Private Sub LoadConfigForm()
         'pub_aConfigForm()
         '                                                           <--- IN Work
@@ -46,45 +58,78 @@ Public Class Main
     End Sub 'SaveConfigForm
 
     Private Sub Reload()
-        If pub_bChangeTagg Then
-            SaveTaggByEvent()
-        End If
-        ReDim pub_aPhotos(0)
-        pub_aPhotos(0) = ""
+        SaveTaggByEvent()
         pub_aPhotos = Modul_SB_PictureTagger.DirReadPhotos(pub_sPath)
-        pub_nPhotoIndex = 0
         LoadTaggedIMG()
     End Sub 'Reload
+
     Private Sub SaveTagg()
+
+        Dim ID As String = pub_aPhotos(pub_nPhotoIndex)
+        Dim iTaggedIMG As New TaggedIMG
+        If ID <> "" Then 'Später wird die ID der DB übergeben
+
+            iTaggedIMG = Modul_SB_PictureTagger.LoadPicture(ID)
+            Label7.Text = iTaggedIMG.Path
+
+            'TextBox sichern
+            If tb_Bild_Time.Text <> Nothing Then iTaggedIMG.Time = tb_Bild_Time.Text
+            If tb_Place_Addresse.Text <> Nothing Then iTaggedIMG.Ort.Adresse = tb_Place_Addresse.Text
+            If tb_Place_GPS.Text <> Nothing Then iTaggedIMG.Ort.GPS = tb_Place_GPS.Text
+            If rtb_Bild_Description.Text <> Nothing Then iTaggedIMG.Description = rtb_Bild_Description.Text
+            If rtb_Place_Description.Text <> Nothing Then iTaggedIMG.Ort.Description = rtb_Place_Description.Text
+
+            'Erstelle Marks
+            'Lese Marks
+
+        End If
+
+
+
         'Call The Save Methode from Modul_SB-PictureTagger
-
-
-
+        'Modul_SB_PictureTagger.Save_Taggs(pub_iTaggedIMG, IO.Path.GetDirectoryName(pub_sPath))
         pub_bChangeTagg = False
     End Sub 'SaveTagg
 
     Private Sub SaveTaggByEvent()
-        If cb_AutoSave.Checked Then
-            SaveTagg()
-        ElseIf MessageBox.Show("Do you want to save changes?", "SB-PictureTagger", MessageBoxButtons.YesNo) = DialogResult.Yes Then
-            SaveTagg()
+        If pub_bChangeTagg Then
+            If cb_AutoSave.Checked Then
+                SaveTagg()
+            ElseIf MessageBox.Show("Do you want to save changes?", "SB-PictureTagger", MessageBoxButtons.YesNo) = DialogResult.Yes Then
+                SaveTagg()
+            Else
+                pub_bChangeTagg = False
+            End If
         End If
     End Sub 'SaveTaggByEvent
 
     Private Sub LoadTaggedIMG()
         Dim ID As String = pub_aPhotos(pub_nPhotoIndex)
-        Dim TaggedIMG_Now As New TaggedIMG
+        Dim iTaggedIMG As New TaggedIMG
         If ID <> "" Then 'Später wird die ID der DB übergeben
-            If pub_bChangeTagg Then
-                SaveTaggByEvent()
-            End If
-            TaggedIMG_Now = Modul_SB_PictureTagger.LoadPicture(ID)
-            Label7.Text = TaggedIMG_Now.Path
+
+            SaveTaggByEvent()
+
+            iTaggedIMG = Modul_SB_PictureTagger.LoadPicture(ID)
+            Label7.Text = iTaggedIMG.Path
             'Befülle PictureBox
-            PictureBox1.Image = TaggedIMG_Now.Image
+            PictureBox1.Image = iTaggedIMG.Image
+
+            'Textvelder Lehren
+            Clear()
+
             'Befülle TextBox
+            tb_Bild_Time.Text = iTaggedIMG.Time
+            tb_Bild_Title.Text = iTaggedIMG.Title
+            tb_Place_Addresse.Text = iTaggedIMG.Ort.Adresse
+            tb_Place_GPS.Text = iTaggedIMG.Ort.GPS
+            rtb_Bild_Description.Text = iTaggedIMG.Description
+            rtb_Place_Description.Text = iTaggedIMG.Ort.Description
+
+            'End Sub
 
             'Erstelle Marks
+
         End If
     End Sub 'LoadTaggedIMG
 
@@ -122,13 +167,41 @@ Public Class Main
     End Sub
 
     Private Sub b_last_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b_last.Click
-
         If pub_nPhotoIndex > 0 Then
             pub_nPhotoIndex = pub_nPhotoIndex - 1
             LoadTaggedIMG()
         End If
     End Sub
 
+
+    '###################################################################################################################
+    '############### TextBox: TextCanched ##############################################################################
+    '###################################################################################################################
+    Private Sub rtb_Bild_Description_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles rtb_Bild_Description.TextChanged
+        pub_bChangeTagg = True
+    End Sub
+
+    Private Sub rtb_Place_Description_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles rtb_Place_Description.TextChanged
+        pub_bChangeTagg = True
+    End Sub
+
+    Private Sub tb_Bild_Time_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles tb_Bild_Time.TextChanged
+        pub_bChangeTagg = True
+    End Sub
+
+    Private Sub tb_Bild_Title_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles tb_Bild_Title.TextChanged
+        pub_bChangeTagg = True
+    End Sub
+
+    Private Sub tb_Place_Addresse_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles tb_Place_Addresse.TextChanged
+        pub_bChangeTagg = True
+    End Sub
+
+    Private Sub tb_Place_GPS_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles tb_Place_GPS.TextChanged
+        pub_bChangeTagg = True
+    End Sub
+
+
     '###################################################################################################################
     '############### CheckBox Events: CheckStateChanged ################################################################
     '###################################################################################################################
@@ -137,5 +210,4 @@ Public Class Main
         'Wenn cb_marks_visible=true then ZeichneMarks() ELSE VerstekeMarks()
     End Sub
 
-
 End Class

SB-PictureTagger/Modul_SB-PictureTagger.vb

@@ -14,20 +14,24 @@ Module Modul_SB_PictureTagger
         Dim Adresse As String
         Dim Description As String
         Dim GPS As String
+        Public Sub Clear()
+            Me.Adresse = Nothing
+            Me.Description = Nothing
+            Me.GPS = Nothing
+        End Sub
     End Structure
     Structure TaggedIMG
         Dim ID As String
         Dim Title As String
         Dim Description As String
         Dim Time As String
-        Dim Mark() As Mark
+        Dim Markierung() As Mark
         Dim Image As Image
+        Dim Ort As Place
         Dim Path As String
-        Dim Place As Place
         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 Array.IndexOf(Me.Mark, ) Then Index = 1 + UBound(Me.Mark)
-
             'ReDim Me.Mark(Index)
             'Me.Mark(Index).ID = ID
             'Me.Mark(Index).PositionX = PositionX
@@ -36,6 +40,23 @@ Module Modul_SB_PictureTagger
             'Me.Mark(Index).Description = Description
             
         End Sub
+
+        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
+
     End Structure 'TaggedIMG
 
 
@@ -149,11 +170,9 @@ Module Modul_SB_PictureTagger
                     For i = 0 To UBound(aFiles)
                         For Each sPhotoFormat In aPhotoFormats
                             If IO.Path.GetExtension(aFiles(i)) = sPhotoFormat Then
-                                If nCount > UBound(aPhotos) Then
-                                    ReDim Preserve aPhotos(nCount)
-                                End If
-                                aPhotos(nCount) = aFiles(i)
-                                nCount = nCount + 1
+                                If nCount > UBound(aPhotos) Then ReDim Preserve aPhotos(nCount)
+                            aPhotos(nCount) = aFiles(i)
+                            nCount = nCount + 1
                             End If
                         Next sPhotoFormat
                     Next i
@@ -202,27 +221,27 @@ Module Modul_SB_PictureTagger
             Dim Mark_Index As String
 
             'Titel
-            iPicture.Title = Modul_Tools.Config_INI_ReadValue(sDB, ID, "Title")
+            iPicture.Title = Modul_Tools.Config_INI_ReadValue(sDB, ID, "Title", Nothing)
             'Kurzbeschreibung
             '##############################################################
             'ReFormate Description Text from "Description"
-            iPicture.Description = Modul_Tools.Base64_To_Ascii(Modul_Tools.Config_INI_ReadValue(sDB, ID, "Description"))
+            iPicture.Description = Modul_Tools.Base64_To_Ascii(Modul_Tools.Config_INI_ReadValue(sDB, ID, "Description", Nothing))
             '##############################################################
 
             'Zeitangabe
-            iPicture.Time = Modul_Tools.Config_INI_ReadValue(sDB, ID, "Time")
+            iPicture.Time = Modul_Tools.Config_INI_ReadValue(sDB, ID, "Time", Nothing)
             'Ortsangabe-Title
-            iPicture.Place.Title = Modul_Tools.Config_INI_ReadValue(sDB, ID, "Place_Title")
+            iPicture.Ort.Title = Modul_Tools.Config_INI_ReadValue(sDB, ID, "Place_Title", Nothing)
             'Ortsangabe-Adresse
-            iPicture.Place.Adresse = Modul_Tools.Config_INI_ReadValue(sDB, ID, "Place_Adresse")
+            iPicture.Ort.Adresse = Modul_Tools.Config_INI_ReadValue(sDB, ID, "Place_Adresse", Nothing)
             'Ortsangabe-Kurzbeschreibung
             '##############################################################
             'ReFormate Description Text from "Place.Description"
-            iPicture.Place.Description = Modul_Tools.Base64_To_Ascii(Modul_Tools.Config_INI_ReadValue(sDB, ID, "Place_Description"))
+            iPicture.Ort.Description = Modul_Tools.Base64_To_Ascii(Modul_Tools.Config_INI_ReadValue(sDB, ID, "Place_Description", Nothing))
             '##############################################################
 
             'Ortsangabe-GPS Koordinaten
-            iPicture.Place.GPS = Modul_Tools.Config_INI_ReadValue(sDB, ID, "Place_GPS")
+            iPicture.Ort.GPS = Modul_Tools.Config_INI_ReadValue(sDB, ID, "Place_GPS", Nothing)
 
 
             'Load Marks
@@ -239,7 +258,7 @@ Module Modul_SB_PictureTagger
                     Mark_Radius = Convert.ToInt32(Modul_Tools.Config_INI_ReadValue(sDB, ID, "Mark" & Convert.ToString(i) & "_Radius", "0"))
                     '##############################################################
                     'ReFormate Description Text from "Mark_Description"
-                    Mark_Description = Modul_Tools.Base64_To_Ascii(Modul_Tools.Config_INI_ReadValue(sDB, ID, "Mark" & Convert.ToString(i) & "_Description", "0"))
+                    Mark_Description = Modul_Tools.Base64_To_Ascii(Modul_Tools.Config_INI_ReadValue(sDB, ID, "Mark" & Convert.ToString(i) & "_Description", Nothing))
                     '##############################################################
 
                     'Erstellen eines Neuen Marks
@@ -256,7 +275,7 @@ Module Modul_SB_PictureTagger
     '###################################################################################################################
     '############### 4.Save_Taggs ###################################################################################
     '###################################################################################################################
-    Private Sub Save_Taggs(ByVal iPicture As TaggedIMG, ByVal DB_Locate As String)
+    Public Sub Save_Taggs(ByVal iPicture As TaggedIMG, ByVal DB_Locate As String)
         'Grund Vars Deklarieren
         Dim ID As String = iPicture.ID
         Dim sDB As String = "Tagg.ini"
@@ -267,45 +286,40 @@ Module Modul_SB_PictureTagger
             File.Create(sDB)
 
             'Titel
-            If iPicture.Title <> "" Then Modul_Tools.Config_INI_WriteValue(sDB, ID, "Title", iPicture.Title)
+            Modul_Tools.Config_INI_WriteValue(sDB, ID, "Title", iPicture.Title)
 
             'Kurzbeschreibung
             '##############################################################
             'Formate Description Text from "Description"
-            If iPicture.Description <> "" Then Modul_Tools.Config_INI_WriteValue(sDB, ID, "Description", Modul_Tools.Ascii_To_Base64(iPicture.Description))
+            Modul_Tools.Config_INI_WriteValue(sDB, ID, "Description", Modul_Tools.Ascii_To_Base64(iPicture.Description))
             '##############################################################
 
             'Zeitangabe
-            If iPicture.Time <> "" Then Modul_Tools.Config_INI_WriteValue(sDB, ID, "Time", iPicture.Time)
+            Modul_Tools.Config_INI_WriteValue(sDB, ID, "Time", iPicture.Time)
             'Ortsangabe-Title
-            If iPicture.Place.Title <> "" Then Modul_Tools.Config_INI_WriteValue(sDB, ID, "Place_Title", iPicture.Place.Title)
+            Modul_Tools.Config_INI_WriteValue(sDB, ID, "Place_Title", iPicture.Ort.Title)
             'Ortsangabe-Adresse
-            If iPicture.Place.Adresse <> "" Then Modul_Tools.Config_INI_WriteValue(sDB, ID, "Place_Adresse", iPicture.Place.Adresse)
+            Modul_Tools.Config_INI_WriteValue(sDB, ID, "Place_Adresse", iPicture.Ort.Adresse)
 
             'Ortsangabe-Kurzbeschreibung
             '##############################################################
             'Formate Description Text from "iPicture.Place.Description"
-            If iPicture.Place.Description <> "" Then Modul_Tools.Config_INI_WriteValue(sDB, ID, "Place_Description", Modul_Tools.Ascii_To_Base64(iPicture.Place.Description))
+            Modul_Tools.Config_INI_WriteValue(sDB, ID, "Place_Description", Modul_Tools.Ascii_To_Base64(iPicture.Ort.Description))
             '##############################################################
 
             'Ortsangabe-GPS Koordinaten
-            If iPicture.Place.GPS <> "" Then Modul_Tools.Config_INI_WriteValue(sDB, ID, "Place_GPS", iPicture.Place.GPS)
+            Modul_Tools.Config_INI_WriteValue(sDB, ID, "Place_GPS", iPicture.Ort.GPS)
 
 
             'Save Marks                  
             i = 0
-            If iPicture.Mark(0).ID <> "" Then
-                For i = 0 To UBound(iPicture.Mark)
+            If iPicture.Markierung(0).ID <> "" Then
+                For i = 0 To UBound(iPicture.Markierung)
                     Modul_Tools.Config_INI_WriteValue(sDB, ID, "Mark" & i & "_ID", Convert.ToString(i))
-                    Modul_Tools.Config_INI_WriteValue(sDB, ID, "Mark" & i & "_PositionX", Convert.ToString(iPicture.Mark(i).PositionX))
-                    Modul_Tools.Config_INI_WriteValue(sDB, ID, "Mark" & i & "_PositionY", Convert.ToString(iPicture.Mark(i).PositionY))
-                    Modul_Tools.Config_INI_WriteValue(sDB, ID, "Mark" & i & "_Radius", Convert.ToString(iPicture.Mark(i).Radius))
-
-                    '##############################################################
-                    'Formate Description Text from "Mark Deskription"
-                    Modul_Tools.Config_INI_WriteValue(sDB, ID, "Mark" & i & "_Description", Modul_Tools.Ascii_To_Base64(iPicture.Mark(i).Description))
-                    '##############################################################
-
+                    Modul_Tools.Config_INI_WriteValue(sDB, ID, "Mark" & i & "_PositionX", Convert.ToString(iPicture.Markierung(i).PositionX))
+                    Modul_Tools.Config_INI_WriteValue(sDB, ID, "Mark" & i & "_PositionY", Convert.ToString(iPicture.Markierung(i).PositionY))
+                    Modul_Tools.Config_INI_WriteValue(sDB, ID, "Mark" & i & "_Radius", Convert.ToString(iPicture.Markierung(i).Radius))
+                    Modul_Tools.Config_INI_WriteValue(sDB, ID, "Mark" & i & "_Description", Modul_Tools.Ascii_To_Base64(iPicture.Markierung(i).Description))
                 Next i
             End If
             i = 0

SB-PictureTagger/Modul_Tools.vb

@@ -307,9 +307,7 @@ Module Modul_Tools
             Dim raw As Byte() = System.Convert.FromBase64String(Base64String)
             Base64_To_Ascii = System.Text.ASCIIEncoding.ASCII.GetString(raw)
         Catch ex As Exception
-            MsgBox(ex.Message)
             Base64_To_Ascii = ""
         End Try
     End Function
-
 End Module 'Modul_Tools

SB-PictureTagger/TaggedIMG.vb

@@ -13,6 +13,11 @@
         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
@@ -24,6 +29,21 @@
     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