Nouvelle version de mon PUZZLE avec une option pour intégrer les images de votre choix COOLL
Source / Exemple :
Private Sub Picture1_DragDrop(Index As Integer, Source As Control, X As Single, Y As Single)
Dim Rep As VbMsgBoxResult
'Vérifier si on peut deplacer l'image
If TP(Index, 1) = 19 Then
Picture2.Picture = Picture1(Inx).Image
Picture1(Inx).Picture = Picture1(Index).Image
Picture1(Index).Picture = Picture2.Picture
a = TP(Index, 1)
TP(Index, 1) = TP(Inx, 1)
TP(Inx, 1) = a
End If
'Vérification si le puzzle est términé
For i = 0 To 19
If TP(i, 0) <> TP(i, 1) Then Exit Sub
Next
For i = 0 To 19
Picture1(i).BorderStyle = 0
Next
Rep = MsgBox("Bravo, Voulez-vous rejouer la partie !", vbYesNo + vbInformation, "Puzzle 2.0")
If Rep = vbYes Then Form2.Show
For i = 0 To 19
Picture1(i).Enabled = False
Next
End Sub
C'est une nouvelle version de mon PUZZLE avec une option de joué avec les images de votre choix c'est COOLL
Je vais esseyé d'amilioré mon puzzle surtout au niveau de la diffeculté et la gestion du score, Merci.
Conclusion :
Je vais essayer d'améliorer mon puzzle au niveau de la Difficulté et la gestion du
Score.
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.