v0.2
This commit is contained in:
parent
087d7eb31d
commit
a7f9f80830
77
SB-PictureTagger/Form_SB-PictureTagger.Designer.vb
generated
77
SB-PictureTagger/Form_SB-PictureTagger.Designer.vb
generated
@ -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
|
||||
|
||||
@ -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>
|
||||
@ -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
|
||||
|
||||
@ -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
|
||||
|
||||
@ -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
|
||||
|
||||
@ -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
|
||||
|
||||
Loading…
Reference in New Issue
Block a user