Checkbox Text in eine Textbox

GermansolvedQuestion VB for Applications Entwicklung

Hallo,

ich möchte, dass wenn ich eine Checkbox anklicke der Text der Checkbox in einer Textbox erscheint, und wenn ich das Häkchen wieder wegmache soll der Text wieder verschwinden.
ich habe es so gemacht:

Private sub Text()
For a = 1 To 68
Dim ch As CheckBox = Me.Controls("ch" & a)
If ch.Checked Then
txtTextbox.Text &= vbNewLine & ch.Text
End If
Next
End Sub

Das Funktioniert aber leider nicht. Hat jemand eine Ahnung wieso? Und kann mir jemand sagen wie man es richtig macht?

Please also mark the comments that contributed to the solution of the article

Content-ID: 284735

Url: https://administrator.de/forum/checkbox-text-in-eine-textbox-284735.html

Printed on: May 13, 2025 at 05:05 o'clock

4 Comments

Latest comment

Hallo,

Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked Then
TextBox1.Text = CheckBox1.Text
Else
TextBox1.Text = ""
End If
End Sub

Gruß Frank

Zitat von @SachsenHessi:

Hallo,

Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked Then
TextBox1.Text = CheckBox1.Text
Else
TextBox1.Text = ""
End If
End Sub

Gruß Frank

Hat funktioniert! Danke.

Aber noch eine Frage, wenn ich jetzt das Häkchen von der Checkbox wegnehme, wird der ganze Text gelöscht aus der Textbox, ich möchte aber nur, dass der Text der Checkbox gelöscht wird.
z.B. der Text der Checkbox ist "Eins" und in der Textbox steht "Hallo" dann soll nur das Wort Eins gelöscht werden, Hallo soll stehen bleiben. Geht das auch?

Public Class Form1
    Dim list As New SortedList

    Private Sub CheckBox1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox1.CheckedChanged
        UpdateTextbox(sender)
    End Sub

    Private Sub CheckBox2_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox2.CheckedChanged
        UpdateTextbox(sender)
    End Sub

    Private Sub CheckBox3_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox3.CheckedChanged
        UpdateTextbox(sender)
    End Sub

    Private Sub CheckBox4_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox4.CheckedChanged
        UpdateTextbox(sender)
    End Sub

    Sub UpdateTextbox(sender As Object)
        If sender.checked Then
            list.Add(sender.name, sender.Text)
        Else
            list.Remove(sender.name)
        End If
        TextBox1.Text = String.Join(vbNewLine, list.Values.Cast(Of String).ToArray())
    End Sub
End Class

Gruß grexit

Zitat von @122990:

> Public Class Form1
>     Dim list As New SortedList
> 
>     Private Sub CheckBox1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox1.CheckedChanged
>         UpdateTextbox(sender)
>     End Sub
> 
>     Private Sub CheckBox2_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox2.CheckedChanged
>         UpdateTextbox(sender)
>     End Sub
> 
>     Private Sub CheckBox3_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox3.CheckedChanged
>         UpdateTextbox(sender)
>     End Sub
> 
>     Private Sub CheckBox4_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox4.CheckedChanged
>         UpdateTextbox(sender)
>     End Sub
> 
>     Sub UpdateTextbox(sender As Object)
>         If sender.checked Then
>             list.Add(sender.name, sender.Text)
>         Else
>             list.Remove(sender.name)
>         End If
>         TextBox1.Text = String.Join(vbNewLine, list.Values.Cast(Of String).ToArray())
>     End Sub
> End Class
> 

Gruß grexit

Vielen dank! Endlich funktioniert alles wie gewollt! Danke danke danke.

GermansolvedQuestion VB for Applications Entwicklung