rename Zooflow to DigitalData.GUIs.ZooFlow

2019-09-18 12:10:03 +02:00
parent 4c9b9de8a3
commit 3d55483a56
10 changed files with 102 additions and 48 deletions
--- a/ZooFlow/ClassFlowForm.vb
+++ b/ZooFlow/ClassFlowForm.vb
@@ -104,8 +104,10 @@ Public Class ClassFlowForm
        End If
    End Sub

-    Private Sub Form_click(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Click
-        MsgBox("LOL")
+    Private Sub Form_click(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseClick
+        If e.Button = MouseButtons.Left Then
+            MsgBox("LOL")
+        End If
    End Sub

    Public Sub SetBitmap(ByVal bitmap As Bitmap)