Dumdidummdummda

Dokumentation/Main.vb

@@ -1,4 +1,5 @@
 Imports System.Data.SqlClient
+Imports System.IO
 Imports System.DirectoryServices.AccountManagement
 
 Public Class Main
@@ -32,19 +33,19 @@ Public Class Main
 
     Public printds As DataSet = Nothing
 
-    Private Declare Function GetActiveWindow Lib "user32" Alias "GetActiveWindow" () As IntPtr
+    Public Shared Event ResetButtonPressed()
 
+    Private Declare Function GetActiveWindow Lib "user32" Alias "GetActiveWindow" () As IntPtr
 
 
     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         LblUhrzeit.Text = "Willkommen " & Class1.LoggedOnUser.Name
+        Class1.ini.LoadParameters()
+        SetAnsichtLautIni()
         Class1.EnableDoubleBuffered(DgVMain)
 
         Me.KeyPreview = True
-        'MsgBox(sAppPath)
 
-
-        'If Class1.DBConString = "Server=DEVELOPER\DEVSQL;Initial Catalog=Doku;User ID=sa;Password=BmWr501956;Connection Timeout=5;" Then
         If Class1.DebugMode = True Then
             LblDEBUGMODE.Visible = True
             LblDEBUGMODE.ForeColor = Color.Red
@@ -61,7 +62,6 @@ Public Class Main
             CheckUpdate("Programmstart")
             LstStandortLoad()
             LblUhrzeit.Text = ""
-            'ImportToolStripMenuItem.Enabled = False
             With DgVMain
                 .RowsDefaultCellStyle.BackColor = Color.White 'Color.Bisque
                 .AlternatingRowsDefaultCellStyle.BackColor = ColorTranslator.FromHtml("#d7e4f2")
@@ -70,8 +70,8 @@ Public Class Main
 
         TypeFilter()
 
-        ChkTools.Checked = Class1.DebugMode
-        chkTSSitzungen.Checked = True
+        'ChkTools.Checked = Class1.DebugMode
+        ' chkTSSitzungen.Checked = True
 
     End Sub
 
@@ -278,6 +278,7 @@ Public Class Main
         Dim netzwerkname As String = SenderStandort & "_" & SenderNetzwerk
         LblNetzwerkinfo.Text = ""
         Try
+            'con.StatisticsEnabled = True
             con.Open()
             cmd.CommandText = "SELECT * FROM Tbl_Netzwerke WHERE Netzwerkname='" & netzwerkname & "'"
             reader = cmd.ExecuteReader()
@@ -642,7 +643,7 @@ Public Class Main
     End Function
 
     Private Sub CmdTest_Click(sender As Object, e As EventArgs) Handles CmdTest.Click
-        CheckUpdate("DingDong")
+
     End Sub
     Private Sub CMdTest2_Click(sender As Object, e As EventArgs) Handles CMdTest2.Click
         Dim testuser As New cDomUser
@@ -663,7 +664,7 @@ Public Class Main
 
     End Sub
     Private Sub btnTest3_Click(sender As Object, e As EventArgs) Handles btnTest3.Click
-
+        Class1.ini.save()
     End Sub
 
     Public Function GetDHCPClients(Netzwerk As String, DHCPServer As String, Fill As Boolean, ByRef ds As DataSet)
@@ -770,17 +771,17 @@ Public Class Main
     Private Sub TxtSuche_TextChanged(sender As Object, e As EventArgs) Handles TxtSuche.TextChanged, RadNurNetzwerk.CheckedChanged, RadGlobal.CheckedChanged, RadStandort.CheckedChanged, LstType.SelectedIndexChanged ', TxtSuche.MouseClick
         If TxtSuche.TextLength < 1 And LstType.SelectedItem = "" Then
             Suchbegriff = "%%"
-            ChkFreieHosts.Checked = False
+            ' ChkFreieHosts.Checked = False
             dgvload_filter(Suchbegriff)
 
         ElseIf TxtSuche.TextLength < 1 And Not LstType.SelectedItem = "" Then
-            ChkDHCPClients.Checked = False
-            ChkFreieHosts.Checked = False
+            'ChkDHCPClients.Checked = False
+            'ChkFreieHosts.Checked = False
             dgvload_filter(Suchbegriff)
         Else
             Suchbegriff = "%" & Class1.hochkomma(TxtSuche.Text) & "%"
