Visual Basic :Logiciel Simple:Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text = "ABC" And TextBox2.Text = "DEF" Then TextBox1.ReadOnly = True TextBox2.ReadOnly = True Button1.Enabled = False Me.MinimizeBox = False Button2.Visible = True ToolStripProgressBar1.Visible = True Timer1.Start() MsgBox("Patientez...") Else MsgBox("Merci de remplire tout les champs") End If End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick ToolStripStatusLabel1.Text = "En attente de Form2 ..." ToolStripProgressBar1.Increment(1) If ToolStripProgressBar1.Value = ToolStripProgressBar1.Maximum Then ToolStripStatusLabel1.Text = "Terminé" Form2.Show() End If End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Timer1.Stop() TextBox1.ReadOnly = False TextBox2.ReadOnly = False Button1.Enabled = True Me.MinimizeBox = True Button2.Visible = False ToolStripProgressBar1.Value = 0 End Sub code pour embarquer la vidéo : >>> http://www.youtube.com/embed/IZb8kQisDek <<< |