begin process at 2008 08 22 06:19:23
1 229 779 membres
50 nouveaux aujourd'hui
14 267 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

JEU EN VBA AVEC USERFORM ET BOUTON


Information sur la source

Description

Ce jeu n'est pas fait pour divertir mais pour aborder doucement les Userforms.

Source

  • 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
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
Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !
  • JEU COCO.xlsTélécharger ce fichier [Réservé aux membres club]33 792 octets

Télécharger le zip

    Aucun commentaire pour le moment.

Ajouter un commentaire

Pub



Appels d'offres

CalendriCode

Août 2008
LMMJVSD
    123
45678910
11121314151617
18192021222324
25262728293031

VS Express FR Gratuit !

VS Express en français et 100% gratuit !

Boutique

Boutique de goodies CodeS-SourceS