dotNETportal.cz

'Dobrý den,mám tu takovýto kód:'

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        SaveFileDialog1.ShowDialog()
    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            TextBox1.Text = "seta cg_drawsun 1" & Environment.NewLine
        End If

        If CheckBox1.Checked = False Then
            TextBox1.Text = "seta cg_drawsun 0" & Environment.NewLine

        End If
    End Sub

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
        If CheckBox2.Checked = True Then
            TextBox1.Text = "seta cg_drawsun 11" & Environment.NewLine
        End If

        If CheckBox2.Checked = False Then
            TextBox1.Text = "seta cg_drawsun 34" & Environment.NewLine
        End If
    End Sub
End Class

'Tento kód nefunguje jak by možná měl. Potřebuji aby když někdo klikne na CheckBox1 a poté CheckBox2 aby to Text z CheckBoxu2 hodilo na další řádek...Mohl by mi stím někdo pomoct?'

Každým novým zápisem do TextBox1 přepisujete zápis předchozí. Aby se nový text připojoval (vč. odřádkování s Environment.NewLine), změňte všechna = na &=

Příklad:

  TextBox1.Text &= "seta cg_drawsun 1" & Environment.NewLine

'Tak toto funguje ale píše to vedle sebe...'

Public Class Form1

   Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            TextBox1.Text &= "seta cg_drawsun 1" & Environment.NewLine
        End If

        If CheckBox1.Checked = False Then
            TextBox1.Text &= "seta cg_drawsun 0" & Environment.NewLine
        End If

    End Sub

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
        If CheckBox2.Checked = True Then
            TextBox1.Text &= "seta cg_drawsun 11" & Environment.NewLine
        End If

        If CheckBox2.Checked = False Then
            TextBox1.Text &= "seta cg_drawsun 34" & Environment.NewLine
        End If
    End Sub

End Class

'Doufám že jsem to udělal jak jste psal.'

TextBox je defaultně nastavený jako jednořádkový. Buď v návrhovém prostředí v tabulce vlastností mu nastavte Multiline na True anebo do kódu, nejlépe do Load formuláře, vložte:

  TextBox1.Multiline = True

Bezvadné funguje to :) Jen ještě otázka: Jak vymažu při kliknutí na jiný CheckBox ten řádek s předešlým Příkazem?

Keď chcete zmazať predošlé, použite = , keď chcete pridať, použite &= .