Autres VBA: remplacer LoadPicture

[Staple1600]

Bonsoir à tous

Voila le problème:

Sub Hopover()
Randomize
Jets = Int(6 * Rnd + 1)
    With Me.Controls(Tableau_DES(i))
        '.Picture = LoadPicture(iSrc & Jets & '.bmp')
        .Picture = Me.imgde & Jets.Picture 'syntaxe impropre
        .Caption = Jets
    End With
End If
Next i
End Sub

J'ai uploader un jeu de yathzee dans le salon
J'essaie de ne plus utiliser LoadPicture en stockant les images sur le userform
Mais le code modifié ne fonctionne pas
(ce que je comprends tout à fait)
Quelqu'un peut-il m'aider, svp?

 

[Hervé]

Bonsoir staple

pas sur d'avoir compris, mais as tu fait un essai comme ceci :

.Picture = Controls('imgde' & Jets).Picture

J'ai utilisé la meme technique que toi pour le minisolitaire, stocker les images directement sur l'userform, c'est vrai que c'est plus pratique.

salut

 

[Hervé]

re staple

en piece jointe une proposition pour ton jeu.

j'ai pas bien compris les regles, je me suis donc limité à faire un module de classe pour gerer les boutons, déplacer les images, interdire un déplacement de plus de deux cases.

je te rappelle que ne connaissant pas les regles de ce jeu, il te faudra surement adapter, mais le principe est là.

autre chose, hide masque un userform, pour le fermer, utilise : unload.

j'ai passé 20 minutes à chercher pourquoi ce foutu userform ne se réinitialisait pas lors d'une nouvelle ouverture

salut

ps : j'ai renommé les boutons, désolé. [file name=hopover_20051223010026.zip size=15751]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/hopover_20051223010026.zip[/file]

Message édité par: Hervé, à: 23/12/2005 01:01

 

[MichelXld]

bonjour Staple1600 , bonjour Hervé

bravo pour ces tres belles demos

sinon il est ausi possible de stocker les differentes images du projet directement dans l'objet ImageList

ci joint un exemple à adapter

Lien supprimé

Lien supprimé


bonne journée
MichelXld

 

[Hervé]

salut michel

Waouh, encore un control que je ne connaissais pas.

Merci pour ces liens, j'ai de quoi bosser pendant mes vacances maintenant.

salut

 

[Staple1600]

Bravo Hervé

Ton module de classe correspond exactement
à ce que je cherchais à faire.

Pour ceux que ça interesse:
http://www.cheesygames.com/hopover


J'ai essayé en vain d'adapter le code javascript
de ce dernier lien mais en vain

Heureusement Hervé était là

Si d'autres personnes ont d'autres solutions
N'hésitez pas.
Cela nourrira mon appétit pour VBA


Ci-joint une version avec des règles plus explicites (et qui fonctionne grâce à Hervé)

Bon amusement

=> lien obsolète (suite mise à jour du forum de l'époque)

NB: Heureusement, il reste les PJ de mes petits camarades de jeux
(qui sont basés sur ma PJ initiale)

 

[Hervé]

re staple, le forum

grace à tes liens, je pense avoir mieux compris les regles.

les boutons noirs ne peuvent se déplacer que vers la gauche, et les blancs que vers la droite, on ne peut sauter un pion que que si il est de couleur différente, c'est ca ?

si oui, une version plus aboutie, qui gere les autorisations de déplacement, couleur du bouton sélectionner, réinitialisation du plateau correcte, optimisation du code.

je te laisse le soin de tester, et de me confirmer que j'ai bien compris les regles.

par contre, y'a une solution à ce casse tete ?

salut [file name=hopover1_20051223141110.zip size=22261]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/hopover1_20051223141110.zip[/file]

 

[Hervé]

re

correction d'un bug

salut [file name=hopover1_20051223144517.zip size=23400]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/hopover1_20051223144517.zip[/file]

 

[Staple1600]

Re bonjour le forum, Hervé

Je vais essayer de fournir une règle claire

Déplacement des pions
Les pions noirs uniquement vers la droite
Les pions blancs uniquement vers la gauche

Saut des pions
Un pion noir ne peut sauter qu'un pion blanc
(en sautant vers la droite)
Un pion blanc ne peut sauter qu'un pion noir
(en sautant vers la gauche)

On ne peut annuler aucun mouvement
(déplacement ou saut)
il faut alors recommencer la partie

Position de départ:
NNNN0BBBB
Position gagnante
BBBB0NNNN

Il suffit pour gagner d'avoir l'astuce...

EDITION: Merci pour tes dernières productions.
Notamment celle avec le module de classe.

 

[Hervé]

re

Tu as pas du télécharger la derniere version, car ce bug à été corrigé.

en pièce jointe ma version final, avec rajout d'un msg quand on à gagné.

salut [file name=hopover1_20051223180435.zip size=24377]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/hopover1_20051223180435.zip[/file]

 

[Hervé]

re

en pièce jointe meme principe mais pour 9,11 ou 13 pièces.

je suppose que pour les 13 pièces, la figure de base ne sera pas la meme.

je te laisse le soin de modifier en conséquence.

tout se passe dans la procédure interface, c'est ici qu'il faut que tu modifies qu'elle bouton aura qu'elle image.

le module de classe (et c'est l'avantage de ce type de procédure) s'adaptera au plateau de jeu.

salut

ps : je te laisse le soin, d'embellir cette userform. [file name=hopover3.zip size=19774]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/hopover3.zip[/file]