ms

app/DD_PM_WINDREAM/frmMain.vb

@@ -1,5 +1,6 @@
 Imports WINDREAMLib
 Imports DLLLicenseManager
+Imports DevExpress.LookAndFeel
 Imports System.Globalization
 
 Public Class frmMain
@@ -33,6 +34,7 @@ Public Class frmMain
     End Sub
 
     Private Sub frmProfiles_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        UserLookAndFeel.Default.SetSkinStyle("VS2010")
         tslblVersion.Text = String.Format("Version {0}", My.Application.Info.Version.ToString)
         If ERROR_STATE = "NO DB-CONNECTION" Or ERROR_STATE = "FAILED DBCONNECTION" Then
             MsgBox("Bitte hinterlegen Sie die Datenbankverbindung in der Konfiguration!", MsgBoxStyle.Critical, "Fehlende Konfiguration:")
@@ -59,7 +61,7 @@ Public Class frmMain
                 Else
                     ClassLogger.Add(">> Username: " & Environment.UserName, False)
                     'Wenn license abgelaufen und der User nicht admin ist!
-                    If license_expired = True Then
+                    If LICENSE_EXPIRED = True Then
                         If USER_IS_ADMIN = False Then
                             Me.Close()
                         End If
@@ -76,7 +78,7 @@ Public Class frmMain
             Catch ex As Exception
                 MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Fehler bei User Check:")
             End Try
-           
+
             Try
                 tsstlblUser.Text = Environment.UserName
                 LoadProfile_PM()
@@ -90,23 +92,9 @@ Public Class frmMain
             Timer.Start()
 
             Check_Timer_Notification()
+            Restore_Form_Position()
         End If
-        Try
-            ' Sind Werte hinterlegt?
-            If My.Settings.frmMainPosition.IsEmpty = False Then
-                If My.Settings.frmMainPosition.X > 0 And My.Settings.frmMainPosition.Y > 0 Then
-                    ' Gespeicherte Werte verwenden
-                    Me.Location = My.Settings.frmValidatorPosition
-                End If
-            End If
-            ' Sind Werte hinterlegt?
-            If Not My.Settings.frmMainSize.IsEmpty Then
-                ' Gespeicherte Werte verwenden
-                Me.Size = My.Settings.frmMainSize
-            End If
-        Catch ex As Exception
-            ClassLogger.Add("Error in Load FormLayout: " & ex.Message)
-        End Try
+
     End Sub
     Sub Check_Timer_Notification()
         If My.Settings.IntervallReminder <> 0 Then
@@ -118,6 +106,24 @@ Public Class frmMain
             TimerReminder.Stop()
         End If
     End Sub
+    Sub Restore_Form_Position()
+        Try
+            ' Sind Werte hinterlegt?
+            If My.Settings.frmMainPosition.IsEmpty = False Then
+                If My.Settings.frmMainPosition.X > 0 And My.Settings.frmMainPosition.Y > 0 Then
+                    ' Gespeicherte Werte verwenden
+                    Me.Location = My.Settings.frmMainPosition
+                End If
+            End If
+            ' Sind Werte hinterlegt?
+            If Not My.Settings.frmMainSize.IsEmpty Then
+                ' Gespeicherte Werte verwenden
+                Me.Size = My.Settings.frmMainSize
+            End If
+        Catch ex As Exception
+            ClassLogger.Add("Error in Load FormLayout: " & ex.Message)
+        End Try
+    End Sub
     Function Refresh_ConnectionString()
         Try
             TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = MyConnectionString
@@ -265,4 +271,8 @@ Public Class frmMain
     Private Sub TimerReminder_Tick(sender As Object, e As EventArgs) Handles TimerReminder.Tick
         If PROFILE_COUNT > 0 Then NotifyIcon1.ShowBalloonTip(30000, "Validation-Reminder", "Sie haben unerledigte Dokumente in Ihrem Verantwortungsbereich.", ToolTipIcon.Info)
     End Sub
+
+    Private Sub frmMain_Shown(sender As Object, e As EventArgs) Handles Me.Shown
+
+    End Sub
 End Class