neu

VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyTextBox.vb

@@ -102,6 +102,11 @@ Public Class MyTextBox
         addNowBtnToDate2()
         'addPicToGueltigBis()
     End Sub
+
+    Sub initPINSHowPic()
+        addNowBtnToPIN()
+        'addPicToGueltigBis()
+    End Sub
     Public Sub addNowBtnToDate()
         Dim tb = Me
         Dim pb As New MyLinkPicBoxVALUE
@@ -161,6 +166,33 @@ Public Class MyTextBox
                                        End If
                                    End Sub
 
+    End Sub
+
+    Public Sub addNowBtnToPIN()
+        Dim tb = Me
+        Dim pb As New MyLinkPicBoxVALUE
+        tb.Parent.Controls.Add(pb)
+        pb.Tag = "Feld bearbeiten"
+        pb.Left = tb.Left + tb.Width + 5 : pb.Top = tb.Top
+        pb.Height = 15 : pb.Width = 15
+        pb.Anchor = tb.Anchor
+        pb.SizeMode = PictureBoxSizeMode.Zoom
+        pb.Cursor = Cursors.Hand
+        pb.Image = My.Resources.stift
+        pb.linkedTextBox = tb
+
+        ' ToolTip Text zuordnen
+        Dim tooltip As New ToolTip '
+        tooltip.SetToolTip(pb, "Heute")
+
+        AddHandler pb.Click, AddressOf linkclickedPIN
+
+        'AddHandler tb.EnabledChanged, Sub(send, ev)
+        '                                  tb.ForeColor = Color.Black
+        '                              End Sub
+
+
+
     End Sub
 
 
@@ -176,6 +208,18 @@ Public Class MyTextBox
         End Try
     End Sub
 
+    Sub linkclickedPIN(sender As Object, e As EventArgs)
+        'Dim DateTimePicker1 As New DateTimePicker
+        ' Me.Parent.Controls.Add(DateTimePicker1)
+        Try
+            Dim tb As TextBox = sender.linkedTextBox
+            ' tb.Enabled = True
+            tb.ReadOnly = False
+            tb.BackColor = Color.White
+
+        Catch ex As Exception
+        End Try
+    End Sub
     Public Sub addPicToGueltigBis()
         Dim tb = Me
         Dim pb As New MyLinkPicBoxVALUE