DEMINEUR AUTOMATIQUE

Messages postés
29
Date d'inscription
mardi 29 janvier 2002
Statut
Membre
Dernière intervention
27 janvier 2006
- - Dernière réponse : nathansecret
Messages postés
63
Date d'inscription
mardi 11 novembre 2008
Statut
Membre
Dernière intervention
31 octobre 2011
- 23 juin 2010 à 16:28
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/2649-demineur-automatique

Afficher la suite 
nathansecret
Messages postés
63
Date d'inscription
mardi 11 novembre 2008
Statut
Membre
Dernière intervention
31 octobre 2011
-
Sinon des fois il foire un peu : il affiche des MsgBox "Gagné" ou "Perdu" alors qu'il est en pleine partie... Ni gagnée ni perdue...
nathansecret
Messages postés
63
Date d'inscription
mardi 11 novembre 2008
Statut
Membre
Dernière intervention
31 octobre 2011
-
Pour "With" et "End With", effectivement cela sert à ne pas avoir à taper plusieurs fois le nom d'un objet, d'une feuille.
nathansecret
Messages postés
63
Date d'inscription
mardi 11 novembre 2008
Statut
Membre
Dernière intervention
31 octobre 2011
-
Tu peux noter qu'il marche aussi sur XP !
Merci pour cette source géniale...
zwarul
Messages postés
35
Date d'inscription
vendredi 4 février 2005
Statut
Membre
Dernière intervention
3 août 2008
-
Dim CaseX, CaseY As Integer
Screen.MousePointer = vbHourglass
For i = 0 To 9
With imgCase(i + 11 * GraphNum)
CaseX = (Me.Left + .Left) / 15
CaseY = (Me.Top + .Top) / 15
CaseCoul(i, 0) = GetPixelScreenColor((CaseX + 8), (CaseY + 7))
CaseCoul(i, 1) = GetPixelScreenColor((CaseX + 8), (CaseY + 11))
End With
Next i

c'est la partie en rouge, y a t il une personne qui saurait me faire "une explication de texte"????
j'ai cru comprendre que with et and with permettent d'assigner plusieur propriétés à un objet sans avoir à le recopier x fois, mais le je ne comprends pas tout: caseX et caseY seraient des propriétés de imgCase??? aisi que CaseCoul???

donc voilà comprend pas l'utilisation de with et and with et je ne comprend pas à quoi correspond: (Me.Left + .Left)

ce code est issu de http://www.vbfrance.com/codes/DEMINEUR-AUTOMATIQUE_2649.aspx
gloomy64
Messages postés
46
Date d'inscription
lundi 18 octobre 2004
Statut
Membre
Dernière intervention
3 avril 2008
-
Pas très au point mais l'idée est génial... et point de vu code très bien optimisé 10/10