-            ChkDHCPClients.Checked = False
-            ChkFreieHosts.Checked = False
+            'ChkDHCPClients.Checked = False
+            'ChkFreieHosts.Checked = False
             dgvload_filter(Suchbegriff)
         End If
 
@@ -898,6 +899,7 @@ Public Class Main
     End Sub
 
     Private Sub ChkTools_CheckedChanged(sender As Object, e As EventArgs) Handles ChkTools.CheckedChanged
+
         If ChkTools.Checked Then
             PanTools.Visible = True
         Else
@@ -1046,7 +1048,8 @@ Public Class Main
     End Sub
 
     Private Sub ChkKompAnsicht_CheckedChanged(sender As Object, e As EventArgs) Handles ChkKompAnsicht.CheckedChanged, ChkFreieHosts.CheckedChanged, ChkDHCPClients.CheckedChanged
-        'dgvload(Tabelle)
+
+
         If ChkFreieHosts.Checked Then
             TxtSuche.Text = ""
             LstType.SelectedItem = ""
@@ -1235,6 +1238,7 @@ Public Class Main
     End Sub
 
     Private Sub chkTSSitzungen_CheckedChanged(sender As Object, e As EventArgs) Handles chkTSSitzungen.CheckedChanged
+
         If chkTSSitzungen.Checked Then
             panTSSitzungen.Controls.Clear()
             Dim dingsi As New uscntr_TSSitzungen
@@ -1362,7 +1366,15 @@ Public Class Main
         DS.OPEN_SINGLE()
     End Sub
 
-    Private Sub PictureBox1_Click_1(sender As Object, e As EventArgs) Handles PictureBox1.Click
+    Public Sub PictureBox1_Click_1(sender As Object, e As EventArgs) Handles PictureBox1.Click
+        TxtSuche.Text = ""
+        RadNurNetzwerk.PerformClick()
+        CmdSucheReset.PerformClick()
+        Try
+            RaiseEvent ResetButtonPressed()
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
         LstStandortLoad()
         'dgvload_filter
     End Sub
@@ -1492,8 +1504,42 @@ Public Class Main
 
     End Sub
 
+    Function SetAnsichtLautIni()
+        If File.Exists(Application.StartupPath & "\config.ini") Then
+            chkTSSitzungen.Checked = Class1.ini.prop_TSSitzungenAnzeigen
+            ChkKompAnsicht.Checked = Class1.ini.prop_Kompansicht
+            ChkFreieHosts.Checked = Class1.ini.prop_FreiHostsAnzeigen
+            ChkDHCPClients.Checked = Class1.ini.prop_DHCPClientsAnzeigen
+            ChkTools.Checked = Class1.ini.prop_ToolsPanelAnzeizgen
+            chkPano.Checked = Class1.ini.prop_Pano
+        Else
+            '     File.Create(Application.StartupPath & "\config.ini")
+        End If
+    End Function
+
+    Private Sub btnTSSitzungen_Click(sender As Object, e As EventArgs) Handles btnTSSitzungen.Click
+        Dim TSSitzungen As New frmLeer
+        TSSitzungen.PanMain.Controls.Clear()
+        Dim dingsi As New uscntr_TSSitzungen
+        TSSitzungen.AutoSize = AutoSizeMode.GrowAndShrink
+        TSSitzungen.Size = New Size(434, 863)
+        dingsi.Dock = Dock.Fill
+        TSSitzungen.PanMain.Controls.Add(dingsi)
+        TSSitzungen.Show()
+    End Sub
 
 
+    Private Sub Main_Closed(sender As Object, e As EventArgs) Handles Me.Closed
+
+        Class1.ini.prop_Kompansicht = ChkKompAnsicht.Checked
+        Class1.ini.prop_FreiHostsAnzeigen = ChkFreieHosts.Checked
+        Class1.ini.prop_DHCPClientsAnzeigen = ChkDHCPClients.Checked
+        Class1.ini.prop_ToolsPanelAnzeizgen = ChkTools.Checked
+        Class1.ini.prop_TSSitzungenAnzeigen = chkTSSitzungen.Checked
+        Class1.ini.prop_Pano = chkPano.Checked
+
+        Class1.ini.save()
+    End Sub
 End Class
 
 '1208