Private Sub ComboBox1_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedValueChanged If (DirectCast(sender, ComboBox).SelectedItem) = "transformé" Then TextBox1.Text = "110" End If If (DirectCast(sender, ComboBox).SelectedItem) = "Non transformé" Then TextBox1.Text = "0" End If End Sub
De plus, si je ne selectionne rien dans la combobox, alors ValQ = "110"
Option Explicit On Public Class Form1 Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try ' calcul TextBox4.Text = CDbl(TextBox2.Text) - CDbl(TextBox1.Text) - CDbl(TextBox3.Text) Catch ex As Exception MsgBox("Saisie unvalide, remédier... ", vbExclamation) TextBox2.Focus() End Try End Sub Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged TextBox1.Text = "0" End Sub Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged TextBox1.Text = "110" End Sub End Class
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim alternat As Boolean = 1 Form1_Load(... Call Button1_Click(sender, e) End Sub Sub Button1_Click(... alternat = not alternat Select Sase alternat Case 0: Textbox1.Text = "0" Case 1: Textbox1.Text = "110" End Select End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load TextBox1.Text = "110" RadioButton2.Checked = True RadioButton1.Checked = False
Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged TextBox1.Text = "0" RadioButton1.ForeColor = Color.Green RadioButton2.ForeColor = Color.Red End Sub Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged TextBox1.Text = "110" RadioButton1.ForeColor = Color.Red RadioButton2.ForeColor = Color.Green End Sub