Anniversaire

Soyez le premier à donner votre avis sur cette source.

Vue 4 693 fois - Téléchargée 340 fois

Description

il faut 2 form.
2 timer
2 label
2 command button

Source / Exemple :


'Form1
'commandclick
Private Sub Command1_Click()

msg1 = InputBox("quelle jour tu est né?!", "question!!")
If msg1 = ("1er avril 1958") Then '0 = écrive les differente variable des dates de nécanse ou nésanse eeuuhh comment sa s'écrit
Form2.Show
End If
If msg1 = ("premier avril 1958") Then '0
Form2.Show
End If
If msg1 = ("premier avril 58") Then '0
Form2.Show
End If
If msg1 = ("01/04/58") Then '0
Form2.Show
End If
If msg1 = ("01/04/1958") Then '0
Form2.Show
End If
If msg1 = ("1er avril 58") Then '0
Form2.Show
End If
If msg1 = ("") Then
 msg0 = MsgBox("ya rien la ta rmarqué!!", vbCritical, "2+2=4")
End If
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()

End Sub

Private Sub Timer1_Timer()
Label1.Caption = (Date + Time)
End Sub

'form2:
Dim msg As String
Dim i As Integer

Private Sub Form_Load()
msg = "bon anniversaire papa "
End Sub

Private Sub Timer1_Timer()
If i = 0 Then
    i = Len(msg)
End If
Label1.Caption = Right(msg, i) + Left(msg, Len(msg) - i)
i = i - 1
Form2.Caption = Right(msg, Len(msg) - i) + Left(msg, i)
End Sub

Conclusion :


et voila dans la form2 faite un cadeau ou un gateau avec des shape!!

Codes Sources

A voir également

Ajouter un commentaire Commentaires
"dates de nécanse ou nésanse"
mwahahahaha !!! bon je t'excuse qd même t'as que 14 ans ...
Ca me rappelle des bons souvenirs... j'avais fait ça en QBasic quand j'étais petit et ça se lançait automatiquement au démarrage du PC... Le mien jouait de la musique aussi ...

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.