Public Class Debut Private Sub REX_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Timer1.Start() Timer2.Start() End Sub Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick If ProgressBar1.Value = 100 Then ProgressBar1.Value = 100 Else ProgressBar1.Value = ProgressBar1.Value + 1 End If End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick ' taForm.Show() ProgressBar1.Value = 100 Me.Hide() End Sub End Class
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionje pense pas que tu as compris ma question MINDONGO