AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

MS kleine Dinge

Browse Source
This commit is contained in:
SchreiberM 2020-11-09 17:38:43 +01:00
parent 88edadc816
commit 9f89961957
11 changed files with 267 additions and 143 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
GUIs.ZooFlow/My Project/Resources.Designer.vb generated
View File

@ -120,6 +120,26 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property _2_ZOO_FLOW_Abo() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("2_ZOO_FLOW_Abo", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property _2_ZOO_FLOW_Abo_MouseOver() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("2_ZOO_FLOW_Abo_MouseOver", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary> '''</summary>

36
GUIs.ZooFlow/My Project/Resources.resx
View File

@ -142,40 +142,46 @@
<data name="CW_klein" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="CW_klein" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CW_klein.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\CW_klein.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="CW_GEFUNDEN_klein" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CW_GEFUNDEN_klein.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="3_PERSON_INAKTIV_ZOO" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="3_PERSON_INAKTIV_ZOO" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\3_PERSON_INAKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\3_PERSON_INAKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="ZOO_FLOW_ sysicon_256" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="ZOO_FLOW_ sysicon_256" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ZOO_FLOW_ sysicon_256.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\ZOO_FLOW_ sysicon_256.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="Checked-outforEdit_13297" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="Editdatasetwithdesigner_8449" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Checked-outforEdit_13297.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\Editdatasetwithdesigner_8449.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="DD_Icons_ICO_PMANAGER_128px" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\DD_Icons_ICO_PMANAGER_128px.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="4_GLOBIX_INAKTIV_ZOO" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="4_GLOBIX_INAKTIV_ZOO" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\4_GLOBIX_INAKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\4_GLOBIX_INAKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="Editdatasetwithdesigner_8449" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="DD_Icons_ICO_PMANAGER_128px" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Editdatasetwithdesigner_8449.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\DD_Icons_ICO_PMANAGER_128px.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="Checked-outforEdit_Color_13297" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="Checked-outforEdit_Color_13297" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Checked-outforEdit_Color_13297.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\Checked-outforEdit_Color_13297.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="1_LOGO_ZOO_FLOW_DROP3" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\1_LOGO_ZOO_FLOW_DROP3.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="1_LOGO_ZOO_FLOW1" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="1_LOGO_ZOO_FLOW1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\1_LOGO_ZOO_FLOW1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\1_LOGO_ZOO_FLOW1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="CW_GEFUNDEN_klein" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CW_GEFUNDEN_klein.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="StatusAnnotations_Stop_16xLG_color" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\StatusAnnotations_Stop_16xLG_color.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="1_LOGO_ZOO_FLOW_DROP2" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="1_LOGO_ZOO_FLOW_DROP2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\1_LOGO_ZOO_FLOW_DROP2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\1_LOGO_ZOO_FLOW_DROP2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="1_LOGO_ZOO_FLOW_DROP3" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="Checked-outforEdit_13297" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\1_LOGO_ZOO_FLOW_DROP3.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\Checked-outforEdit_13297.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="StatusAnnotations_Stop_16xLG_color" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\StatusAnnotations_Stop_16xLG_color.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="2_ZOO_FLOW_Abo" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\2_ZOO_FLOW_Abo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="2_ZOO_FLOW_Abo_MouseOver" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\2_ZOO_FLOW_Abo_MouseOver.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
</root> </root>

BIN
GUIs.ZooFlow/Resources/2_ZOO_FLOW_Abo.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 502 B

BIN
GUIs.ZooFlow/Resources/2_ZOO_FLOW_Abo_MouseOver.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 516 B

6
GUIs.ZooFlow/ZooFlow.vbproj
View File

@ -302,6 +302,12 @@
<ItemGroup> <ItemGroup>
<None Include="Resources\1_LOGO_ZOO_FLOW_DROP3.png" /> <None Include="Resources\1_LOGO_ZOO_FLOW_DROP3.png" />
</ItemGroup> </ItemGroup>
<ItemGroup>
<None Include="Resources\2_ZOO_FLOW_Abo.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\2_ZOO_FLOW_Abo_MouseOver.png" />
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" /> <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it. <!-- 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. Other similar extension points exist, see Microsoft.Common.targets.

120
GUIs.ZooFlow/frmFlowForm.Designer.vb generated
View File

@ -27,22 +27,28 @@ Partial Class frmFlowForm
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFlowForm)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFlowForm))
Me.NotifyIcon = New System.Windows.Forms.NotifyIcon(Me.components) Me.NotifyIcon = New System.Windows.Forms.NotifyIcon(Me.components)
Me.ContextMenuSystray = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuSystray = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.UserKonfigurationToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.VerwaltungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.VerwaltungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ZooFlowBeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ZooFlowBeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ContextMenuForm = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuForm = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.AlleAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.AlleAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.TimerRefreshData = New System.Windows.Forms.Timer(Me.components) Me.TimerRefreshData = New System.Windows.Forms.Timer(Me.components)
Me.PictureBoxAbo = New System.Windows.Forms.PictureBox()
Me.PictureBox1 = New System.Windows.Forms.PictureBox() Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.PictureBoxGlobix = New System.Windows.Forms.PictureBox() Me.PictureBoxGlobix = New System.Windows.Forms.PictureBox()
Me.PictureBoxPM = New System.Windows.Forms.PictureBox() Me.PictureBoxPM = New System.Windows.Forms.PictureBox()
Me.PictureBoxSearch = New System.Windows.Forms.PictureBox() Me.PictureBoxSearch = New System.Windows.Forms.PictureBox()
Me.ContextMenuSystray.SuspendLayout Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
Me.ContextMenuForm.SuspendLayout Me.DatenbankverbindungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
CType(Me.PictureBox1,System.ComponentModel.ISupportInitialize).BeginInit Me.ContextMenuSystray.SuspendLayout()
CType(Me.PictureBoxGlobix,System.ComponentModel.ISupportInitialize).BeginInit Me.ContextMenuForm.SuspendLayout()
CType(Me.PictureBoxPM,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.PictureBoxAbo, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBoxSearch,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout CType(Me.PictureBoxGlobix, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBoxPM, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBoxSearch, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
' '
'SplashScreenManager 'SplashScreenManager
' '
@ -51,26 +57,38 @@ Partial Class frmFlowForm
'NotifyIcon 'NotifyIcon
' '
Me.NotifyIcon.ContextMenuStrip = Me.ContextMenuSystray Me.NotifyIcon.ContextMenuStrip = Me.ContextMenuSystray
Me.NotifyIcon.Icon = CType(resources.GetObject("NotifyIcon.Icon"),System.Drawing.Icon) Me.NotifyIcon.Icon = CType(resources.GetObject("NotifyIcon.Icon"), System.Drawing.Icon)
Me.NotifyIcon.Text = "ZooFlow by Digital Data" Me.NotifyIcon.Text = "ZooFlow by Digital Data"
Me.NotifyIcon.Visible = true Me.NotifyIcon.Visible = True
' '
'ContextMenuSystray 'ContextMenuSystray
' '
Me.ContextMenuSystray.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.VerwaltungToolStripMenuItem, Me.ZooFlowBeendenToolStripMenuItem}) Me.ContextMenuSystray.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.UserKonfigurationToolStripMenuItem, Me.ToolStripSeparator1, Me.VerwaltungToolStripMenuItem, Me.ZooFlowBeendenToolStripMenuItem})
Me.ContextMenuSystray.Name = "ContextMenuSystray" Me.ContextMenuSystray.Name = "ContextMenuSystray"
Me.ContextMenuSystray.Size = New System.Drawing.Size(170, 48) Me.ContextMenuSystray.Size = New System.Drawing.Size(174, 76)
'
'UserKonfigurationToolStripMenuItem
'
Me.UserKonfigurationToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DatenbankverbindungToolStripMenuItem})
Me.UserKonfigurationToolStripMenuItem.Name = "UserKonfigurationToolStripMenuItem"
Me.UserKonfigurationToolStripMenuItem.Size = New System.Drawing.Size(173, 22)
Me.UserKonfigurationToolStripMenuItem.Text = "User Konfiguration"
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(170, 6)
' '
'VerwaltungToolStripMenuItem 'VerwaltungToolStripMenuItem
' '
Me.VerwaltungToolStripMenuItem.Name = "VerwaltungToolStripMenuItem" Me.VerwaltungToolStripMenuItem.Name = "VerwaltungToolStripMenuItem"
Me.VerwaltungToolStripMenuItem.Size = New System.Drawing.Size(169, 22) Me.VerwaltungToolStripMenuItem.Size = New System.Drawing.Size(173, 22)
Me.VerwaltungToolStripMenuItem.Text = "Verwaltung" Me.VerwaltungToolStripMenuItem.Text = "Verwaltung"
' '
'ZooFlowBeendenToolStripMenuItem 'ZooFlowBeendenToolStripMenuItem
' '
Me.ZooFlowBeendenToolStripMenuItem.Name = "ZooFlowBeendenToolStripMenuItem" Me.ZooFlowBeendenToolStripMenuItem.Name = "ZooFlowBeendenToolStripMenuItem"
Me.ZooFlowBeendenToolStripMenuItem.Size = New System.Drawing.Size(169, 22) Me.ZooFlowBeendenToolStripMenuItem.Size = New System.Drawing.Size(173, 22)
Me.ZooFlowBeendenToolStripMenuItem.Text = "ZooFlow beenden" Me.ZooFlowBeendenToolStripMenuItem.Text = "ZooFlow beenden"
' '
'ContextMenuForm 'ContextMenuForm
@ -85,6 +103,16 @@ Partial Class frmFlowForm
Me.AlleAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(144, 22) Me.AlleAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(144, 22)
Me.AlleAnzeigenToolStripMenuItem.Text = "Alle anzeigen" Me.AlleAnzeigenToolStripMenuItem.Text = "Alle anzeigen"
' '
'PictureBoxAbo
'
Me.PictureBoxAbo.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources._2_ZOO_FLOW_Abo
Me.PictureBoxAbo.Location = New System.Drawing.Point(203, 69)
Me.PictureBoxAbo.Name = "PictureBoxAbo"
Me.PictureBoxAbo.Size = New System.Drawing.Size(40, 36)
Me.PictureBoxAbo.TabIndex = 11
Me.PictureBoxAbo.TabStop = False
Me.ToolTip1.SetToolTip(Me.PictureBoxAbo, "Abonnierte Suchen")
'
'PictureBox1 'PictureBox1
' '
Me.PictureBox1.Dock = System.Windows.Forms.DockStyle.Left Me.PictureBox1.Dock = System.Windows.Forms.DockStyle.Left
@ -93,74 +121,85 @@ Partial Class frmFlowForm
Me.PictureBox1.Name = "PictureBox1" Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(197, 150) Me.PictureBox1.Size = New System.Drawing.Size(197, 150)
Me.PictureBox1.TabIndex = 10 Me.PictureBox1.TabIndex = 10
Me.PictureBox1.TabStop = false Me.PictureBox1.TabStop = False
Me.ToolTip1.SetToolTip(Me.PictureBox1, "Drag and Drop files here")
' '
'PictureBoxGlobix 'PictureBoxGlobix
' '
Me.PictureBoxGlobix.BackColor = System.Drawing.Color.Transparent Me.PictureBoxGlobix.BackColor = System.Drawing.Color.Transparent
Me.PictureBoxGlobix.Image = CType(resources.GetObject("PictureBoxGlobix.Image"),System.Drawing.Image) Me.PictureBoxGlobix.Image = CType(resources.GetObject("PictureBoxGlobix.Image"), System.Drawing.Image)
Me.PictureBoxGlobix.Location = New System.Drawing.Point(448, 23) Me.PictureBoxGlobix.Location = New System.Drawing.Point(448, 23)
Me.PictureBoxGlobix.Name = "PictureBoxGlobix" Me.PictureBoxGlobix.Name = "PictureBoxGlobix"
Me.PictureBoxGlobix.Size = New System.Drawing.Size(90, 101) Me.PictureBoxGlobix.Size = New System.Drawing.Size(90, 101)
Me.PictureBoxGlobix.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom Me.PictureBoxGlobix.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.PictureBoxGlobix.TabIndex = 9 Me.PictureBoxGlobix.TabIndex = 9
Me.PictureBoxGlobix.TabStop = false Me.PictureBoxGlobix.TabStop = False
Me.PictureBoxGlobix.Visible = false Me.PictureBoxGlobix.Visible = False
' '
'PictureBoxPM 'PictureBoxPM
' '
Me.PictureBoxPM.BackColor = System.Drawing.Color.Transparent Me.PictureBoxPM.BackColor = System.Drawing.Color.Transparent
Me.PictureBoxPM.Image = CType(resources.GetObject("PictureBoxPM.Image"),System.Drawing.Image) Me.PictureBoxPM.Image = CType(resources.GetObject("PictureBoxPM.Image"), System.Drawing.Image)
Me.PictureBoxPM.Location = New System.Drawing.Point(335, 23) Me.PictureBoxPM.Location = New System.Drawing.Point(335, 23)
Me.PictureBoxPM.Name = "PictureBoxPM" Me.PictureBoxPM.Name = "PictureBoxPM"
Me.PictureBoxPM.Size = New System.Drawing.Size(90, 101) Me.PictureBoxPM.Size = New System.Drawing.Size(90, 101)
Me.PictureBoxPM.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom Me.PictureBoxPM.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.PictureBoxPM.TabIndex = 4 Me.PictureBoxPM.TabIndex = 4
Me.PictureBoxPM.TabStop = false Me.PictureBoxPM.TabStop = False
Me.PictureBoxPM.Visible = false Me.ToolTip1.SetToolTip(Me.PictureBoxPM, "ProcessManager starten")
Me.PictureBoxPM.Visible = False
' '
'PictureBoxSearch 'PictureBoxSearch
' '
Me.PictureBoxSearch.BackColor = System.Drawing.Color.Transparent Me.PictureBoxSearch.BackColor = System.Drawing.Color.Transparent
Me.PictureBoxSearch.Image = CType(resources.GetObject("PictureBoxSearch.Image"),System.Drawing.Image) Me.PictureBoxSearch.Image = CType(resources.GetObject("PictureBoxSearch.Image"), System.Drawing.Image)
Me.PictureBoxSearch.Location = New System.Drawing.Point(220, 23) Me.PictureBoxSearch.Location = New System.Drawing.Point(220, 23)
Me.PictureBoxSearch.Name = "PictureBoxSearch" Me.PictureBoxSearch.Name = "PictureBoxSearch"
Me.PictureBoxSearch.Size = New System.Drawing.Size(90, 101) Me.PictureBoxSearch.Size = New System.Drawing.Size(90, 101)
Me.PictureBoxSearch.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom Me.PictureBoxSearch.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.PictureBoxSearch.TabIndex = 3 Me.PictureBoxSearch.TabIndex = 3
Me.PictureBoxSearch.TabStop = false Me.PictureBoxSearch.TabStop = False
Me.ToolTip1.SetToolTip(Me.PictureBoxSearch, "ZooFlow Suche")
'
'DatenbankverbindungToolStripMenuItem
'
Me.DatenbankverbindungToolStripMenuItem.Name = "DatenbankverbindungToolStripMenuItem"
Me.DatenbankverbindungToolStripMenuItem.Size = New System.Drawing.Size(192, 22)
Me.DatenbankverbindungToolStripMenuItem.Text = "Datenbankverbindung"
' '
'frmFlowForm 'frmFlowForm
' '
Me.AllowDrop = true Me.AllowDrop = True
Me.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(255,Byte),Integer), CType(CType(214,Byte),Integer), CType(CType(49,Byte),Integer)) Me.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(49, Byte), Integer))
Me.Appearance.ForeColor = System.Drawing.SystemColors.ControlText Me.Appearance.ForeColor = System.Drawing.SystemColors.ControlText
Me.Appearance.Options.UseBackColor = true Me.Appearance.Options.UseBackColor = True
Me.Appearance.Options.UseFont = true Me.Appearance.Options.UseFont = True
Me.Appearance.Options.UseForeColor = true Me.Appearance.Options.UseForeColor = True
Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(577, 150) Me.ClientSize = New System.Drawing.Size(577, 150)
Me.ContextMenuStrip = Me.ContextMenuForm Me.ContextMenuStrip = Me.ContextMenuForm
Me.Controls.Add(Me.PictureBoxAbo)
Me.Controls.Add(Me.PictureBox1) Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.PictureBoxGlobix) Me.Controls.Add(Me.PictureBoxGlobix)
Me.Controls.Add(Me.PictureBoxPM) Me.Controls.Add(Me.PictureBoxPM)
Me.Controls.Add(Me.PictureBoxSearch) Me.Controls.Add(Me.PictureBoxSearch)
Me.DoubleBuffered = true Me.DoubleBuffered = True
Me.Font = New System.Drawing.Font("Tahoma", 8.25!) Me.Font = New System.Drawing.Font("Tahoma", 8.25!)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Name = "frmFlowForm" Me.Name = "frmFlowForm"
Me.Text = "frmFlowForm_Test1" Me.Text = "frmFlowForm_Test1"
Me.TopMost = true Me.TopMost = True
Me.ContextMenuSystray.ResumeLayout(false) Me.ContextMenuSystray.ResumeLayout(False)
Me.ContextMenuForm.ResumeLayout(false) Me.ContextMenuForm.ResumeLayout(False)
CType(Me.PictureBox1,System.ComponentModel.ISupportInitialize).EndInit CType(Me.PictureBoxAbo, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBoxGlobix,System.ComponentModel.ISupportInitialize).EndInit CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBoxPM,System.ComponentModel.ISupportInitialize).EndInit CType(Me.PictureBoxGlobix, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBoxSearch,System.ComponentModel.ISupportInitialize).EndInit CType(Me.PictureBoxPM, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(false) CType(Me.PictureBoxSearch, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub End Sub
Friend WithEvents PictureBoxSearch As PictureBox Friend WithEvents PictureBoxSearch As PictureBox
Friend WithEvents PictureBoxPM As PictureBox Friend WithEvents PictureBoxPM As PictureBox
Friend WithEvents PictureBoxGlobix As PictureBox Friend WithEvents PictureBoxGlobix As PictureBox
@ -172,4 +211,9 @@ End Sub
Friend WithEvents AlleAnzeigenToolStripMenuItem As ToolStripMenuItem Friend WithEvents AlleAnzeigenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents PictureBox1 As PictureBox Friend WithEvents PictureBox1 As PictureBox
Friend WithEvents TimerRefreshData As Timer Friend WithEvents TimerRefreshData As Timer
Friend WithEvents PictureBoxAbo As PictureBox
Friend WithEvents ToolTip1 As ToolTip
Friend WithEvents UserKonfigurationToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
Friend WithEvents DatenbankverbindungToolStripMenuItem As ToolStripMenuItem
End Class End Class

3
GUIs.ZooFlow/frmFlowForm.resx
View File

@ -1962,6 +1962,9 @@
<metadata name="TimerRefreshData.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TimerRefreshData.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>615, 17</value> <value>615, 17</value>
</metadata> </metadata>
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>764, 17</value>
</metadata>
<data name="PictureBoxGlobix.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="PictureBoxGlobix.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAAFAAAABQCAYAAACOEfKtAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAL iVBORw0KGgoAAAANSUhEUgAAAFAAAABQCAYAAACOEfKtAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAL

45
GUIs.ZooFlow/frmFlowForm.vb
View File

@ -144,10 +144,12 @@ Public Class frmFlowForm
Private Sub PictureBoxSearch_Click(sender As Object, e As EventArgs) Handles PictureBoxSearch.Click Private Sub PictureBoxSearch_Click(sender As Object, e As EventArgs) Handles PictureBoxSearch.Click
Cursor = Cursors.WaitCursor Cursor = Cursors.WaitCursor
If TheFormIsAlreadyLoaded("frmSearchStart") Then
Cursor = Cursors.Default
Exit Sub
End If
Dim oForm As New frmSearchStart(DTIDB_SEARCHES) Dim oForm As New frmSearchStart(DTIDB_SEARCHES)
oForm.Show() oForm.Show()
Dim oForm2 As New frmPreSearch()
oForm2.Show()
Cursor = Cursors.Default Cursor = Cursors.Default
End Sub End Sub
Private Sub PictureBoxSearch_MouseEnter(sender As Object, e As EventArgs) Handles PictureBoxSearch.MouseEnter Private Sub PictureBoxSearch_MouseEnter(sender As Object, e As EventArgs) Handles PictureBoxSearch.MouseEnter
@ -194,4 +196,43 @@ Public Class frmFlowForm
Private Sub frmFlowForm_DragLeave(sender As Object, e As EventArgs) Handles Me.DragLeave Private Sub frmFlowForm_DragLeave(sender As Object, e As EventArgs) Handles Me.DragLeave
PictureBox1.Image = My.Resources._1_LOGO_ZOO_FLOW1 PictureBox1.Image = My.Resources._1_LOGO_ZOO_FLOW1
End Sub End Sub
Private Sub PictureBoxAbo_MouseEnter(sender As Object, e As EventArgs) Handles PictureBoxAbo.MouseEnter
PictureBoxAbo.Image = My.Resources._2_ZOO_FLOW_Abo_MouseOver
End Sub
Private Sub PictureBoxAbo_MouseLeave(sender As Object, e As EventArgs) Handles PictureBoxAbo.MouseLeave
PictureBoxAbo.Image = My.Resources._2_ZOO_FLOW_Abo
End Sub
Private Sub PictureBoxAbo_Click(sender As Object, e As EventArgs) Handles PictureBoxAbo.Click
Cursor = Cursors.WaitCursor
If TheFormIsAlreadyLoaded("frmPreSearch") Then
Cursor = Cursors.Default
Exit Sub
End If
Dim oForm2 As New frmPreSearch()
oForm2.Show()
Cursor = Cursors.Default
End Sub
Private Function TheFormIsAlreadyLoaded(ByVal pFormName As String) As Boolean
TheFormIsAlreadyLoaded = False
For Each frm As Form In Application.OpenForms
If frm.Name.Equals(pFormName) Then
TheFormIsAlreadyLoaded = True
Exit Function
End If
Next
End Function
Private Sub UserKonfigurationToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UserKonfigurationToolStripMenuItem.Click
End Sub
Private Sub DatenbankverbindungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DatenbankverbindungToolStripMenuItem.Click
frmConfigDatabase.ShowDialog()
End Sub
End Class End Class

137
GUIs.ZooFlow/frmSearchStart.Designer.vb generated
View File

@ -65,24 +65,26 @@ Partial Class frmSearchStart
Me.ContextMenuStripMultiselect = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuStripMultiselect = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.MehrfachauswahlAktivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.MehrfachauswahlAktivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.MehrfachauswahlInaktivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.MehrfachauswahlInaktivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton() Me.DateEdit1 = New DevExpress.XtraEditors.DateEdit()
CType(Me.RibbonControl1,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RepositoryItemRadioGroup1,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.RepositoryItemRadioGroup1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RepositoryItemComboBox1,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.RepositoryItemComboBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout Me.Panel1.SuspendLayout()
CType(Me.XtraTabControl1,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabControl1.SuspendLayout Me.XtraTabControl1.SuspendLayout()
CType(Me.GridControlSerchTerms,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.GridControlSerchTerms, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuStripSearchTerms.SuspendLayout Me.ContextMenuStripSearchTerms.SuspendLayout()
CType(Me.GridViewSearchTerms,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.GridViewSearchTerms, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.SplitContainerControlSearch,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.SplitContainerControlSearch, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerControlSearch.SuspendLayout Me.SplitContainerControlSearch.SuspendLayout()
Me.ContextMenuStripMultiselect.SuspendLayout Me.ContextMenuStripMultiselect.SuspendLayout()
Me.SuspendLayout CType(Me.DateEdit1.Properties.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DateEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
' '
'RibbonControl1 'RibbonControl1
' '
Me.RibbonControl1.AutoSizeItems = true Me.RibbonControl1.AutoSizeItems = True
Me.RibbonControl1.ExpandCollapseItem.Id = 0 Me.RibbonControl1.ExpandCollapseItem.Id = 0
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItemNewSearch, Me.BarButtonItem2, Me.BarHeaderItem1, Me.BarEditItem1, Me.BarButtonItem1, Me.BarButtonItem3, Me.BarEditItem2, Me.BarStaticItemInfo, Me.BarButtonItem4}) Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItemNewSearch, Me.BarButtonItem2, Me.BarHeaderItem1, Me.BarEditItem1, Me.BarButtonItem1, Me.BarButtonItem3, Me.BarEditItem2, Me.BarStaticItemInfo, Me.BarButtonItem4})
Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
@ -98,14 +100,14 @@ Partial Class frmSearchStart
' '
Me.BarButtonItemNewSearch.Caption = "Neue Suche" Me.BarButtonItemNewSearch.Caption = "Neue Suche"
Me.BarButtonItemNewSearch.Id = 1 Me.BarButtonItemNewSearch.Id = 1
Me.BarButtonItemNewSearch.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItemNewSearch.ImageOptions.SvgImage"),DevExpress.Utils.Svg.SvgImage) Me.BarButtonItemNewSearch.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItemNewSearch.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItemNewSearch.Name = "BarButtonItemNewSearch" Me.BarButtonItemNewSearch.Name = "BarButtonItemNewSearch"
' '
'BarButtonItem2 'BarButtonItem2
' '
Me.BarButtonItem2.Caption = "Suchprofil speichern" Me.BarButtonItem2.Caption = "Suchprofil speichern"
Me.BarButtonItem2.Id = 2 Me.BarButtonItem2.Id = 2
Me.BarButtonItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"),DevExpress.Utils.Svg.SvgImage) Me.BarButtonItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem2.Name = "BarButtonItem2" Me.BarButtonItem2.Name = "BarButtonItem2"
Me.BarButtonItem2.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText Me.BarButtonItem2.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText
' '
@ -130,7 +132,7 @@ Partial Class frmSearchStart
' '
Me.BarButtonItem1.Caption = "Suche leeren" Me.BarButtonItem1.Caption = "Suche leeren"
Me.BarButtonItem1.Id = 5 Me.BarButtonItem1.Id = 5
Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"),DevExpress.Utils.Svg.SvgImage) Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem1.Name = "BarButtonItem1" Me.BarButtonItem1.Name = "BarButtonItem1"
' '
'BarButtonItem3 'BarButtonItem3
@ -144,12 +146,12 @@ Partial Class frmSearchStart
Me.BarEditItem2.Caption = "Suchen" Me.BarEditItem2.Caption = "Suchen"
Me.BarEditItem2.Edit = Me.RepositoryItemComboBox1 Me.BarEditItem2.Edit = Me.RepositoryItemComboBox1
Me.BarEditItem2.Id = 7 Me.BarEditItem2.Id = 7
Me.BarEditItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarEditItem2.ImageOptions.SvgImage"),DevExpress.Utils.Svg.SvgImage) Me.BarEditItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarEditItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarEditItem2.Name = "BarEditItem2" Me.BarEditItem2.Name = "BarEditItem2"
' '
'RepositoryItemComboBox1 'RepositoryItemComboBox1
' '
Me.RepositoryItemComboBox1.AutoHeight = false Me.RepositoryItemComboBox1.AutoHeight = False
Me.RepositoryItemComboBox1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) Me.RepositoryItemComboBox1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
Me.RepositoryItemComboBox1.Name = "RepositoryItemComboBox1" Me.RepositoryItemComboBox1.Name = "RepositoryItemComboBox1"
' '
@ -160,9 +162,9 @@ Partial Class frmSearchStart
' '
'BarButtonItem4 'BarButtonItem4
' '
Me.BarButtonItem4.Caption = "Suche starten" Me.BarButtonItem4.Caption = "Suche starten (F2)"
Me.BarButtonItem4.Id = 9 Me.BarButtonItem4.Id = 9
Me.BarButtonItem4.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem4.ImageOptions.SvgImage"),DevExpress.Utils.Svg.SvgImage) Me.BarButtonItem4.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem4.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem4.Name = "BarButtonItem4" Me.BarButtonItem4.Name = "BarButtonItem4"
' '
'RibbonPage1 'RibbonPage1
@ -200,7 +202,7 @@ Partial Class frmSearchStart
Me.Panel1.Controls.Add(Me.cmbProfile) Me.Panel1.Controls.Add(Me.cmbProfile)
Me.Panel1.Controls.Add(Me.Label1) Me.Panel1.Controls.Add(Me.Label1)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) Me.Panel1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Panel1.Location = New System.Drawing.Point(0, 159) Me.Panel1.Location = New System.Drawing.Point(0, 159)
Me.Panel1.Margin = New System.Windows.Forms.Padding(2, 3, 2, 3) Me.Panel1.Margin = New System.Windows.Forms.Padding(2, 3, 2, 3)
Me.Panel1.Name = "Panel1" Me.Panel1.Name = "Panel1"
@ -209,10 +211,10 @@ Partial Class frmSearchStart
' '
'cmbProfile 'cmbProfile
' '
Me.cmbProfile.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Me.cmbProfile.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles) Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cmbProfile.DisplayMember = "DOKART_ID" Me.cmbProfile.DisplayMember = "DOKART_ID"
Me.cmbProfile.FormattingEnabled = true Me.cmbProfile.FormattingEnabled = True
Me.cmbProfile.Location = New System.Drawing.Point(3, 23) Me.cmbProfile.Location = New System.Drawing.Point(3, 23)
Me.cmbProfile.Name = "cmbProfile" Me.cmbProfile.Name = "cmbProfile"
Me.cmbProfile.Size = New System.Drawing.Size(1065, 21) Me.cmbProfile.Size = New System.Drawing.Size(1065, 21)
@ -221,7 +223,7 @@ Partial Class frmSearchStart
' '
'Label1 'Label1
' '
Me.Label1.AutoSize = true Me.Label1.AutoSize = True
Me.Label1.ImeMode = System.Windows.Forms.ImeMode.NoControl Me.Label1.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.Label1.Location = New System.Drawing.Point(3, 3) Me.Label1.Location = New System.Drawing.Point(3, 3)
Me.Label1.Name = "Label1" Me.Label1.Name = "Label1"
@ -344,23 +346,23 @@ Partial Class frmSearchStart
' '
'GridViewSearchTerms 'GridViewSearchTerms
' '
Me.GridViewSearchTerms.Appearance.EvenRow.BackColor = System.Drawing.Color.FromArgb(CType(CType(236,Byte),Integer), CType(CType(233,Byte),Integer), CType(CType(125,Byte),Integer)) Me.GridViewSearchTerms.Appearance.EvenRow.BackColor = System.Drawing.Color.FromArgb(CType(CType(236, Byte), Integer), CType(CType(233, Byte), Integer), CType(CType(125, Byte), Integer))
Me.GridViewSearchTerms.Appearance.EvenRow.Options.UseBackColor = true Me.GridViewSearchTerms.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewSearchTerms.GridControl = Me.GridControlSerchTerms Me.GridViewSearchTerms.GridControl = Me.GridControlSerchTerms
Me.GridViewSearchTerms.Name = "GridViewSearchTerms" Me.GridViewSearchTerms.Name = "GridViewSearchTerms"
Me.GridViewSearchTerms.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[True] Me.GridViewSearchTerms.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[True]
Me.GridViewSearchTerms.OptionsBehavior.Editable = false Me.GridViewSearchTerms.OptionsBehavior.Editable = False
Me.GridViewSearchTerms.OptionsSelection.EnableAppearanceFocusedCell = false Me.GridViewSearchTerms.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridViewSearchTerms.OptionsView.EnableAppearanceEvenRow = true Me.GridViewSearchTerms.OptionsView.EnableAppearanceEvenRow = True
Me.GridViewSearchTerms.OptionsView.ShowGroupPanel = false Me.GridViewSearchTerms.OptionsView.ShowGroupPanel = False
Me.GridViewSearchTerms.OptionsView.ShowViewCaption = true Me.GridViewSearchTerms.OptionsView.ShowViewCaption = True
Me.GridViewSearchTerms.ViewCaption = "Such-Kriterium" Me.GridViewSearchTerms.ViewCaption = "Such-Kriterium"
' '
'SplitContainerControlSearch 'SplitContainerControlSearch
' '
Me.SplitContainerControlSearch.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Me.SplitContainerControlSearch.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles) Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.SplitContainerControlSearch.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2 Me.SplitContainerControlSearch.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2
Me.SplitContainerControlSearch.FixedPanel = DevExpress.XtraEditors.SplitFixedPanel.Panel2 Me.SplitContainerControlSearch.FixedPanel = DevExpress.XtraEditors.SplitFixedPanel.Panel2
Me.SplitContainerControlSearch.Location = New System.Drawing.Point(0, 207) Me.SplitContainerControlSearch.Location = New System.Drawing.Point(0, 207)
@ -393,50 +395,53 @@ Partial Class frmSearchStart
Me.MehrfachauswahlInaktivierenToolStripMenuItem.Size = New System.Drawing.Size(232, 22) Me.MehrfachauswahlInaktivierenToolStripMenuItem.Size = New System.Drawing.Size(232, 22)
Me.MehrfachauswahlInaktivierenToolStripMenuItem.Text = "Mehrfachauswahl inaktivieren" Me.MehrfachauswahlInaktivierenToolStripMenuItem.Text = "Mehrfachauswahl inaktivieren"
' '
'SimpleButton1 'DateEdit1
' '
Me.SimpleButton1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Me.DateEdit1.EditValue = Nothing
Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles) Me.DateEdit1.Location = New System.Drawing.Point(173, 543)
Me.SimpleButton1.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton1.ImageOptions.SvgImage"),DevExpress.Utils.Svg.SvgImage) Me.DateEdit1.MenuManager = Me.RibbonControl1
Me.SimpleButton1.Location = New System.Drawing.Point(461, 523) Me.DateEdit1.Name = "DateEdit1"
Me.SimpleButton1.Name = "SimpleButton1" Me.DateEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
Me.SimpleButton1.Size = New System.Drawing.Size(141, 45) Me.DateEdit1.Properties.CalendarTimeProperties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
Me.SimpleButton1.TabIndex = 19 Me.DateEdit1.Size = New System.Drawing.Size(100, 20)
Me.SimpleButton1.Text = "Starte Suche" Me.DateEdit1.TabIndex = 19
' '
'frmSearchStart 'frmSearchStart
' '
Me.AllowFormGlass = DevExpress.Utils.DefaultBoolean.[True] Me.AllowFormGlass = DevExpress.Utils.DefaultBoolean.[True]
Me.Appearance.Options.UseFont = true Me.Appearance.Options.UseFont = True
Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1070, 601) Me.ClientSize = New System.Drawing.Size(1070, 601)
Me.Controls.Add(Me.SimpleButton1) Me.Controls.Add(Me.DateEdit1)
Me.Controls.Add(Me.SplitContainerControlSearch) Me.Controls.Add(Me.SplitContainerControlSearch)
Me.Controls.Add(Me.Panel1) Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.RibbonStatusBar1) Me.Controls.Add(Me.RibbonStatusBar1)
Me.Controls.Add(Me.RibbonControl1) Me.Controls.Add(Me.RibbonControl1)
Me.Font = New System.Drawing.Font("Tahoma", 8.25!) Me.Font = New System.Drawing.Font("Tahoma", 8.25!)
Me.IconOptions.Icon = CType(resources.GetObject("frmSearchStart.IconOptions.Icon"),System.Drawing.Icon) Me.IconOptions.Icon = CType(resources.GetObject("frmSearchStart.IconOptions.Icon"), System.Drawing.Icon)
Me.IconOptions.SvgImage = CType(resources.GetObject("frmSearchStart.IconOptions.SvgImage"),DevExpress.Utils.Svg.SvgImage) Me.IconOptions.SvgImage = CType(resources.GetObject("frmSearchStart.IconOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.KeyPreview = True
Me.Name = "frmSearchStart" Me.Name = "frmSearchStart"
Me.Ribbon = Me.RibbonControl1 Me.Ribbon = Me.RibbonControl1
Me.StatusBar = Me.RibbonStatusBar1 Me.StatusBar = Me.RibbonStatusBar1
Me.Text = "ZooFlow Suche" Me.Text = "ZooFlow Suche"
CType(Me.RibbonControl1,System.ComponentModel.ISupportInitialize).EndInit CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RepositoryItemRadioGroup1,System.ComponentModel.ISupportInitialize).EndInit CType(Me.RepositoryItemRadioGroup1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RepositoryItemComboBox1,System.ComponentModel.ISupportInitialize).EndInit CType(Me.RepositoryItemComboBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel1.ResumeLayout(false) Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout Me.Panel1.PerformLayout()
CType(Me.XtraTabControl1,System.ComponentModel.ISupportInitialize).EndInit CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabControl1.ResumeLayout(false) Me.XtraTabControl1.ResumeLayout(False)
CType(Me.GridControlSerchTerms,System.ComponentModel.ISupportInitialize).EndInit CType(Me.GridControlSerchTerms, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuStripSearchTerms.ResumeLayout(false) Me.ContextMenuStripSearchTerms.ResumeLayout(False)
CType(Me.GridViewSearchTerms,System.ComponentModel.ISupportInitialize).EndInit CType(Me.GridViewSearchTerms, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.SplitContainerControlSearch,System.ComponentModel.ISupportInitialize).EndInit CType(Me.SplitContainerControlSearch, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerControlSearch.ResumeLayout(false) Me.SplitContainerControlSearch.ResumeLayout(False)
Me.ContextMenuStripMultiselect.ResumeLayout(false) Me.ContextMenuStripMultiselect.ResumeLayout(False)
Me.ResumeLayout(false) CType(Me.DateEdit1.Properties.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DateEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout Me.PerformLayout
End Sub End Sub
@ -478,9 +483,9 @@ End Sub
Friend WithEvents MehrfachauswahlInaktivierenToolStripMenuItem As ToolStripMenuItem Friend WithEvents MehrfachauswahlInaktivierenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ContextMenuStripSearchTerms As ContextMenuStrip Friend WithEvents ContextMenuStripSearchTerms As ContextMenuStrip
Friend WithEvents tsmOperator As ToolStripMenuItem Friend WithEvents tsmOperator As ToolStripMenuItem
Friend WithEvents SimpleButton1 As DevExpress.XtraEditors.SimpleButton
Friend WithEvents BracketLeftToolStripMenuItem As ToolStripMenuItem Friend WithEvents BracketLeftToolStripMenuItem As ToolStripMenuItem
Friend WithEvents KlammerRechtsToolStripMenuItem As ToolStripMenuItem Friend WithEvents KlammerRechtsToolStripMenuItem As ToolStripMenuItem
Friend WithEvents KlammerEntfernenToolStripMenuItem As ToolStripMenuItem Friend WithEvents KlammerEntfernenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents DateEdit1 As DevExpress.XtraEditors.DateEdit
End Class End Class

20
GUIs.ZooFlow/frmSearchStart.resx
View File

@ -215,26 +215,6 @@
<metadata name="ContextMenuStripMultiselect.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ContextMenuStripMultiselect.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>237, 17</value> <value>237, 17</value>
</metadata> </metadata>
<data name="SimpleButton1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAANoCAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw
MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu
bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iR2V0dGluZ1N0YXJ0ZWQiPg0KICAg
IDxwYXRoIGQ9Ik0xNiwyQzguMywyLDIsOC4zLDIsMTZzNi4zLDE0LDE0LDE0czE0LTYuMywxNC0xNFMy
My43LDIsMTYsMnogTTEyLDIyVjEwbDEwLDZMMTIsMjJ6IiBjbGFzcz0iR3JlZW4iIC8+DQogIDwvZz4N
Cjwvc3ZnPgs=
</value>
</data>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>174</value> <value>174</value>
</metadata> </metadata>

23
GUIs.ZooFlow/frmSearchStart.vb
View File

@ -25,7 +25,7 @@ Public Class frmSearchStart
Private SEARCH_COUNT As Integer = 0 Private SEARCH_COUNT As Integer = 0
Private _Environment As Environment Private _Environment As Environment
Public Sub New(pDTSearchProfiles As DataTable) Public Sub New(ByVal pDTSearchProfiles As DataTable, Optional ByVal pRunSearch As Boolean = False)
' Dieser Aufruf ist für den Designer erforderlich. ' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent() InitializeComponent()
@ -263,6 +263,7 @@ Public Class frmSearchStart
oMyControl = oControls.CreateExistingDatepicker(oAttributeRow, oXPosition, oYPositionControl) oMyControl = oControls.CreateExistingDatepicker(oAttributeRow, oXPosition, oYPositionControl)
Dim myDTP As DateEdit = CType(oMyControl, DateEdit) Dim myDTP As DateEdit = CType(oMyControl, DateEdit)
AddHandler myDTP.DisableCalendarDate, AddressOf DisableCalendarDate AddHandler myDTP.DisableCalendarDate, AddressOf DisableCalendarDate
AddHandler myDTP.EditValueChanged, AddressOf CalendarChanged
ElseIf oAttriTYPE = "BIT" Then ElseIf oAttriTYPE = "BIT" Then
oMyControl = oControls.CreateExistingCheckbox(oAttributeRow, oXPosition, oYPositionControl) oMyControl = oControls.CreateExistingCheckbox(oAttributeRow, oXPosition, oYPositionControl)
Dim myCheckBox As CheckBox = CType(oMyControl, CheckBox) Dim myCheckBox As CheckBox = CType(oMyControl, CheckBox)
@ -407,7 +408,14 @@ Public Class frmSearchStart
' e.IsDisabled = True ' e.IsDisabled = True
'End If 'End If
End Sub End Sub
Private Sub CalendarChanged(sender As Object, e As EventArgs)
Dim myDTP As DateEdit = CType(sender, DateEdit)
If Not IsNothing(myDTP.EditValue) Then
Dim omydate = myDTP.EditValue.ToString
'Dim oInsert = $"EXEC PRIDB_NEW_USER_SEARCH_CRITERIA {PSEARCH_ID.ToString},{My.Application.User.UserId.ToString},{oAttrID.ToString},'{omydate}','{My.Application.User.UserName}'"
'My.DatabaseIDB.ExecuteNonQuery(oInsert)
End If
End Sub
Public Function IsValidDate(pCheckDT As DataTable, pDate2Check As Date) As Boolean Public Function IsValidDate(pCheckDT As DataTable, pDate2Check As Date) As Boolean
Dim oIsValid As Boolean = False Dim oIsValid As Boolean = False
For Each oDateRow As DataRow In pCheckDT.Rows For Each oDateRow As DataRow In pCheckDT.Rows
@ -746,6 +754,9 @@ Public Class frmSearchStart
End Function End Function
Private Sub BarButtonItem4_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem4.ItemClick Private Sub BarButtonItem4_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem4.ItemClick
Start_Search
End Sub
Private Function Start_Search()
Try Try
Dim oSEARCH_SQL = SEARCH_SQL Dim oSEARCH_SQL = SEARCH_SQL
Dim oOperator As String Dim oOperator As String
@ -799,5 +810,13 @@ Public Class frmSearchStart
Catch ex As Exception Catch ex As Exception
End Try End Try
End Function
Private Sub frmSearchStart_KeyUp(sender As Object, e As KeyEventArgs) Handles Me.KeyUp
If e.KeyCode = Keys.F2 Then
Start_Search()
End If
End Sub End Sub
End Class End Class