Blague : formatage-déformatage

Télécharger le projet
Commenter

Description

Encore un programme qui sert à rien : On peut faussement formater ou "déformater" en activant ou pas le son... Je vous laisse découvrire ce paysage de désolation...

Source / Exemple : 


Private Sub Command1_Click()
Prout.Visible = True
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
    Timer2.Enabled = True
End Sub

Private Sub Timer1_Timer()
If Check1.Value = Checked Then Beep
If Prout.Value = 100 Then MsgBox " Formatage terminé avec succès !"
If Prout.Value = 100 Then
    Timer1.Enabled = False
    Command1.Visible = False
    Command2.Visible = True
Else
    Prout.Value = Prout.Value + 1
End If
End Sub

Private Sub Timer2_Timer()
If Check1.Value = Checked Then Beep
If Prout.Value = 0 Then MsgBox " Déformatage terminé avec succès !"
If Prout.Value = 0 Then
    Timer2.Enabled = False
    Command1.Visible = True
    Command2.Visible = False
Else
    Prout.Value = Prout.Value - 1
End If
End Sub
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (sebleboss2002)