jj_25_11

app/DD-Record-Organiser/frmMain.vb

@@ -11,6 +11,39 @@ Public Class frmMain
     'Private USER_GUID
 
 
+    Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles Me.Load
+        Try
+            ' Referenz zu frmMain speichern
+            MAIN_FORM = Me
+
+            ' Form Titel setzen
+            ClassWindowLocation.LoadFormLocationSize(Me, 1, CURRENT_SCREEN_ID, "frmMain")
+            Me.Text = Application.ProductName
+            LabelVersion.Caption = String.Format("Version {0}", My.Application.Info.Version.ToString)
+            LabelUser.Caption = Environment.UserName
+            LabelMachine.Caption = My.Computer.Name
+
+            SetBackground()
+
+            Dim splash As New frmSplash()
+            splash.ShowDialog()
+
+            If USER_IS_ADMIN = True Then
+                pageAdmin.Visible = True
+            End If
+
+            LabelLoggedIn.Caption = "Anzahl Angemeldete User: " & USERS_LOGGED_IN.ToString()
+
+            'LoadMenuItems()
+            LoadMenuItems2()
+            LoadQuickStartItems()
+            VWPMO_WF_USER_ACTIVETableAdapter.Connection.ConnectionString = MyConnectionString
+            VWPMO_WF_USER_ACTIVETableAdapter.Connection.ConnectionString = MyConnectionString
+        Catch ex As Exception
+            MsgBox("Error in Load Form:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+        End Try
+    End Sub
+
     Private Sub frmMain_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
         Try
             Dim sql = "UPDATE TBDD_USER SET LOGGED_IN = @LogInOut, LOGGED_WHERE = '@ANGEMELDETWO' WHERE (LOWER(USERNAME) = LOWER('@user'))"
@@ -255,38 +288,6 @@ Public Class frmMain
             Me.BackgroundImageLayout = ImageLayout.Center
         End If
     End Sub
-
-
-
-    Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles Me.Load
-        Try
-            ' Form Titel setzen
-            ClassWindowLocation.LoadFormLocationSize(Me, 1, CURRENT_SCREEN_ID, "frmMain")
-            Me.Text = Application.ProductName
-            LabelVersion.Caption = String.Format("Version {0}", My.Application.Info.Version.ToString)
-            LabelUser.Caption = Environment.UserName
-            LabelMachine.Caption = My.Computer.Name
-
-            SetBackground()
-
-            Dim splash As New frmSplash()
-            splash.ShowDialog()
-
-            If USER_IS_ADMIN = True Then
-                pageAdmin.Visible = True
-            End If
-
-            LabelLoggedIn.Caption = "Anzahl Angemeldete User: " & USERS_LOGGED_IN.ToString()
-
-            'LoadMenuItems()
-            LoadMenuItems2()
-            LoadQuickStartItems()
-            VWPMO_WF_USER_ACTIVETableAdapter.Connection.ConnectionString = MyConnectionString
-            VWPMO_WF_USER_ACTIVETableAdapter.Connection.ConnectionString = MyConnectionString
-        Catch ex As Exception
-            MsgBox("Error in Load Form:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
-    End Sub
    
     Sub Refresh_TaskReminder()
         Try