Tr0m
Messages postés29Date d'inscriptionmardi 29 janvier 2002StatutMembreDernière intervention27 janvier 2006
-
20 févr. 2002 à 07:48
nathansecret
Messages postés63Date d'inscriptionmardi 11 novembre 2008StatutMembreDernière intervention31 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.
nathansecret
Messages postés63Date d'inscriptionmardi 11 novembre 2008StatutMembreDernière intervention31 octobre 2011 23 juin 2010 à 16:28
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és63Date d'inscriptionmardi 11 novembre 2008StatutMembreDernière intervention31 octobre 2011 23 juin 2010 à 16:22
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és63Date d'inscriptionmardi 11 novembre 2008StatutMembreDernière intervention31 octobre 2011 23 juin 2010 à 14:41
Tu peux noter qu'il marche aussi sur XP !
Merci pour cette source géniale...
zwarul
Messages postés35Date d'inscriptionvendredi 4 février 2005StatutMembreDernière intervention 3 août 2008 4 juin 2008 à 12:16
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)
23 juin 2010 à 16:28
23 juin 2010 à 16:22
23 juin 2010 à 14:41
Merci pour cette source géniale...
4 juin 2008 à 12:16
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
19 janv. 2008 à 19:40
1 août 2002 à 17:08
mais je perds qd meme :P
22 févr. 2002 à 10:13
21 févr. 2002 à 16:14
20 févr. 2002 à 13:45
20 févr. 2002 à 08:48
20 févr. 2002 à 07:48