neue version

SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlSearch.vb

@@ -0,0 +1,37 @@
+Imports System.Windows.Forms
+Imports System.Drawing
+
+Public Class usrcntlSearch
+    Public Event DGV_Click(sender As Object, e As EventArgs)
+    Public Event DGV_KeyDown(sender As Object, e As KeyEventArgs)
+     Public Event CLOSE(sender As Object, e As EventArgs)
+
+    Private Sub dgvKundenAktiv_Click(sender As Object, e As EventArgs) Handles dgvKundenAktiv.Click
+        RaiseEvent DGV_Click(sender, e)
+
+    End Sub
+
+
+    Private Sub dgvFindKD_Click(sender As Object, e As KeyEventArgs) Handles dgvKundenAktiv.KeyDown
+        RaiseEvent DGV_KeyDown(sender, e)
+    End Sub
+
+
+    Private Sub usrcntlKdSearch_SizeChanged(sender As Object, e As EventArgs) Handles Me.SizeChanged
+        Me.pnl.Location = New Point(2, 2)
+        Me.pnl.Size = New Size(Me.Width - 4, Me.Height - 4)
+    End Sub
+
+    Private Sub lblClose_Click(sender As Object, e As EventArgs) Handles lblClose.Click
+        RaiseEvent CLOSE(sender, e)
+    End Sub
+
+    Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
+        Try
+            MyBase.OnPaint(e)
+        Catch ex As Exception
+            Me.Invalidate()
+        End Try
+    End Sub
+
+End Class