Soyez le premier à donner votre avis sur cette source.
Vue 13 897 fois - Téléchargée 1 089 fois
Private Sub bouton_Click() c = MsgBox("Bravo", vbInformation, "Le jeu de Coco") userform1.Hide End Sub Private Sub bouton_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) a = Int(200 * Rnd) + 1 b = Int(200 * Rnd) + 1 bouton.Left = a bouton.Top = b End Sub Private Sub CommandButton1_Click() c = MsgBox("Pssss vraiment trop nul", vbInformation, "Le jeu de Coco") c = MsgBox("Allez faire un tour sur ce site : http://nico-le-coco.fr.st", vbInformation, "Le jeu de Coco") userform1.Hide End Sub Private Sub CommandButton1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) c = MsgBox("Tu as triché, donc tu as perdu !", vbInformation, "Le jeu de Coco") bouton.Visible = False CommandButton1.Top = 70 CommandButton1.Left = 140 CommandButton1.Height = 200 CommandButton1.Width = 200 End Sub
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.