bevore v0.1
This commit is contained in:
parent
ed6699e078
commit
42800a7580
|
@ -0,0 +1,20 @@
|
||||||
|
|
||||||
|
Microsoft Visual Studio Solution File, Format Version 11.00
|
||||||
|
# Visual Basic Express 2010
|
||||||
|
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "SB-PictureTagger", "SB-PictureTagger\SB-PictureTagger.vbproj", "{CF4DEB85-2B3F-40D8-9E21-F265316CF41A}"
|
||||||
|
EndProject
|
||||||
|
Global
|
||||||
|
GlobalSection(SolutionConfigurationPlatforms) = preSolution
|
||||||
|
Debug|x86 = Debug|x86
|
||||||
|
Release|x86 = Release|x86
|
||||||
|
EndGlobalSection
|
||||||
|
GlobalSection(ProjectConfigurationPlatforms) = postSolution
|
||||||
|
{CF4DEB85-2B3F-40D8-9E21-F265316CF41A}.Debug|x86.ActiveCfg = Debug|x86
|
||||||
|
{CF4DEB85-2B3F-40D8-9E21-F265316CF41A}.Debug|x86.Build.0 = Debug|x86
|
||||||
|
{CF4DEB85-2B3F-40D8-9E21-F265316CF41A}.Release|x86.ActiveCfg = Release|x86
|
||||||
|
{CF4DEB85-2B3F-40D8-9E21-F265316CF41A}.Release|x86.Build.0 = Release|x86
|
||||||
|
EndGlobalSection
|
||||||
|
GlobalSection(SolutionProperties) = preSolution
|
||||||
|
HideSolutionNode = FALSE
|
||||||
|
EndGlobalSection
|
||||||
|
EndGlobal
|
|
@ -0,0 +1,284 @@
|
||||||
|
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||||
|
Partial Class Main
|
||||||
|
Inherits System.Windows.Forms.Form
|
||||||
|
|
||||||
|
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||||
|
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||||
|
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||||
|
Try
|
||||||
|
If disposing AndAlso components IsNot Nothing Then
|
||||||
|
components.Dispose()
|
||||||
|
End If
|
||||||
|
Finally
|
||||||
|
MyBase.Dispose(disposing)
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Wird vom Windows Form-Designer benötigt.
|
||||||
|
Private components As System.ComponentModel.IContainer
|
||||||
|
|
||||||
|
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||||
|
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||||
|
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||||
|
<System.Diagnostics.DebuggerStepThrough()> _
|
||||||
|
Private Sub InitializeComponent()
|
||||||
|
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
|
||||||
|
Me.b_next = New System.Windows.Forms.Button()
|
||||||
|
Me.b_last = New System.Windows.Forms.Button()
|
||||||
|
Me.b_exit = New System.Windows.Forms.Button()
|
||||||
|
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
|
||||||
|
Me.Label3 = New System.Windows.Forms.Label()
|
||||||
|
Me.Label2 = New System.Windows.Forms.Label()
|
||||||
|
Me.Label1 = New System.Windows.Forms.Label()
|
||||||
|
Me.TextBox2 = New System.Windows.Forms.TextBox()
|
||||||
|
Me.RichTextBox1 = New System.Windows.Forms.RichTextBox()
|
||||||
|
Me.TextBox1 = New System.Windows.Forms.TextBox()
|
||||||
|
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
|
||||||
|
Me.cb_marks_visible = New System.Windows.Forms.CheckBox()
|
||||||
|
Me.DataGridView1 = New System.Windows.Forms.DataGridView()
|
||||||
|
Me.b_loaddir = New System.Windows.Forms.Button()
|
||||||
|
Me.b_save = New System.Windows.Forms.Button()
|
||||||
|
Me.b_reloaddir = New System.Windows.Forms.Button()
|
||||||
|
Me.Column1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||||
|
Me.Position = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||||
|
Me.Radius = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||||
|
Me.Column2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||||
|
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
Me.GroupBox1.SuspendLayout()
|
||||||
|
Me.GroupBox2.SuspendLayout()
|
||||||
|
CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
Me.SuspendLayout()
|
||||||
|
'
|
||||||
|
'PictureBox1
|
||||||
|
'
|
||||||
|
Me.PictureBox1.Location = New System.Drawing.Point(12, 12)
|
||||||
|
Me.PictureBox1.Name = "PictureBox1"
|
||||||
|
Me.PictureBox1.Size = New System.Drawing.Size(717, 618)
|
||||||
|
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
|
||||||
|
Me.PictureBox1.TabIndex = 0
|
||||||
|
Me.PictureBox1.TabStop = False
|
||||||
|
'
|
||||||
|
'b_next
|
||||||
|
'
|
||||||
|
Me.b_next.Font = New System.Drawing.Font("Comic Sans MS", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
|
Me.b_next.Location = New System.Drawing.Point(196, 661)
|
||||||
|
Me.b_next.Name = "b_next"
|
||||||
|
Me.b_next.Size = New System.Drawing.Size(178, 51)
|
||||||
|
Me.b_next.TabIndex = 2
|
||||||
|
Me.b_next.Text = "Folowing"
|
||||||
|
Me.b_next.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'b_last
|
||||||
|
'
|
||||||
|
Me.b_last.Font = New System.Drawing.Font("Comic Sans MS", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
|
Me.b_last.Location = New System.Drawing.Point(12, 661)
|
||||||
|
Me.b_last.Name = "b_last"
|
||||||
|
Me.b_last.Size = New System.Drawing.Size(178, 51)
|
||||||
|
Me.b_last.TabIndex = 3
|
||||||
|
Me.b_last.Text = "Last"
|
||||||
|
Me.b_last.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'b_exit
|
||||||
|
'
|
||||||
|
Me.b_exit.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
|
Me.b_exit.Location = New System.Drawing.Point(916, 661)
|
||||||
|
Me.b_exit.Name = "b_exit"
|
||||||
|
Me.b_exit.Size = New System.Drawing.Size(178, 51)
|
||||||
|
Me.b_exit.TabIndex = 4
|
||||||
|
Me.b_exit.Text = "EXIT"
|
||||||
|
Me.b_exit.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'GroupBox1
|
||||||
|
'
|
||||||
|
Me.GroupBox1.Controls.Add(Me.Label3)
|
||||||
|
Me.GroupBox1.Controls.Add(Me.Label2)
|
||||||
|
Me.GroupBox1.Controls.Add(Me.Label1)
|
||||||
|
Me.GroupBox1.Controls.Add(Me.TextBox2)
|
||||||
|
Me.GroupBox1.Controls.Add(Me.RichTextBox1)
|
||||||
|
Me.GroupBox1.Controls.Add(Me.TextBox1)
|
||||||
|
Me.GroupBox1.Location = New System.Drawing.Point(742, 16)
|
||||||
|
Me.GroupBox1.Name = "GroupBox1"
|
||||||
|
Me.GroupBox1.Size = New System.Drawing.Size(352, 163)
|
||||||
|
Me.GroupBox1.TabIndex = 6
|
||||||
|
Me.GroupBox1.TabStop = False
|
||||||
|
Me.GroupBox1.Text = "MainTaggs"
|
||||||
|
'
|
||||||
|
'Label3
|
||||||
|
'
|
||||||
|
Me.Label3.AutoSize = True
|
||||||
|
Me.Label3.Location = New System.Drawing.Point(8, 74)
|
||||||
|
Me.Label3.Name = "Label3"
|
||||||
|
Me.Label3.Size = New System.Drawing.Size(69, 13)
|
||||||
|
Me.Label3.TabIndex = 5
|
||||||
|
Me.Label3.Text = "Kommentare:"
|
||||||
|
'
|
||||||
|
'Label2
|
||||||
|
'
|
||||||
|
Me.Label2.AutoSize = True
|
||||||
|
Me.Label2.Location = New System.Drawing.Point(8, 45)
|
||||||
|
Me.Label2.Name = "Label2"
|
||||||
|
Me.Label2.Size = New System.Drawing.Size(28, 13)
|
||||||
|
Me.Label2.TabIndex = 4
|
||||||
|
Me.Label2.Text = "Zeit:"
|
||||||
|
'
|
||||||
|
'Label1
|
||||||
|
'
|
||||||
|
Me.Label1.AutoSize = True
|
||||||
|
Me.Label1.Location = New System.Drawing.Point(6, 22)
|
||||||
|
Me.Label1.Name = "Label1"
|
||||||
|
Me.Label1.Size = New System.Drawing.Size(30, 13)
|
||||||
|
Me.Label1.TabIndex = 3
|
||||||
|
Me.Label1.Text = "Titel:"
|
||||||
|
'
|
||||||
|
'TextBox2
|
||||||
|
'
|
||||||
|
Me.TextBox2.Location = New System.Drawing.Point(83, 45)
|
||||||
|
Me.TextBox2.Name = "TextBox2"
|
||||||
|
Me.TextBox2.Size = New System.Drawing.Size(263, 20)
|
||||||
|
Me.TextBox2.TabIndex = 2
|
||||||
|
'
|
||||||
|
'RichTextBox1
|
||||||
|
'
|
||||||
|
Me.RichTextBox1.Location = New System.Drawing.Point(83, 71)
|
||||||
|
Me.RichTextBox1.Name = "RichTextBox1"
|
||||||
|
Me.RichTextBox1.Size = New System.Drawing.Size(263, 86)
|
||||||
|
Me.RichTextBox1.TabIndex = 1
|
||||||
|
Me.RichTextBox1.Text = ""
|
||||||
|
'
|
||||||
|
'TextBox1
|
||||||
|
'
|
||||||
|
Me.TextBox1.Location = New System.Drawing.Point(83, 19)
|
||||||
|
Me.TextBox1.Name = "TextBox1"
|
||||||
|
Me.TextBox1.Size = New System.Drawing.Size(263, 20)
|
||||||
|
Me.TextBox1.TabIndex = 0
|
||||||
|
'
|
||||||
|
'GroupBox2
|
||||||
|
'
|
||||||
|
Me.GroupBox2.Controls.Add(Me.cb_marks_visible)
|
||||||
|
Me.GroupBox2.Controls.Add(Me.DataGridView1)
|
||||||
|
Me.GroupBox2.Location = New System.Drawing.Point(742, 185)
|
||||||
|
Me.GroupBox2.Name = "GroupBox2"
|
||||||
|
Me.GroupBox2.Size = New System.Drawing.Size(352, 445)
|
||||||
|
Me.GroupBox2.TabIndex = 7
|
||||||
|
Me.GroupBox2.TabStop = False
|
||||||
|
Me.GroupBox2.Text = "MarkTaggs"
|
||||||
|
'
|
||||||
|
'cb_marks_visible
|
||||||
|
'
|
||||||
|
Me.cb_marks_visible.AutoSize = True
|
||||||
|
Me.cb_marks_visible.Location = New System.Drawing.Point(11, 28)
|
||||||
|
Me.cb_marks_visible.Name = "cb_marks_visible"
|
||||||
|
Me.cb_marks_visible.Size = New System.Drawing.Size(121, 17)
|
||||||
|
Me.cb_marks_visible.TabIndex = 2
|
||||||
|
Me.cb_marks_visible.Text = "Zeige Markierungen"
|
||||||
|
Me.cb_marks_visible.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'DataGridView1
|
||||||
|
'
|
||||||
|
Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||||
|
Me.DataGridView1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.Column1, Me.Position, Me.Radius, Me.Column2})
|
||||||
|
Me.DataGridView1.Location = New System.Drawing.Point(11, 51)
|
||||||
|
Me.DataGridView1.Name = "DataGridView1"
|
||||||
|
Me.DataGridView1.Size = New System.Drawing.Size(335, 388)
|
||||||
|
Me.DataGridView1.TabIndex = 1
|
||||||
|
'
|
||||||
|
'b_loaddir
|
||||||
|
'
|
||||||
|
Me.b_loaddir.Font = New System.Drawing.Font("Comic Sans MS", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
|
Me.b_loaddir.Location = New System.Drawing.Point(732, 661)
|
||||||
|
Me.b_loaddir.Name = "b_loaddir"
|
||||||
|
Me.b_loaddir.Size = New System.Drawing.Size(178, 51)
|
||||||
|
Me.b_loaddir.TabIndex = 8
|
||||||
|
Me.b_loaddir.Text = "Load Folder"
|
||||||
|
Me.b_loaddir.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'b_save
|
||||||
|
'
|
||||||
|
Me.b_save.Font = New System.Drawing.Font("Comic Sans MS", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
|
Me.b_save.Location = New System.Drawing.Point(380, 661)
|
||||||
|
Me.b_save.Name = "b_save"
|
||||||
|
Me.b_save.Size = New System.Drawing.Size(178, 51)
|
||||||
|
Me.b_save.TabIndex = 9
|
||||||
|
Me.b_save.Text = "Save Chanches"
|
||||||
|
Me.b_save.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'b_reloaddir
|
||||||
|
'
|
||||||
|
Me.b_reloaddir.Font = New System.Drawing.Font("Comic Sans MS", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
|
Me.b_reloaddir.Location = New System.Drawing.Point(564, 661)
|
||||||
|
Me.b_reloaddir.Name = "b_reloaddir"
|
||||||
|
Me.b_reloaddir.Size = New System.Drawing.Size(165, 51)
|
||||||
|
Me.b_reloaddir.TabIndex = 10
|
||||||
|
Me.b_reloaddir.Text = "Reload Folder"
|
||||||
|
Me.b_reloaddir.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'Column1
|
||||||
|
'
|
||||||
|
Me.Column1.HeaderText = "Nr."
|
||||||
|
Me.Column1.Name = "Column1"
|
||||||
|
'
|
||||||
|
'Position
|
||||||
|
'
|
||||||
|
Me.Position.HeaderText = "Position"
|
||||||
|
Me.Position.Name = "Position"
|
||||||
|
Me.Position.Visible = False
|
||||||
|
'
|
||||||
|
'Radius
|
||||||
|
'
|
||||||
|
Me.Radius.HeaderText = "Radius"
|
||||||
|
Me.Radius.Name = "Radius"
|
||||||
|
Me.Radius.Visible = False
|
||||||
|
'
|
||||||
|
'Column2
|
||||||
|
'
|
||||||
|
Me.Column2.HeaderText = "Beschreibung"
|
||||||
|
Me.Column2.Name = "Column2"
|
||||||
|
'
|
||||||
|
'Main
|
||||||
|
'
|
||||||
|
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||||
|
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||||
|
Me.ClientSize = New System.Drawing.Size(1106, 723)
|
||||||
|
Me.Controls.Add(Me.b_reloaddir)
|
||||||
|
Me.Controls.Add(Me.b_save)
|
||||||
|
Me.Controls.Add(Me.b_loaddir)
|
||||||
|
Me.Controls.Add(Me.GroupBox2)
|
||||||
|
Me.Controls.Add(Me.GroupBox1)
|
||||||
|
Me.Controls.Add(Me.b_exit)
|
||||||
|
Me.Controls.Add(Me.b_last)
|
||||||
|
Me.Controls.Add(Me.b_next)
|
||||||
|
Me.Controls.Add(Me.PictureBox1)
|
||||||
|
Me.Name = "Main"
|
||||||
|
Me.Text = "SB-PictureTagger"
|
||||||
|
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
Me.GroupBox1.ResumeLayout(False)
|
||||||
|
Me.GroupBox1.PerformLayout()
|
||||||
|
Me.GroupBox2.ResumeLayout(False)
|
||||||
|
Me.GroupBox2.PerformLayout()
|
||||||
|
CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
Me.ResumeLayout(False)
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
|
||||||
|
Friend WithEvents b_next As System.Windows.Forms.Button
|
||||||
|
Friend WithEvents b_last As System.Windows.Forms.Button
|
||||||
|
Friend WithEvents b_exit As System.Windows.Forms.Button
|
||||||
|
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
|
||||||
|
Friend WithEvents Label3 As System.Windows.Forms.Label
|
||||||
|
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||||
|
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||||
|
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
|
||||||
|
Friend WithEvents RichTextBox1 As System.Windows.Forms.RichTextBox
|
||||||
|
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
|
||||||
|
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
|
||||||
|
Friend WithEvents DataGridView1 As System.Windows.Forms.DataGridView
|
||||||
|
Friend WithEvents b_loaddir As System.Windows.Forms.Button
|
||||||
|
Friend WithEvents cb_marks_visible As System.Windows.Forms.CheckBox
|
||||||
|
Friend WithEvents b_save As System.Windows.Forms.Button
|
||||||
|
Friend WithEvents b_reloaddir As System.Windows.Forms.Button
|
||||||
|
Friend WithEvents Column1 As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||||
|
Friend WithEvents Position As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||||
|
Friend WithEvents Radius As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||||
|
Friend WithEvents Column2 As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||||
|
|
||||||
|
End Class
|
|
@ -0,0 +1,132 @@
|
||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<root>
|
||||||
|
<!--
|
||||||
|
Microsoft ResX Schema
|
||||||
|
|
||||||
|
Version 2.0
|
||||||
|
|
||||||
|
The primary goals of this format is to allow a simple XML format
|
||||||
|
that is mostly human readable. The generation and parsing of the
|
||||||
|
various data types are done through the TypeConverter classes
|
||||||
|
associated with the data types.
|
||||||
|
|
||||||
|
Example:
|
||||||
|
|
||||||
|
... ado.net/XML headers & schema ...
|
||||||
|
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||||
|
<resheader name="version">2.0</resheader>
|
||||||
|
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||||
|
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||||
|
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||||
|
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||||
|
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||||
|
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||||
|
</data>
|
||||||
|
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||||
|
<comment>This is a comment</comment>
|
||||||
|
</data>
|
||||||
|
|
||||||
|
There are any number of "resheader" rows that contain simple
|
||||||
|
name/value pairs.
|
||||||
|
|
||||||
|
Each data row contains a name, and value. The row also contains a
|
||||||
|
type or mimetype. Type corresponds to a .NET class that support
|
||||||
|
text/value conversion through the TypeConverter architecture.
|
||||||
|
Classes that don't support this are serialized and stored with the
|
||||||
|
mimetype set.
|
||||||
|
|
||||||
|
The mimetype is used for serialized objects, and tells the
|
||||||
|
ResXResourceReader how to depersist the object. This is currently not
|
||||||
|
extensible. For a given mimetype the value must be set accordingly:
|
||||||
|
|
||||||
|
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||||
|
that the ResXResourceWriter will generate, however the reader can
|
||||||
|
read any of the formats listed below.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.binary.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.soap.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||||
|
value : The object must be serialized into a byte array
|
||||||
|
: using a System.ComponentModel.TypeConverter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
-->
|
||||||
|
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||||
|
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||||
|
<xsd:element name="root" msdata:IsDataSet="true">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:choice maxOccurs="unbounded">
|
||||||
|
<xsd:element name="metadata">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||||
|
<xsd:attribute ref="xml:space" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="assembly">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:attribute name="alias" type="xsd:string" />
|
||||||
|
<xsd:attribute name="name" type="xsd:string" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="data">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||||
|
<xsd:attribute ref="xml:space" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="resheader">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:choice>
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:schema>
|
||||||
|
<resheader name="resmimetype">
|
||||||
|
<value>text/microsoft-resx</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="version">
|
||||||
|
<value>2.0</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="reader">
|
||||||
|
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="writer">
|
||||||
|
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
<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>
|
|
@ -0,0 +1,105 @@
|
||||||
|
Option Explicit On
|
||||||
|
Imports System.IO
|
||||||
|
|
||||||
|
Public Class Main
|
||||||
|
'Deklariere Public Variables
|
||||||
|
Public pub_aPhotos(0) As String 'Array mit den Photo Pfaden
|
||||||
|
Public pub_sPath As String 'String mit dem Arbeits Verzeichnis
|
||||||
|
Public pub_nPhotoIndex As Long = 0 'IndexNR des pub_aPhotos Arrays
|
||||||
|
Public pub_bChangeTagg As Boolean = False
|
||||||
|
|
||||||
|
'###################################################################################################################
|
||||||
|
'############### Main ##############################################################################################
|
||||||
|
'###################################################################################################################
|
||||||
|
|
||||||
|
Private Sub Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
'###################################################################################################################
|
||||||
|
'############### Form1_Function-Tasks ##############################################################################
|
||||||
|
'###################################################################################################################
|
||||||
|
|
||||||
|
'###################################################################################################################
|
||||||
|
'############### Form1_Sub-Tasks ###################################################################################
|
||||||
|
'###################################################################################################################
|
||||||
|
|
||||||
|
Private Sub Reload()
|
||||||
|
SaveTagg()
|
||||||
|
ReDim pub_aPhotos(0)
|
||||||
|
pub_aPhotos(0) = ""
|
||||||
|
pub_aPhotos = Modul_SB_PictureTagger.DirReadPhotos(pub_sPath)
|
||||||
|
pub_nPhotoIndex = 0
|
||||||
|
LoadTaggedIMG()
|
||||||
|
End Sub 'Reload
|
||||||
|
|
||||||
|
Private Sub SaveTagg()
|
||||||
|
If pub_bChangeTagg = True Then
|
||||||
|
'Call The Save Methode from Modul_SB-PictureTagger
|
||||||
|
pub_bChangeTagg = False
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub LoadTaggedIMG()
|
||||||
|
Dim ID As String = pub_aPhotos(pub_nPhotoIndex)
|
||||||
|
Dim TaggedIMG_Now As New TaggedIMG
|
||||||
|
If ID <> "" Then 'Später wird die ID der DB übergeben
|
||||||
|
SaveTagg()
|
||||||
|
TaggedIMG_Now = Modul_SB_PictureTagger.LoadPicture(ID)
|
||||||
|
PictureBox1.Image = TaggedIMG_Now.Image
|
||||||
|
'Befülle TextBox
|
||||||
|
'Erstelle Marks
|
||||||
|
End If
|
||||||
|
End Sub 'LoadTaggedIMG
|
||||||
|
|
||||||
|
'###################################################################################################################
|
||||||
|
'############### Buton Events: Click ###############################################################################
|
||||||
|
'###################################################################################################################
|
||||||
|
|
||||||
|
|
||||||
|
Private Sub b_exit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b_exit.Click
|
||||||
|
' Programm Beenden
|
||||||
|
SaveTagg()
|
||||||
|
Me.Close()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub b_loaddir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b_loaddir.Click
|
||||||
|
'Laden eines zu Taggenden Bilder-Verzeichnis
|
||||||
|
Modul_Tools.FolderBrowserDialog(pub_sPath)
|
||||||
|
Reload()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub b_reloaddir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b_reloaddir.Click
|
||||||
|
Reload()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub b_save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b_save.Click
|
||||||
|
SaveTagg()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub b_next_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b_next.Click
|
||||||
|
If pub_nPhotoIndex < (UBound(pub_aPhotos) - 1) Then
|
||||||
|
pub_nPhotoIndex += 1
|
||||||
|
LoadTaggedIMG()
|
||||||
|
End If
|
||||||
|
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
|
||||||
|
|
||||||
|
'###################################################################################################################
|
||||||
|
'############### CheckBox Events: CheckStateChanged ################################################################
|
||||||
|
'###################################################################################################################
|
||||||
|
|
||||||
|
Private Sub cb_marks_visible_CheckStateChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cb_marks_visible.CheckStateChanged
|
||||||
|
'Wenn cb_marks_visible=true then ZeichneMarks() ELSE VerstekeMarks()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
End Class
|
|
@ -0,0 +1,166 @@
|
||||||
|
Option Explicit On
|
||||||
|
Imports System.IO
|
||||||
|
|
||||||
|
Module Modul_SB_PictureTagger
|
||||||
|
Structure Mark
|
||||||
|
Dim Position As String
|
||||||
|
Dim ID As String
|
||||||
|
Dim Description As String
|
||||||
|
End Structure 'Mark
|
||||||
|
Structure Place
|
||||||
|
Dim Adresse
|
||||||
|
Dim Description
|
||||||
|
Dim GPS
|
||||||
|
End Structure
|
||||||
|
Structure TaggedIMG
|
||||||
|
Dim ID As Long
|
||||||
|
Dim Title As String
|
||||||
|
Dim Description As String
|
||||||
|
Dim Time As String
|
||||||
|
Dim Mark() As Mark
|
||||||
|
Dim Image As Image
|
||||||
|
Dim Path As String
|
||||||
|
Dim Place As Place
|
||||||
|
End Structure 'TaggedIMG
|
||||||
|
|
||||||
|
'Methoden Index:
|
||||||
|
'1.LoadPicture
|
||||||
|
' Parameter: "-SupportedFormats-" -> Array of Supported Formats;
|
||||||
|
' Parameter: File Pfad -> Picture ##in Work!##
|
||||||
|
'2.DirReadPhotos
|
||||||
|
' Parameter: Ordner Pfad; Return: Array von Pfaden der Bilddateien des Ordners
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
'###################################################################################################################
|
||||||
|
'############### 1.LoadPicture #####################################################################################
|
||||||
|
'###################################################################################################################
|
||||||
|
|
||||||
|
Public Function LoadPicture(ByVal sPath As String) As Object
|
||||||
|
'Deklariere
|
||||||
|
Dim aPhotoFormats(0) As String 'Array Enthält die Unsterstützten Photoformate
|
||||||
|
'###Statische Einstellungen###
|
||||||
|
'Die Untestützten Formate einstellen
|
||||||
|
ReDim Preserve aPhotoFormats(5)
|
||||||
|
aPhotoFormats(0) = ".jpg"
|
||||||
|
aPhotoFormats(1) = ".bmp"
|
||||||
|
aPhotoFormats(2) = ".gif"
|
||||||
|
aPhotoFormats(3) = ".png"
|
||||||
|
aPhotoFormats(4) = ".jp2"
|
||||||
|
aPhotoFormats(5) = ".tif"
|
||||||
|
|
||||||
|
'Entscheide ob Rückgabe des Arrays für die FormatUnterstützung
|
||||||
|
'Oder das Laden des Bildes aus der angegebenen Quelle
|
||||||
|
If sPath = "-SupportedFormats-" Then
|
||||||
|
LoadPicture = aPhotoFormats
|
||||||
|
ElseIf (File.Exists(sPath) = True) Then
|
||||||
|
'BildLadeFunktion
|
||||||
|
'Main Work###############################################
|
||||||
|
Dim iPicture As New TaggedIMG
|
||||||
|
|
||||||
|
'Testen ob Vormat unterstüzt!
|
||||||
|
iPicture.Path = sPath
|
||||||
|
iPicture.Image = Image.FromFile(sPath)
|
||||||
|
|
||||||
|
'Wird hier später mit Tagg Bestückt!
|
||||||
|
|
||||||
|
|
||||||
|
LoadPicture = iPicture
|
||||||
|
'Main Work Ende##########################################
|
||||||
|
Else
|
||||||
|
MsgBox("Can't load Picture")
|
||||||
|
LoadPicture = ""
|
||||||
|
End If
|
||||||
|
End Function 'LoadPicture
|
||||||
|
|
||||||
|
|
||||||
|
'###################################################################################################################
|
||||||
|
'############### 2.DirReadPhotos ###################################################################################
|
||||||
|
'###################################################################################################################
|
||||||
|
|
||||||
|
Public Function DirReadPhotos(ByVal sPath As String) As Object
|
||||||
|
'Parameter: Ordner Pfad
|
||||||
|
'Return: Array von Pfaden der Bilddateien des Ordners
|
||||||
|
|
||||||
|
|
||||||
|
Dim aPhotos(0) As String
|
||||||
|
Dim i As Long
|
||||||
|
Dim sPhotoFormat As String
|
||||||
|
Dim aPhotoFormats(0) As String 'Array Enthält die Unsterstützten Photoformate
|
||||||
|
|
||||||
|
'Lade Unterstüzte Formate:
|
||||||
|
aPhotoFormats = LoadPicture("-SupportedFormats-")
|
||||||
|
|
||||||
|
Try
|
||||||
|
'Deklarieren
|
||||||
|
Dim aFiles As String() = Directory.GetFiles(sPath) ' Try verwenden!! <----
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
'Überprüfen auf existenz des Ordners
|
||||||
|
'Ja: Weiter
|
||||||
|
'Nein: MsgBox("Error: Der Pfad existiert Nicht!")
|
||||||
|
If Directory.Exists(sPath) = True Then
|
||||||
|
|
||||||
|
|
||||||
|
'Speichere Pfad in Array aPhotos
|
||||||
|
'Wenn das File die Dateiendungen aus Array aPhotoFormats besitzt
|
||||||
|
|
||||||
|
Dim nCount As Long = 0
|
||||||
|
If aFiles(0) <> "" Then
|
||||||
|
aPhotos(0) = ""
|
||||||
|
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
|
||||||
|
End If
|
||||||
|
Next sPhotoFormat
|
||||||
|
Next i
|
||||||
|
Else
|
||||||
|
aPhotos(0) = ""
|
||||||
|
End If
|
||||||
|
|
||||||
|
'Array Nach Dateinahmen Sortieren
|
||||||
|
Array.Sort(aPhotos)
|
||||||
|
|
||||||
|
|
||||||
|
Else
|
||||||
|
MsgBox("Error: Der Pfad existiert Nicht!")
|
||||||
|
aPhotos(0) = ""
|
||||||
|
End If
|
||||||
|
DirReadPhotos = aPhotos
|
||||||
|
Catch ex As Exception
|
||||||
|
MsgBox(ex.Message)
|
||||||
|
aPhotos(0) = ""
|
||||||
|
DirReadPhotos = aPhotos
|
||||||
|
End Try
|
||||||
|
End Function 'DirReadPhotos
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
'Vor VBA AND VB without .Net
|
||||||
|
|
||||||
|
'### with .Net: Imports System.IO; Directory.Exists(Path)####
|
||||||
|
'Private Function FileExists(ByVal FileName As String) As Boolean
|
||||||
|
' On Error Resume Next
|
||||||
|
' FileExists = Not CBool(GetAttr(FileName) And (vbDirectory Or vbVolume))
|
||||||
|
' On Error GoTo 0
|
||||||
|
'End Function
|
||||||
|
|
||||||
|
'### with .Net: Imports System.IO; File.Exists(Path)####
|
||||||
|
'Private Function DirExists(ByVal DirectoryName As String) As Boolean
|
||||||
|
' On Error Resume Next
|
||||||
|
' DirExists = CBool(GetAttr(DirectoryName) And vbDirectory)
|
||||||
|
' On Error GoTo 0
|
||||||
|
'End Function
|
||||||
|
End Module
|
|
@ -0,0 +1,183 @@
|
||||||
|
Module Modul_Tools
|
||||||
|
|
||||||
|
'Methonden_Index:
|
||||||
|
'1.Datei- und Ordnerdialoge (Mindesanforderung: VB.Net 2005; Framework: 2.0)
|
||||||
|
' 1.1 FolderBrowserDialog
|
||||||
|
' 1.2 OpenFileDialog
|
||||||
|
' 1.3 SaveFileDialog
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
'###################################################################################################################
|
||||||
|
'############### 1.Datei- und Ordnerdialoge ########################################################################
|
||||||
|
'############### http://www.vb-fun.de/dotnet/tipps/tip0212.shtml ###################################################
|
||||||
|
'###################################################################################################################
|
||||||
|
|
||||||
|
'###################################################################################################################
|
||||||
|
'############### 1.1 FolderBrowserDialog ###########################################################################
|
||||||
|
'###################################################################################################################
|
||||||
|
|
||||||
|
Public Sub FolderBrowserDialog(ByRef sPath As String)
|
||||||
|
'Verändert die übergebene variable,
|
||||||
|
'wenn der benutzer durch "OK" den neuen Pfad bestätigt
|
||||||
|
|
||||||
|
Using fbd As New FolderBrowserDialog
|
||||||
|
With fbd
|
||||||
|
' Ordnervorschlag
|
||||||
|
.SelectedPath = "c:\"
|
||||||
|
' RootFolder verwendet man nur zum Eingrenzen auf eine _
|
||||||
|
' bestimmte Ordnerebene
|
||||||
|
' z.B.: .RootFolder = Environment.SpecialFolder.MyPictures
|
||||||
|
|
||||||
|
.Description = "Bitte einen Ordner auswählen."
|
||||||
|
' Button "Neuen Ordner erstellen" anzeigen
|
||||||
|
.ShowNewFolderButton = True
|
||||||
|
|
||||||
|
' Zeile ruft den Dialog auf, weitere Ausführung nur bei
|
||||||
|
' Resultat OK:
|
||||||
|
|
||||||
|
If .ShowDialog = Windows.Forms.DialogResult.OK Then
|
||||||
|
sPath = .SelectedPath
|
||||||
|
Else
|
||||||
|
'Nothing
|
||||||
|
End If
|
||||||
|
End With
|
||||||
|
End Using
|
||||||
|
End Sub 'FolderBrowserDialog
|
||||||
|
|
||||||
|
'###################################################################################################################
|
||||||
|
'############### 1.2 OpenFileDialog ################################################################################
|
||||||
|
'###################################################################################################################
|
||||||
|
|
||||||
|
'Private Sub Button1_Click(ByVal sender As Object, ByVal e As _
|
||||||
|
' EventArgs) Handles Button1.Click
|
||||||
|
' ' ### OpenFileDialog ###
|
||||||
|
' Dim txt As String = ""
|
||||||
|
' Using ofd As New OpenFileDialog
|
||||||
|
|
||||||
|
' With ofd
|
||||||
|
' ' Ordnervorschlag
|
||||||
|
' .InitialDirectory = Pfad
|
||||||
|
' .Title = "Wähle Datei zum öffnen"
|
||||||
|
' ' Dateivorschlag (falls sinnvoll)
|
||||||
|
' ' .FileName = "Datei.gif"
|
||||||
|
|
||||||
|
' ' Filter
|
||||||
|
' .Filter = TextBox2.Text
|
||||||
|
' ' boolsche Abfrage ob Mehrfachauswahl zulässig
|
||||||
|
' .Multiselect = Not ChkEinzel.Checked
|
||||||
|
|
||||||
|
' ' Zeile ruft den Dialog auf, weitere Ausführung nur bei
|
||||||
|
' ' Resultat OK:
|
||||||
|
' If .ShowDialog = Windows.Forms.DialogResult.OK Then
|
||||||
|
' If ChkEinzel.Checked = True Then
|
||||||
|
' ' Bei Einzelauswahl wertet man .FileName aus
|
||||||
|
' txt = .FileName & vbNewLine
|
||||||
|
|
||||||
|
' Else
|
||||||
|
' ' Bei möglicher Multiselektion wertet man
|
||||||
|
' ' das Array .FileNames aus
|
||||||
|
' For Each filename As String In .FileNames
|
||||||
|
' txt &= filename & vbNewLine
|
||||||
|
' Next
|
||||||
|
' End If
|
||||||
|
' ' Welcher Filter wurde verwendet?
|
||||||
|
' Dim idx As Integer = .FilterIndex
|
||||||
|
' txt &= "FilterIndex: " & idx.ToString & vbNewLine
|
||||||
|
' txt &= "Gewählter Filter: " & FilterDescription(.Filter, _
|
||||||
|
' idx) & vbNewLine
|
||||||
|
' txt &= "Multiselect: " & .Multiselect.ToString
|
||||||
|
' Else
|
||||||
|
' txt = "Abbruch durch Benutzer"
|
||||||
|
' End If
|
||||||
|
' End With
|
||||||
|
' End Using
|
||||||
|
' TextBox1.Text = txt
|
||||||
|
'End Sub 'OpenFileDialog
|
||||||
|
|
||||||
|
'###################################################################################################################
|
||||||
|
'############### 1.3 SaveFileDialog ################################################################################
|
||||||
|
'###################################################################################################################
|
||||||
|
|
||||||
|
'Private Sub Button2_Click(ByVal sender As Object, ByVal e As _
|
||||||
|
' EventArgs) Handles Button2.Click
|
||||||
|
' ' ### SaveFileDialog ###
|
||||||
|
' Dim txt As String
|
||||||
|
' Using sfd As New SaveFileDialog
|
||||||
|
|
||||||
|
' With sfd
|
||||||
|
' ' Ordnervorschlag
|
||||||
|
' .InitialDirectory = Pfad
|
||||||
|
' .Title = "Eingabe Datei zum speichern (Es wird hier nicht "_
|
||||||
|
' "wirklich überschrieben)"
|
||||||
|
' ' Dateivorschlag
|
||||||
|
' .FileName = "Datei.gif"
|
||||||
|
' ' Filter
|
||||||
|
' .Filter = TextBox2.Text
|
||||||
|
|
||||||
|
' ' Zeile ruft den Dialog auf, weitere Ausführung nur bei
|
||||||
|
' ' Resultat OK:
|
||||||
|
' If .ShowDialog = Windows.Forms.DialogResult.OK Then
|
||||||
|
' txt = .FileName & vbNewLine
|
||||||
|
|
||||||
|
' ' Welcher Filter wurde verwendet?
|
||||||
|
' Dim idx As Integer = .FilterIndex
|
||||||
|
' txt &= "FilterIndex: " & idx.ToString & vbNewLine
|
||||||
|
' txt &= "Gewählter Filter: " & FilterDescription(.Filter, _
|
||||||
|
' idx)
|
||||||
|
' Else
|
||||||
|
' txt = "Abbruch durch Benutzer"
|
||||||
|
' End If
|
||||||
|
' End With
|
||||||
|
' End Using
|
||||||
|
' TextBox1.Text = txt
|
||||||
|
'End Sub 'SaveFileDialog
|
||||||
|
|
||||||
|
'###################################################################################################################
|
||||||
|
'############### xxxxxxxxxxxxxxxxxxxxxxx ###########################################################################
|
||||||
|
'###################################################################################################################
|
||||||
|
|
||||||
|
'Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As _
|
||||||
|
' Object, ByVal e As EventArgs) _
|
||||||
|
' Handles ComboBox1.SelectedIndexChanged
|
||||||
|
' Dim strFilter As String
|
||||||
|
' Select Case ComboBox1.SelectedIndex
|
||||||
|
' Case 0
|
||||||
|
' ' Einfacher Filter
|
||||||
|
' strFilter = "Gif Bilddateien|*.gif"
|
||||||
|
' Case 1
|
||||||
|
' ' Erweiterter Filter
|
||||||
|
' strFilter = "JPEG Bilddateien|*.jpg|Gif Bilddateien|*.gif|Alle Dateien|*.*"
|
||||||
|
' Case Else
|
||||||
|
' ' Mehrere Dateierweiterungen in einer Auswahl
|
||||||
|
' strFilter = "Alle Bilddateien|*.jpg; *.jpeg; *.bmp; *.gif, *.tif|Alle Dateien|*.*"
|
||||||
|
' End Select
|
||||||
|
|
||||||
|
' TextBox2.Text = strFilter
|
||||||
|
'End Sub 'ComboBox1_SelectedIndexChanged
|
||||||
|
|
||||||
|
'Private Function FilterDescription(ByVal Filter As String, _
|
||||||
|
' ByVal Index As Integer) As String
|
||||||
|
' ' erstellt aus dem Filterstring die Bezeichnung
|
||||||
|
' Dim strArr() As String = Split(Filter, "|"), _
|
||||||
|
' MyList As New List(Of String)
|
||||||
|
' For i As Integer = 0 To strArr.GetUpperBound(0)
|
||||||
|
' If (i Mod 2 = 0) Then MyList.Add(strArr(i))
|
||||||
|
' Next
|
||||||
|
' Return MyList(Index - 1)
|
||||||
|
'End Function 'FilterDescription
|
||||||
|
|
||||||
|
'###################################################################################################################
|
||||||
|
'############### 1.Datei- und Ordnerdialoge ################################# ENDE #########################
|
||||||
|
'############### http://www.vb-fun.de/dotnet/tipps/tip0212.shtml ###################################################
|
||||||
|
'###################################################################################################################
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
End Module
|
|
@ -0,0 +1,38 @@
|
||||||
|
'------------------------------------------------------------------------------
|
||||||
|
' <auto-generated>
|
||||||
|
' This code was generated by a tool.
|
||||||
|
' Runtime Version:4.0.30319.1
|
||||||
|
'
|
||||||
|
' Changes to this file may cause incorrect behavior and will be lost if
|
||||||
|
' the code is regenerated.
|
||||||
|
' </auto-generated>
|
||||||
|
'------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
Option Strict On
|
||||||
|
Option Explicit On
|
||||||
|
|
||||||
|
|
||||||
|
Namespace My
|
||||||
|
|
||||||
|
'NOTE: This file is auto-generated; do not modify it directly. To make changes,
|
||||||
|
' or if you encounter build errors in this file, go to the Project Designer
|
||||||
|
' (go to Project Properties or double-click the My Project node in
|
||||||
|
' Solution Explorer), and make changes on the Application tab.
|
||||||
|
'
|
||||||
|
Partial Friend Class MyApplication
|
||||||
|
|
||||||
|
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
|
||||||
|
Public Sub New()
|
||||||
|
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
|
||||||
|
Me.IsSingleInstance = false
|
||||||
|
Me.EnableVisualStyles = true
|
||||||
|
Me.SaveMySettingsOnExit = true
|
||||||
|
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
|
||||||
|
Protected Overrides Sub OnCreateMainForm()
|
||||||
|
Me.MainForm = Global.SB_PictureTagger.Main
|
||||||
|
End Sub
|
||||||
|
End Class
|
||||||
|
End Namespace
|
|
@ -0,0 +1,10 @@
|
||||||
|
<?xml version="1.0" encoding="utf-16"?>
|
||||||
|
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
|
||||||
|
<MySubMain>true</MySubMain>
|
||||||
|
<MainForm>Main</MainForm>
|
||||||
|
<SingleInstance>false</SingleInstance>
|
||||||
|
<ShutdownMode>0</ShutdownMode>
|
||||||
|
<EnableVisualStyles>true</EnableVisualStyles>
|
||||||
|
<AuthenticationMode>0</AuthenticationMode>
|
||||||
|
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
|
||||||
|
</MyApplicationData>
|
|
@ -0,0 +1,35 @@
|
||||||
|
Imports System
|
||||||
|
Imports System.Reflection
|
||||||
|
Imports System.Runtime.InteropServices
|
||||||
|
|
||||||
|
' Allgemeine Informationen über eine Assembly werden über die folgenden
|
||||||
|
' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
|
||||||
|
' die mit einer Assembly verknüpft sind.
|
||||||
|
|
||||||
|
' Die Werte der Assemblyattribute überprüfen
|
||||||
|
|
||||||
|
<Assembly: AssemblyTitle("SB-PictureTagger")>
|
||||||
|
<Assembly: AssemblyDescription("")>
|
||||||
|
<Assembly: AssemblyCompany("Microsoft")>
|
||||||
|
<Assembly: AssemblyProduct("SB-PictureTagger")>
|
||||||
|
<Assembly: AssemblyCopyright("Copyright © Microsoft 2015")>
|
||||||
|
<Assembly: AssemblyTrademark("")>
|
||||||
|
|
||||||
|
<Assembly: ComVisible(False)>
|
||||||
|
|
||||||
|
'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird
|
||||||
|
<Assembly: Guid("7034cb7d-500d-4ac2-8b4f-ecff1ab5e20d")>
|
||||||
|
|
||||||
|
' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
|
||||||
|
'
|
||||||
|
' Hauptversion
|
||||||
|
' Nebenversion
|
||||||
|
' Buildnummer
|
||||||
|
' Revision
|
||||||
|
'
|
||||||
|
' Sie können alle Werte angeben oder die standardmäßigen Build- und Revisionsnummern
|
||||||
|
' übernehmen, indem Sie "*" eingeben:
|
||||||
|
' <Assembly: AssemblyVersion("1.0.*")>
|
||||||
|
|
||||||
|
<Assembly: AssemblyVersion("1.0.0.0")>
|
||||||
|
<Assembly: AssemblyFileVersion("1.0.0.0")>
|
|
@ -0,0 +1,62 @@
|
||||||
|
'------------------------------------------------------------------------------
|
||||||
|
' <auto-generated>
|
||||||
|
' This code was generated by a tool.
|
||||||
|
' Runtime Version:4.0.30319.1
|
||||||
|
'
|
||||||
|
' Changes to this file may cause incorrect behavior and will be lost if
|
||||||
|
' the code is regenerated.
|
||||||
|
' </auto-generated>
|
||||||
|
'------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
Option Strict On
|
||||||
|
Option Explicit On
|
||||||
|
|
||||||
|
|
||||||
|
Namespace My.Resources
|
||||||
|
|
||||||
|
'This class was auto-generated by the StronglyTypedResourceBuilder
|
||||||
|
'class via a tool like ResGen or Visual Studio.
|
||||||
|
'To add or remove a member, edit your .ResX file then rerun ResGen
|
||||||
|
'with the /str option, or rebuild your VS project.
|
||||||
|
'''<summary>
|
||||||
|
''' A strongly-typed resource class, for looking up localized strings, etc.
|
||||||
|
'''</summary>
|
||||||
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
|
||||||
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||||
|
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||||
|
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
|
||||||
|
Friend Module Resources
|
||||||
|
|
||||||
|
Private resourceMan As Global.System.Resources.ResourceManager
|
||||||
|
|
||||||
|
Private resourceCulture As Global.System.Globalization.CultureInfo
|
||||||
|
|
||||||
|
'''<summary>
|
||||||
|
''' Returns the cached ResourceManager instance used by this class.
|
||||||
|
'''</summary>
|
||||||
|
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||||
|
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
|
||||||
|
Get
|
||||||
|
If Object.ReferenceEquals(resourceMan, Nothing) Then
|
||||||
|
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("SB_PictureTagger.Resources", GetType(Resources).Assembly)
|
||||||
|
resourceMan = temp
|
||||||
|
End If
|
||||||
|
Return resourceMan
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
'''<summary>
|
||||||
|
''' Overrides the current thread's CurrentUICulture property for all
|
||||||
|
''' resource lookups using this strongly typed resource class.
|
||||||
|
'''</summary>
|
||||||
|
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||||
|
Friend Property Culture() As Global.System.Globalization.CultureInfo
|
||||||
|
Get
|
||||||
|
Return resourceCulture
|
||||||
|
End Get
|
||||||
|
Set(ByVal value As Global.System.Globalization.CultureInfo)
|
||||||
|
resourceCulture = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
End Module
|
||||||
|
End Namespace
|
|
@ -0,0 +1,117 @@
|
||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<root>
|
||||||
|
<!--
|
||||||
|
Microsoft ResX Schema
|
||||||
|
|
||||||
|
Version 2.0
|
||||||
|
|
||||||
|
The primary goals of this format is to allow a simple XML format
|
||||||
|
that is mostly human readable. The generation and parsing of the
|
||||||
|
various data types are done through the TypeConverter classes
|
||||||
|
associated with the data types.
|
||||||
|
|
||||||
|
Example:
|
||||||
|
|
||||||
|
... ado.net/XML headers & schema ...
|
||||||
|
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||||
|
<resheader name="version">2.0</resheader>
|
||||||
|
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||||
|
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||||
|
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||||
|
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||||
|
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||||
|
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||||
|
</data>
|
||||||
|
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||||
|
<comment>This is a comment</comment>
|
||||||
|
</data>
|
||||||
|
|
||||||
|
There are any number of "resheader" rows that contain simple
|
||||||
|
name/value pairs.
|
||||||
|
|
||||||
|
Each data row contains a name, and value. The row also contains a
|
||||||
|
type or mimetype. Type corresponds to a .NET class that support
|
||||||
|
text/value conversion through the TypeConverter architecture.
|
||||||
|
Classes that don't support this are serialized and stored with the
|
||||||
|
mimetype set.
|
||||||
|
|
||||||
|
The mimetype is used for serialized objects, and tells the
|
||||||
|
ResXResourceReader how to depersist the object. This is currently not
|
||||||
|
extensible. For a given mimetype the value must be set accordingly:
|
||||||
|
|
||||||
|
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||||
|
that the ResXResourceWriter will generate, however the reader can
|
||||||
|
read any of the formats listed below.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.binary.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Serialization.Formatters.Binary.BinaryFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.soap.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||||
|
value : The object must be serialized into a byte array
|
||||||
|
: using a System.ComponentModel.TypeConverter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
-->
|
||||||
|
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||||
|
<xsd:element name="root" msdata:IsDataSet="true">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:choice maxOccurs="unbounded">
|
||||||
|
<xsd:element name="metadata">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="assembly">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:attribute name="alias" type="xsd:string" />
|
||||||
|
<xsd:attribute name="name" type="xsd:string" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="data">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="resheader">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:choice>
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:schema>
|
||||||
|
<resheader name="resmimetype">
|
||||||
|
<value>text/microsoft-resx</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="version">
|
||||||
|
<value>2.0</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="reader">
|
||||||
|
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="writer">
|
||||||
|
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
</root>
|
|
@ -0,0 +1,73 @@
|
||||||
|
'------------------------------------------------------------------------------
|
||||||
|
' <auto-generated>
|
||||||
|
' This code was generated by a tool.
|
||||||
|
' Runtime Version:4.0.30319.1
|
||||||
|
'
|
||||||
|
' Changes to this file may cause incorrect behavior and will be lost if
|
||||||
|
' the code is regenerated.
|
||||||
|
' </auto-generated>
|
||||||
|
'------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
Option Strict On
|
||||||
|
Option Explicit On
|
||||||
|
|
||||||
|
|
||||||
|
Namespace My
|
||||||
|
|
||||||
|
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||||
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "10.0.0.0"), _
|
||||||
|
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||||
|
Partial Friend NotInheritable Class MySettings
|
||||||
|
Inherits Global.System.Configuration.ApplicationSettingsBase
|
||||||
|
|
||||||
|
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings)
|
||||||
|
|
||||||
|
#Region "My.Settings Auto-Save Functionality"
|
||||||
|
#If _MyType = "WindowsForms" Then
|
||||||
|
Private Shared addedHandler As Boolean
|
||||||
|
|
||||||
|
Private Shared addedHandlerLockObject As New Object
|
||||||
|
|
||||||
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||||
|
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
|
||||||
|
If My.Application.SaveMySettingsOnExit Then
|
||||||
|
My.Settings.Save()
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
#End If
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
Public Shared ReadOnly Property [Default]() As MySettings
|
||||||
|
Get
|
||||||
|
|
||||||
|
#If _MyType = "WindowsForms" Then
|
||||||
|
If Not addedHandler Then
|
||||||
|
SyncLock addedHandlerLockObject
|
||||||
|
If Not addedHandler Then
|
||||||
|
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
|
||||||
|
addedHandler = True
|
||||||
|
End If
|
||||||
|
End SyncLock
|
||||||
|
End If
|
||||||
|
#End If
|
||||||
|
Return defaultInstance
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
|
|
||||||
|
Namespace My
|
||||||
|
|
||||||
|
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
|
||||||
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||||
|
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
|
||||||
|
Friend Module MySettingsProperty
|
||||||
|
|
||||||
|
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
|
||||||
|
Friend ReadOnly Property Settings() As Global.SB_PictureTagger.My.MySettings
|
||||||
|
Get
|
||||||
|
Return Global.SB_PictureTagger.My.MySettings.Default
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
End Module
|
||||||
|
End Namespace
|
|
@ -0,0 +1,7 @@
|
||||||
|
<?xml version='1.0' encoding='utf-8'?>
|
||||||
|
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
|
||||||
|
<Profiles>
|
||||||
|
<Profile Name="(Default)" />
|
||||||
|
</Profiles>
|
||||||
|
<Settings />
|
||||||
|
</SettingsFile>
|
|
@ -0,0 +1,131 @@
|
||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<Project ToolsVersion="4.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
|
<PropertyGroup>
|
||||||
|
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||||
|
<Platform Condition=" '$(Platform)' == '' ">x86</Platform>
|
||||||
|
<ProductVersion>
|
||||||
|
</ProductVersion>
|
||||||
|
<SchemaVersion>2.0</SchemaVersion>
|
||||||
|
<ProjectGuid>{CF4DEB85-2B3F-40D8-9E21-F265316CF41A}</ProjectGuid>
|
||||||
|
<OutputType>WinExe</OutputType>
|
||||||
|
<StartupObject>SB_PictureTagger.My.MyApplication</StartupObject>
|
||||||
|
<RootNamespace>SB_PictureTagger</RootNamespace>
|
||||||
|
<AssemblyName>SB-PictureTagger</AssemblyName>
|
||||||
|
<FileAlignment>512</FileAlignment>
|
||||||
|
<MyType>WindowsForms</MyType>
|
||||||
|
<TargetFrameworkVersion>v4.0</TargetFrameworkVersion>
|
||||||
|
<TargetFrameworkProfile>Client</TargetFrameworkProfile>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|x86' ">
|
||||||
|
<PlatformTarget>x86</PlatformTarget>
|
||||||
|
<DebugSymbols>true</DebugSymbols>
|
||||||
|
<DebugType>full</DebugType>
|
||||||
|
<DefineDebug>true</DefineDebug>
|
||||||
|
<DefineTrace>true</DefineTrace>
|
||||||
|
<OutputPath>bin\Debug\</OutputPath>
|
||||||
|
<DocumentationFile>SB-PictureTagger.xml</DocumentationFile>
|
||||||
|
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|x86' ">
|
||||||
|
<PlatformTarget>x86</PlatformTarget>
|
||||||
|
<DebugType>pdbonly</DebugType>
|
||||||
|
<DefineDebug>false</DefineDebug>
|
||||||
|
<DefineTrace>true</DefineTrace>
|
||||||
|
<Optimize>true</Optimize>
|
||||||
|
<OutputPath>bin\Release\</OutputPath>
|
||||||
|
<DocumentationFile>SB-PictureTagger.xml</DocumentationFile>
|
||||||
|
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionExplicit>On</OptionExplicit>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionCompare>Binary</OptionCompare>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionStrict>Off</OptionStrict>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionInfer>On</OptionInfer>
|
||||||
|
</PropertyGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<Reference Include="System" />
|
||||||
|
<Reference Include="System.Data" />
|
||||||
|
<Reference Include="System.Deployment" />
|
||||||
|
<Reference Include="System.Drawing" />
|
||||||
|
<Reference Include="System.Windows.Forms" />
|
||||||
|
<Reference Include="System.Xml" />
|
||||||
|
<Reference Include="System.Core" />
|
||||||
|
<Reference Include="System.Xml.Linq" />
|
||||||
|
<Reference Include="System.Data.DataSetExtensions" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<Import Include="Microsoft.VisualBasic" />
|
||||||
|
<Import Include="System" />
|
||||||
|
<Import Include="System.Collections" />
|
||||||
|
<Import Include="System.Collections.Generic" />
|
||||||
|
<Import Include="System.Data" />
|
||||||
|
<Import Include="System.Drawing" />
|
||||||
|
<Import Include="System.Diagnostics" />
|
||||||
|
<Import Include="System.Windows.Forms" />
|
||||||
|
<Import Include="System.Linq" />
|
||||||
|
<Import Include="System.Xml.Linq" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<Compile Include="Form_SB-PictureTagger.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Form_SB-PictureTagger.Designer.vb">
|
||||||
|
<DependentUpon>Form_SB-PictureTagger.vb</DependentUpon>
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="My Project\AssemblyInfo.vb" />
|
||||||
|
<Compile Include="My Project\Application.Designer.vb">
|
||||||
|
<AutoGen>True</AutoGen>
|
||||||
|
<DependentUpon>Application.myapp</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="My Project\Resources.Designer.vb">
|
||||||
|
<AutoGen>True</AutoGen>
|
||||||
|
<DesignTime>True</DesignTime>
|
||||||
|
<DependentUpon>Resources.resx</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="My Project\Settings.Designer.vb">
|
||||||
|
<AutoGen>True</AutoGen>
|
||||||
|
<DependentUpon>Settings.settings</DependentUpon>
|
||||||
|
<DesignTimeSharedInput>True</DesignTimeSharedInput>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Modul_SB-PictureTagger.vb" />
|
||||||
|
<Compile Include="Modul_Tools.vb" />
|
||||||
|
<Compile Include="TaggedIMG.vb" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<EmbeddedResource Include="Form_SB-PictureTagger.resx">
|
||||||
|
<DependentUpon>Form_SB-PictureTagger.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="My Project\Resources.resx">
|
||||||
|
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
|
||||||
|
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
|
||||||
|
<CustomToolNamespace>My.Resources</CustomToolNamespace>
|
||||||
|
<SubType>Designer</SubType>
|
||||||
|
</EmbeddedResource>
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<None Include="My Project\Application.myapp">
|
||||||
|
<Generator>MyApplicationCodeGenerator</Generator>
|
||||||
|
<LastGenOutput>Application.Designer.vb</LastGenOutput>
|
||||||
|
</None>
|
||||||
|
<None Include="My Project\Settings.settings">
|
||||||
|
<Generator>SettingsSingleFileGenerator</Generator>
|
||||||
|
<CustomToolNamespace>My</CustomToolNamespace>
|
||||||
|
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
|
||||||
|
</None>
|
||||||
|
</ItemGroup>
|
||||||
|
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
|
||||||
|
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
|
||||||
|
Other similar extension points exist, see Microsoft.Common.targets.
|
||||||
|
<Target Name="BeforeBuild">
|
||||||
|
</Target>
|
||||||
|
<Target Name="AfterBuild">
|
||||||
|
</Target>
|
||||||
|
-->
|
||||||
|
</Project>
|
|
@ -0,0 +1,32 @@
|
||||||
|
'Public Class TaggedIMG2
|
||||||
|
|
||||||
|
' 'Public Class Mark
|
||||||
|
' ' Dim Position As String
|
||||||
|
' ' Dim ID As String
|
||||||
|
' ' Dim Description As String
|
||||||
|
' 'End Class 'Mark
|
||||||
|
' Public Class Place
|
||||||
|
' Dim Adresse
|
||||||
|
' Public Description
|
||||||
|
' Public GPS
|
||||||
|
' End Class
|
||||||
|
|
||||||
|
' Public Class Mark(
|
||||||
|
' Public Mark_PositionX() As Long
|
||||||
|
' Public Mark_PositionY() As Long
|
||||||
|
' Public Mark_Radius() As Long
|
||||||
|
' Public Mark_Description() As String
|
||||||
|
' End Class
|
||||||
|
|
||||||
|
' Public ID As Long
|
||||||
|
' Public Title As String
|
||||||
|
' Public Description As String
|
||||||
|
' Public Time As String
|
||||||
|
' Public Image As Image
|
||||||
|
' Public Path As String
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
'End Class
|
Loading…
Reference in New Issue