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

Design for presearch, searchstart and flow form

Browse Source
This commit is contained in:
Jonathan Jenne
2020-11-05 16:20:35 +01:00
parent 10f660460f
commit 88edadc816
16 changed files with 602 additions and 270 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
GUIs.ZooFlow/frmFlowForm.vb
View File

@@ -45,7 +45,7 @@ Public Class frmFlowForm
Init.InitializeApplication()
End Sub
Private Sub Init_Completed(sender As Object, e As EventArgs)
Private Sub Init_Completed(sender As Object, e As EventArgs)
' === Initialization Complete ===
ApplicationLoading = False
SplashScreenManager.CloseForm(False)
@@ -95,11 +95,11 @@ Public Class frmFlowForm
'TODO: Refresh Data
End Sub
Private Sub frmFlowForm_MouseLeave(sender As Object, e As EventArgs) Handles Me.MouseLeave
Private Sub frmFlowForm_MouseLeave(sender As Object, e As EventArgs)
Opacity = OPACITY_HIDDEN
End Sub
Private Sub frmFlowForm_MouseEnter(sender As Object, e As EventArgs) Handles Me.MouseEnter
Private Sub frmFlowForm_MouseEnter(sender As Object, e As EventArgs) Handles Me.MouseEnter, MyBase.MouseLeave
Opacity = OPACITY_SHOWN
End Sub
@@ -181,7 +181,17 @@ Public Class frmFlowForm
frmAdministrationZooFlow.Show()
End Sub
Private Sub PictureBox1_DragEnter(sender As Object, e As DragEventArgs) Handles PictureBox1.DragEnter
PictureBox1.BackgroundImage = My.Resources._1_LOGO_ZOO_FLOW_DROP2
Private Sub frmFlowForm_DragEnter(sender As Object, e As DragEventArgs) Handles MyBase.DragEnter
PictureBox1.image = My.Resources._1_LOGO_ZOO_FLOW_DROP3
e.Effect = DragDropEffects.Copy
End Sub
Private Sub frmFlowForm_DragDrop(sender As Object, e As DragEventArgs) Handles MyBase.DragDrop
PictureBox1.Image = My.Resources._1_LOGO_ZOO_FLOW1
End Sub
Private Sub frmFlowForm_DragLeave(sender As Object, e As EventArgs) Handles Me.DragLeave
PictureBox1.Image = My.Resources._1_LOGO_ZOO_FLOW1
End Sub
End Class