picture

2024-10-01 11:02:00 +02:00
parent a5921c5faf
commit 76fbf96823
13 changed files with 35 additions and 24 deletions
--- a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte
+++ b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte
@@ -129,7 +129,7 @@ Public Class MyTextBox
        AddHandler pb.Click, AddressOf linkclicked
    End Sub
    Public Sub addNowBtnToDate2()
-        Dim tb = Me
+        Dim tb As MyTextBox = Me
        Dim pb As New MyLinkPicBoxVALUE
        tb.Parent.Controls.Add(pb)
        pb.Tag = "Heute"
@@ -223,7 +223,7 @@ Public Class MyTextBox
        End Try
    End Sub
    Public Sub addPicToGueltigBis()
-        Dim tb = Me
+        Dim tb As MyTextBox = Me
        Dim pb As New MyLinkPicBoxVALUE
        tb.Parent.Controls.Add(pb)
        pb.Tag = "Gültig Bis"