diff --git a/GUIs.ZooFlow/My Project/Resources.Designer.vb b/GUIs.ZooFlow/My Project/Resources.Designer.vb
index 5f3c52d9..12a26232 100644
--- a/GUIs.ZooFlow/My Project/Resources.Designer.vb
+++ b/GUIs.ZooFlow/My Project/Resources.Designer.vb
@@ -22,7 +22,7 @@ Namespace My.Resources
'''
''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
'''
- _
@@ -109,5 +109,25 @@ Namespace My.Resources
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
+
+ '''
+ ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+ '''
+ Friend ReadOnly Property ZOOFLOW_Home_klein_Cropped() As System.Drawing.Bitmap
+ Get
+ Dim obj As Object = ResourceManager.GetObject("ZOOFLOW_Home_klein_Cropped", resourceCulture)
+ Return CType(obj,System.Drawing.Bitmap)
+ End Get
+ End Property
+
+ '''
+ ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+ '''
+ Friend ReadOnly Property ZOOFLOW_Home_klein_Eckig() As System.Drawing.Bitmap
+ Get
+ Dim obj As Object = ResourceManager.GetObject("ZOOFLOW_Home_klein_Eckig", resourceCulture)
+ Return CType(obj,System.Drawing.Bitmap)
+ End Get
+ End Property
End Module
End Namespace
diff --git a/GUIs.ZooFlow/My Project/Resources.resx b/GUIs.ZooFlow/My Project/Resources.resx
index 7eb0f61a..ef521859 100644
--- a/GUIs.ZooFlow/My Project/Resources.resx
+++ b/GUIs.ZooFlow/My Project/Resources.resx
@@ -133,4 +133,10 @@
..\Resources\ZOOFLOW_Home_klein.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
+
+ ..\Resources\ZOOFLOW_Home_klein_Cropped.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
+
+
+ ..\Resources\ZOOFLOW_Home_klein_Eckig.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
+
\ No newline at end of file
diff --git a/GUIs.ZooFlow/Resources/ZOOFLOW_Home_klein_Cropped.png b/GUIs.ZooFlow/Resources/ZOOFLOW_Home_klein_Cropped.png
new file mode 100644
index 00000000..84051fb7
Binary files /dev/null and b/GUIs.ZooFlow/Resources/ZOOFLOW_Home_klein_Cropped.png differ
diff --git a/GUIs.ZooFlow/Resources/ZOOFLOW_Home_klein_Eckig.png b/GUIs.ZooFlow/Resources/ZOOFLOW_Home_klein_Eckig.png
new file mode 100644
index 00000000..4a5a37d1
Binary files /dev/null and b/GUIs.ZooFlow/Resources/ZOOFLOW_Home_klein_Eckig.png differ
diff --git a/GUIs.ZooFlow/ZooFlow.vbproj b/GUIs.ZooFlow/ZooFlow.vbproj
index 701c60ac..468f66dd 100644
--- a/GUIs.ZooFlow/ZooFlow.vbproj
+++ b/GUIs.ZooFlow/ZooFlow.vbproj
@@ -93,6 +93,12 @@
+
+ frmFlowForm_Test1.vb
+
+
+ Form
+
@@ -146,6 +152,9 @@
frmFlowForm.vb
+
+ frmFlowForm_Test1.vb
+
frmSettings.vb
@@ -223,7 +232,10 @@
Windows
-
+
+
+
+
diff --git a/GUIs.ZooFlow/frmFlowForm.Designer.vb b/GUIs.ZooFlow/frmFlowForm.Designer.vb
index 44b69e35..be68d2f5 100644
--- a/GUIs.ZooFlow/frmFlowForm.Designer.vb
+++ b/GUIs.ZooFlow/frmFlowForm.Designer.vb
@@ -1,9 +1,9 @@
- _
+
Partial Class frmFlowForm
Inherits Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
- _
+
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
@@ -20,19 +20,20 @@ Partial Class frmFlowForm
'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.
- _
+
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.SucheToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+ Me.FlowFormTest1ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ContextMenuStrip1.SuspendLayout()
Me.SuspendLayout()
'
'ContextMenuStrip1
'
- Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SucheToolStripMenuItem})
+ Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SucheToolStripMenuItem, Me.FlowFormTest1ToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
- Me.ContextMenuStrip1.Size = New System.Drawing.Size(107, 26)
+ Me.ContextMenuStrip1.Size = New System.Drawing.Size(181, 70)
'
'SucheToolStripMenuItem
'
@@ -40,11 +41,17 @@ Partial Class frmFlowForm
Me.SucheToolStripMenuItem.Size = New System.Drawing.Size(106, 22)
Me.SucheToolStripMenuItem.Text = "Suche"
'
+ 'FlowFormTest1ToolStripMenuItem
+ '
+ Me.FlowFormTest1ToolStripMenuItem.Name = "FlowFormTest1ToolStripMenuItem"
+ Me.FlowFormTest1ToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+ Me.FlowFormTest1ToolStripMenuItem.Text = "FlowForm Test 1"
+ '
'frmFlowForm
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
- Me.ClientSize = New System.Drawing.Size(800, 450)
+ Me.ClientSize = New System.Drawing.Size(230, 174)
Me.Name = "frmFlowForm"
Me.Text = "frmFlowForm"
Me.ContextMenuStrip1.ResumeLayout(False)
@@ -54,4 +61,5 @@ Partial Class frmFlowForm
Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
Friend WithEvents SucheToolStripMenuItem As ToolStripMenuItem
+ Friend WithEvents FlowFormTest1ToolStripMenuItem As ToolStripMenuItem
End Class
diff --git a/GUIs.ZooFlow/frmFlowForm.vb b/GUIs.ZooFlow/frmFlowForm.vb
index 3205f6d6..b04e2715 100644
--- a/GUIs.ZooFlow/frmFlowForm.vb
+++ b/GUIs.ZooFlow/frmFlowForm.vb
@@ -11,6 +11,8 @@ Public Class frmFlowForm
Private ESCHitCount As Integer = 0
Private CurrentState As OnFlowFormStateChangedEvent.FlowFormState = OnFlowFormStateChangedEvent.FlowFormState.Default
+ Const WS_EX_LAYERED As Int32 = &H80000
+
Public Event ClipboardChanged As EventHandler(Of IDataObject)
Public Sub New()
@@ -49,6 +51,14 @@ Public Class frmFlowForm
' === Register As Event Listener ===
EventBus.Instance.Register(Me)
+
+ ' === TESTING Actions ===
+ Dim oButton As New Button With {
+ .Location = New Point(10, 10),
+ .Size = New Size(10, 10),
+ .Text = "yes"
+ }
+ Controls.Add(oButton)
End Sub
Private Sub frmFlowForm_Closed(sender As Object, e As EventArgs) Handles Me.Closed
@@ -109,7 +119,7 @@ Public Class frmFlowForm
Case OnFlowFormStateChangedEvent.FlowFormState.HasFileDropped
SetBitmap(My.Resources.GLOBIX_GEFUNDEN_klein)
Case Else
- SetBitmap(My.Resources.ZOOFLOW_Home_klein)
+ SetBitmap(My.Resources.ZOOFLOW_Home_klein_Eckig)
End Select
End Sub
@@ -201,11 +211,19 @@ Public Class frmFlowForm
End Try
End Sub
+ '''
+ ''' More Info: https://docs.microsoft.com/en-us/windows/win32/winmsg/window-features#layered-windows
+ '''
+ '''
Protected Overrides ReadOnly Property CreateParams As CreateParams
Get
Dim oParams As CreateParams = MyBase.CreateParams
- oParams.ExStyle = oParams.ExStyle Or &H80000
+ oParams.ExStyle = oParams.ExStyle Or WS_EX_LAYERED
Return oParams
End Get
End Property
+
+ Private Sub FlowFormTest1ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FlowFormTest1ToolStripMenuItem.Click
+ frmFlowForm_Test1.Show()
+ End Sub
End Class
\ No newline at end of file
diff --git a/GUIs.ZooFlow/frmFlowForm_Test1.Designer.vb b/GUIs.ZooFlow/frmFlowForm_Test1.Designer.vb
new file mode 100644
index 00000000..3b962d77
--- /dev/null
+++ b/GUIs.ZooFlow/frmFlowForm_Test1.Designer.vb
@@ -0,0 +1,41 @@
+
+Partial Class frmFlowForm_Test1
+ Inherits System.Windows.Forms.Form
+
+ 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+
+ 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.
+
+ Private Sub InitializeComponent()
+ Me.SuspendLayout()
+ '
+ 'frmFlowForm_Test1
+ '
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+ Me.BackgroundImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.ZOOFLOW_Home_klein
+ Me.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
+ Me.ClientSize = New System.Drawing.Size(249, 254)
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
+ Me.Name = "frmFlowForm_Test1"
+ Me.Text = "frmFlowForm_Test1"
+ Me.TransparencyKey = System.Drawing.SystemColors.Control
+ Me.ResumeLayout(False)
+
+ End Sub
+End Class
diff --git a/GUIs.ZooFlow/frmFlowForm_Test1.resx b/GUIs.ZooFlow/frmFlowForm_Test1.resx
new file mode 100644
index 00000000..1af7de15
--- /dev/null
+++ b/GUIs.ZooFlow/frmFlowForm_Test1.resx
@@ -0,0 +1,120 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ text/microsoft-resx
+
+
+ 2.0
+
+
+ System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
\ No newline at end of file
diff --git a/GUIs.ZooFlow/frmFlowForm_Test1.vb b/GUIs.ZooFlow/frmFlowForm_Test1.vb
new file mode 100644
index 00000000..494bd7e0
--- /dev/null
+++ b/GUIs.ZooFlow/frmFlowForm_Test1.vb
@@ -0,0 +1,13 @@
+Public Class frmFlowForm_Test1
+ Private Sub frmFlowForm_Test1_Load(sender As Object, e As EventArgs) Handles Me.Load
+ Opacity = 0.2
+ End Sub
+
+ Private Sub frmFlowForm_Test1_MouseLeave(sender As Object, e As EventArgs) Handles Me.MouseLeave
+ Opacity = 0.2
+ End Sub
+
+ Private Sub frmFlowForm_Test1_MouseHover(sender As Object, e As EventArgs) Handles Me.MouseHover
+ Opacity = 1
+ End Sub
+End Class
\ No newline at end of file