Hallo,
ich würde gerne in mein Panel ein Label erstellen wo z.b. "Testtext" steht, daneben soll auch ein Button erscheinen.
Klickt man jetzt auf den Button so soll eine aktion ausgeführt werden und das Label und Button aus der Zeile soll verschwinden...
Ich habe es jetzt soweit das Label und Button erstellt werden, so sieht es aus
das ist der Code: (Label und Button wird erstellt)
das ist der Code wenn man auf den Button 27 Klickt bzw. was er machen soll aber nicht macht da es dann denke ich mal kein Button27 mehr ist oder?
Meine Frage, wie bekomm ich das hin das er die Zeile löscht, beispiel auf den Bild klickt man auf den zweiten Button, nun soll das Label und Button in zeile zwei verschwinden?
danke für eure Hilfe!!!!
ich würde gerne in mein Panel ein Label erstellen wo z.b. "Testtext" steht, daneben soll auch ein Button erscheinen.
Klickt man jetzt auf den Button so soll eine aktion ausgeführt werden und das Label und Button aus der Zeile soll verschwinden...
Ich habe es jetzt soweit das Label und Button erstellt werden, so sieht es aus
das ist der Code: (Label und Button wird erstellt)
VB.NET-Quellcode
- Private Sub Kassensystem()
- Dim a As New Label
- Dim b As New Button
- Dim Y As Integer = Label24.Location.Y
- Dim X As Integer = Label24.Location.X
- Dim V As Integer = Button27.Location.Y
- Dim W As Integer = Button27.Location.X
- For Each T As Control In Me.Panel4.Controls
- If TypeOf T Is Label AndAlso T.Location.Y > Y Then Y = T.Location.Y
- If TypeOf T Is Button AndAlso T.Location.Y > Y Then Y = T.Location.Y
- Next
- a.Parent = Me
- a.Location = New Point(Label24.Location.X, Y + 40)
- b.Parent = Me
- b.Location = New Point(Button27.Location.X, Y + 40)
- Me.Panel4.Controls.Add(a)
- Me.Panel4.Controls.Add(b)
- With a
- .Name = "Labellabel"
- .Text = "Ich bin ein Testtext"
- .AutoSize = True
- End With
- With b
- .Name = "Buttonlabel"
- .Text = "Kunden Kassieren"
- .AutoSize = True
- End With
- End Sub
das ist der Code wenn man auf den Button 27 Klickt bzw. was er machen soll aber nicht macht da es dann denke ich mal kein Button27 mehr ist oder?
VB.NET-Quellcode
- Private Sub Kassieren()
- Dim a As New Label
- Dim b As New Button
- Dim Y As Integer = Label24.Location.Y
- Dim X As Integer = Label24.Location.X
- Dim V As Integer = Button27.Location.Y
- Dim W As Integer = Button27.Location.X
- Me.Panel4.Controls.Remove(a)
- Me.Panel4.Controls.Remove(b)
- Me.Panel4.Controls.RemoveByKey("Labellabel")
- Me.Panel4.Controls.RemoveByKey("Buttonlabel")
- End Sub
Meine Frage, wie bekomm ich das hin das er die Zeile löscht, beispiel auf den Bild klickt man auf den zweiten Button, nun soll das Label und Button in zeile zwei verschwinden?
danke für eure Hilfe!!!!