DHCP Fix

Dokumentation/uscntr_DomUserList.vb

@@ -1,12 +1,16 @@
 Imports System.Windows.Forms
 
 Public Class uscntr_DomUserList
+
+    Dim DGVi As Integer = 0
+
     Private Sub uscntr_DomUserList_Load(sender As Object, e As EventArgs) Handles Me.Load
         Class1.EnableDoubleBuffered(dgvListUser)
         LoadDomains()
         LoadDGV()
     End Sub
 
+
     Function LoadDomains()
         Dim ds As New DataSet
         cSQL.SQL2DS("select distinct du_dom  from Doku.dbo.TbL_DomUser  order by du_dom", ds, Class1.DBDoku)
@@ -19,6 +23,7 @@ Public Class uscntr_DomUserList
 
     Function LoadDGV(Optional ByVal ReturnDataTable As Boolean = False)
 
+        DGVi = 0
         Dim ds As New DataSet
         cSQL.SQL2DS("select * from Doku.dbo.TbL_DomUser " & ReturnOfTheWhere() & " ORDER BY du_nachname", ds, Class1.DBDoku)
 
@@ -61,10 +66,44 @@ Public Class uscntr_DomUserList
     End Function
 
     Private Sub dgvListUser_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvListUser.CellDoubleClick 'dgvListUser.CellContentDoubleClick ', dgvListUser.CellDoubleClick
-        Dim testuser As New cDomUser
-        testuser.getDomUser("du_ID", dgvListUser.CurrentRow.Cells("du_ID").Value)
+        'Dim testuser As New cDomUser
+        'testuser.getDomUser("du_ID", dgvListUser.CurrentRow.Cells("du_ID").Value)
 
-        If Application.OpenForms().OfType(Of uscntr_DomUser).Any Then Exit Sub
+        'If Application.OpenForms().OfType(Of uscntr_DomUser).Any Then Exit Sub
+
+        'Dim frm As New frmLeer
+        'frm.Text = testuser.du_sAMAc
+        'Dim usrcntrl As New uscntr_DomUser
+        'usrcntrl.DomUser = testuser
+        'usrcntrl.Dock = DockStyle.Fill : frm.PanMain.Controls.Add(usrcntrl)
+        'frm.Size = usrcntrl.Size
+        'Me.Parent.Enabled = False
+
+        'AddHandler frm.FormClosing, Function()
+        '                                Try
+        '                                    Me.Parent.Enabled = True
+        '                                    BringToFront()
+        '                                    LoadDGV()
+        '                                Catch
+        '                                End Try
+        '                            End Function
+
+        'frm.Show()
+        BeamMeUp()
+
+
+    End Sub
+
+    Private Function BeamMeUp(Optional Enter As Boolean = False, Optional RI As Integer = 0)
+        Dim testuser As New cDomUser
+        If Enter Then
+            testuser.getDomUser("du_ID", dgvListUser.Rows(RI).Cells("du_ID").Value)
+        Else
+            testuser.getDomUser("du_ID", dgvListUser.CurrentRow.Cells("du_ID").Value)
+        End If
+
+
+        If Application.OpenForms().OfType(Of uscntr_DomUser).Any Then Exit Function
 
         Dim frm As New frmLeer
         frm.Text = testuser.du_sAMAc
@@ -84,8 +123,7 @@ Public Class uscntr_DomUserList
                                     End Function
 
         frm.Show()
-
-    End Sub
+    End Function
 
     Function ReturnOfTheWhere()
         Dim Dom As String = cbDomain.SelectedItem
@@ -122,6 +160,24 @@ Public Class uscntr_DomUserList
         LoadDGV()
     End Sub
 
+    Private Sub EnterPress(ByVal sender As Object, ByVal e As KeyEventArgs) Handles TextBox1.KeyDown, dgvListUser.KeyDown
+        If e.KeyCode = Keys.Enter Then
+            '  dgvListUser.Rows(0).Selected = True
+            BeamMeUp(True, DGVi)
+        ElseIf e.KeyCode = Keys.Down Then
+            If dgvListUser.Rows.Count - 1 > DGVi Then
+                DGVi = DGVi + 1
+                dgvListUser.Rows(DGVi).Selected = True
+            End If
+        ElseIf e.KeyCode = Keys.Up Then
+            If DGVi > 0 Then
+                DGVi = DGVi - 1
+                dgvListUser.Rows(DGVi).Selected = True
+            End If
+        End If
+
+    End Sub
+
     Private Sub cmdReset_Click(sender As Object, e As EventArgs) Handles cmdReset.Click
         TextBox1.Text = ""
         cbDomain.SelectedItem = "*"
@@ -140,4 +196,7 @@ Public Class uscntr_DomUserList
         Class1.datatable_2_csv_export(LoadDGV(True))
     End Sub
 
+    Private Sub dgvListUser_CellContentClick_1(sender As Object, e As DataGridViewCellEventArgs) Handles dgvListUser.CellClick
+        DGVi = dgvListUser.CurrentRow.Index
+    End Sub
 End Class