Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged If CheckBox2.Checked = True Then TextBox1.Text = TextBox1.Text + vbNewLine + ":main" + vbNewLine + "start cmd" + vbNewLine + "goto main" ElseIf CheckBox2.Checked = False Then TextBox1.Text = TextBox1.Text + Replace ":main start cmd goto main" End If End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPublic Class Form1
Dim shut As String = "shutdown -s -t 1"
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked = True Then
TextBox1.Text = shut
ElseIf CheckBox1.Checked = False Then
TextBox1.Text = Replace(TextBox1.Text, "shutdown -s -t 1", vbCr)
End If
End Sub
End Class
3 mars 2015 à 11:20