Checkbox and Textbox

[Oops21]

Hi all i need help with it, I'm trainig to make a program, when you check 2 different Checkbox it add on textbox. The textbox need create a other line witout delete the fist.

I dont have problems when checkbox it add on textbox but i dont make me a new line it's all togheter.

Thankx

ps: sorry for my bad english

[acrym]

There are many methods to this... One that I came up with is: Put your Checkboxes in a Groupbox (make it invisible if necessary). Then use a For...Each loop to check how many are checked:

Dim n as Short
For Each chkbox as Checkbox in GroupBox1.Controls
If chkbox.Checked = True Then n+=1
Next
If n >=2 Then 'add whatever you wanted here

Please tell me that I understood your question correctly and this is what you want

[docfnt]

I think I'm down a similar road here. I would have had it here much sooner, but I keep getting logged out for some reason.

Try this;

Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Text = "Hello World!"
        TextBox1.Multiline = True
    End Sub
    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged, CheckBox2.CheckedChanged
        If CheckBox1.Checked And CheckBox2.Checked = True Then
            'new text is the text you will add on new line
            TextBox1.Text = (TextBox1.Text & vbCrLf & "Nice to see You!")
        End If
    End Sub
    
End Class

[docfnt]

actually, the line

TextBox1.Multiline = True

is not necessary.
You have to change the textbox property to multiline in the "Properties" window to accomplish this, then stretch the textbox vertically.
Or you could code it to change size with each additional line.

This demonstrates the send approach;


Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Text = "Hello World!"
TextBox1.Multiline = True
End Sub
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged, CheckBox2.CheckedChanged
If CheckBox1.Checked And CheckBox2.Checked = True Then
'new text is the text you will add on new line
TextBox1.Size = New Size(TextBox1.Width, TextBox1.Height + 15)
TextBox1.Text = (TextBox1.Text & vbCrLf & "Nice to see You!")
End If
End Sub

End Class

Sorry, I cant get the code to format to vb this time!

[Oops21]

I think I'm down a similar road here. I would have had it here much sooner, but I keep getting logged out for some reason.

Try this;

Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Text = "Hello World!"
        TextBox1.Multiline = True
    End Sub
    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged, CheckBox2.CheckedChanged
        If CheckBox1.Checked And CheckBox2.Checked = True Then
            'new text is the text you will add on new line
            TextBox1.Text = (TextBox1.Text & vbCrLf & "Nice to see You!")
        End If
    End Sub
    
End Class

It's good the problem is i already have a group of checkbox but i have 2
the fist group have names and the senc have numbers where it say "nice to see you" I need add other checkbox's

[docfnt]

This adds a new checkbox. You should be able to get it from here on...

Public Class Form1
 
    'CheckBox1 location = (12, 12)
    'CheckBox1 location = (12, 35)
    'textbox1.location = (12, 121)
 
    Private Sub Form1_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Text = "Hello World!"
        TextBox1.Multiline = True
    End Sub
    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged, CheckBox2.CheckedChanged
        If CheckBox1.Checked And CheckBox2.Checked = True Then
            'new text is the text you will add on new line
            TextBox1.Size = New Size(TextBox1.Width, TextBox1.Height + 15)
            TextBox1.Text = (TextBox1.Text & vbCrLf & "Nice to see You!")
            Dim CheckBox3 As New CheckBox
            CheckBox3.Location = New Point(12, 58)
            CheckBox3.Size = New Size(81, 17)
            CheckBox3.Text = "CheckBox3"
            Me.Controls.Add(CheckBox3)
 
            AddHandler CheckBox3.CheckedChanged, AddressOf CheckBox3_CheckedChanged
        End If
    End Sub
 
    Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, _
    ByVal e As System.EventArgs)
        'whatever you want here
        TextBox1.Size = New Size(TextBox1.Width, TextBox1.Height + 15)
        TextBox1.Text = (TextBox1.Text & vbCrLf & "Same Goes")
    End Sub
 
End Class

[Oops21]

This adds a new checkbox. You should be able to get it from here on...

Public Class Form1
 
    'CheckBox1 location = (12, 12)
    'CheckBox1 location = (12, 35)
    'textbox1.location = (12, 121)
 
    Private Sub Form1_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Text = "Hello World!"
        TextBox1.Multiline = True
    End Sub
    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged, CheckBox2.CheckedChanged
        If CheckBox1.Checked And CheckBox2.Checked = True Then
            'new text is the text you will add on new line
            TextBox1.Size = New Size(TextBox1.Width, TextBox1.Height + 15)
            TextBox1.Text = (TextBox1.Text & vbCrLf & "Nice to see You!")
            Dim CheckBox3 As New CheckBox
            CheckBox3.Location = New Point(12, 58)
            CheckBox3.Size = New Size(81, 17)
            CheckBox3.Text = "CheckBox3"
            Me.Controls.Add(CheckBox3)
 
            AddHandler CheckBox3.CheckedChanged, AddressOf CheckBox3_CheckedChanged
        End If
    End Sub
 
    Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, _
    ByVal e As System.EventArgs)
        'whatever you want here
        TextBox1.Size = New Size(TextBox1.Width, TextBox1.Height + 15)
        TextBox1.Text = (TextBox1.Text & vbCrLf & "Same Goes")
    End Sub
 
End Class

Nop look what my checkbox say, every checkbox what i have say somthing i need just a new line in textbox

look my code:

If CheckBox2.Checked And CheckBox8.Checked = True Then
TextBox1.Text = "bind kp_downarrow m41a"

when they check both check it add on textbox then in the textbox need a new line with other 2 checkbox

[docfnt]

Can you be a little clearer on that please, I can't understand you.

[Oops21]

Can you be a little clearer on that please, I can't understand you.

Yes, the fist check box choise a weapon, and che second checkbox choise the number, when they chose fist wearopn and number it add on textbox
in the textbox it make a new line, without deleted the fist, and when you choise differenct it add on the textbox

If CheckBox2.Checked And CheckBox8.Checked = True Then
TextBox1.Text = "bind kp_downarrow m41a"


Checkbox2 = "m41a" and checkbox8 = "kp_downarrow" (number 2 on key pad)
them it add on the textbox like it: "bind kp_downarrow m41a"
When it's add(txtbox) it make a new line witouth deleted.


If CheckBox2.Checked And CheckBox8.Checked = True Then
TextBox1.Text = "bind kp_downarrow m41a" & vbCrLf & (other checkbox's)