clean up

Global_Indexer/frmStart.vb

@@ -336,21 +336,8 @@ Public Class frmStart
     End Sub
 
     Private Sub frmStart_Load(sender As Object, e As EventArgs) Handles Me.Load
-        'Me.TransparencyKey = Color.Transparent
-        ' Me.BackColor = Color.Transparent
         Cursor = Cursors.WaitCursor
-        ' My.Application.ChangeUICulture("en")
-        'My.Application.ChangeCulture("en")
-        Dim i = My.Application.UICulture.ToString()
-
         Try
-
-
-            'Dim sql = sql_UserID
-
-            'Dim splash As New frmSplash()
-            'splash.ShowDialog()
-
             'Lizenz abgellaufen, überprüfen ob User Admin ist
             If LICENSE_COUNT < UserLoggedin Then
                 If USER_IS_ADMIN = True Then
@@ -583,16 +570,6 @@ Public Class frmStart
                 MsgBox("For the final changing of language, a restart is required!", MsgBoxStyle.Information)
             End If
             Application.Restart()
-            ''Sprache anpassen
-            'SetLanguage()
-            'LANGUAGE_CHANGED = False
-            'If USER_IS_ADMIN = True Then
-            '    ToolStripSeparator1.Visible = True
-            '    AdministrationToolStripMenuItem.Visible = True
-            'Else
-            '    ToolStripSeparator1.Visible = False
-            '    AdministrationToolStripMenuItem.Visible = False
-            'End If
         End If
         Start_Folderwatch()
         Me.TopMost = True
@@ -606,7 +583,6 @@ Public Class frmStart
             Load_Hotkeys()
             Me.Visible = True
         End If
-
     End Sub
 
     Private Sub TimerFolderWatch_Tick(sender As Object, e As EventArgs) Handles TimerFolderWatch.Tick
@@ -753,23 +729,19 @@ Public Class frmStart
 
     Private Sub btnChoosefiles_Click(sender As Object, e As EventArgs) Handles btnChoosefiles.Click
         Try
-            Dim openFileDialog1 As New OpenFileDialog
-            Dim fName As String
-            'openFileDialog1.InitialDirectory = "c:\"
-            'openFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
-            'openFileDialog1.FilterIndex = 2
+            Dim oFileName As String
+            Dim oOpenFileDialog As New OpenFileDialog With {
+                .RestoreDirectory = True,
+                .Multiselect = True
+            }
 
-            openFileDialog1.RestoreDirectory = True
-
-            openFileDialog1.Multiselect = True
-
-            If openFileDialog1.ShowDialog() = DialogResult.OK Then
+            If oOpenFileDialog.ShowDialog() = DialogResult.OK Then
                 Dim i As Integer = 0
                 ClassFileDrop.files_dropped = Nothing
-                For Each fName In openFileDialog1.FileNames
+                For Each oFileName In oOpenFileDialog.FileNames
                     ReDim Preserve ClassFileDrop.files_dropped(i)
-                    LOGGER.Info(">> Chosen File: " & fName)
-                    ClassFileDrop.files_dropped(i) = "|DROPFROMFSYSTEM|" & fName
+                    LOGGER.Info(">> Chosen File: " & oFileName)
+                    ClassFileDrop.files_dropped(i) = "|DROPFROMFSYSTEM|" & oFileName
                     i += 1
                 Next
                 TimerCheckDroppedFiles.Start()
@@ -777,7 +749,5 @@ Public Class frmStart
         Catch ex As Exception
             MsgBox("Unexpected Error in Choose Files for Indexing:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try
-
     End Sub
-
 End Class