6543/PictureTagger
6543
/
PictureTagger
1
0
Fork 0
Code Issues 1 Pull Requests Releases 7 Wiki Activity

v0.2

This commit is contained in:
6543 2015-02-16 23:54:00 +02:00
parent 087d7eb31d
commit a7f9f80830
6 changed files with 201 additions and 110 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

77
SB-PictureTagger/Form_SB-PictureTagger.Designer.vb generated
View File

@ -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

12
SB-PictureTagger/Form_SB-PictureTagger.resx
View File

@ -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>

116
SB-PictureTagger/Form_SB-PictureTagger.vb
View File

@ -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

84
SB-PictureTagger/Modul_SB-PictureTagger.vb
View File

@ -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

2
SB-PictureTagger/Modul_Tools.vb
View File

@ -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

20
SB-PictureTagger/TaggedIMG.vb
View File

@ -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