Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPublic Class Form1 Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load GroupBox1.Top = 10 GroupBox1.Left = 10 Button1.Top = 12 Button1.Left = 12 RadioButton1.Top = 50 RadioButton1.Left = 12 RadioButton2.Top = 75 RadioButton2.Left = 12 GroupBox1.Height = 100 GroupBox1.Width = 150 GroupBox1.Text = "" Button1.Text = "Fermer" End Sub Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click If GroupBox1.Height = 100 Then GroupBox1.Height = 40 Button1.Text = "Ouvrir" Else GroupBox1.Height = 100 Button1.Text = "Fermer" End If End Sub End Class
30 mai 2015 à 23:38