oussamavich
Messages postés19Date d'inscriptionsamedi 6 janvier 2007StatutMembreDernière intervention11 janvier 2007
-
7 janv. 2007 à 15:58
drikce06
Messages postés2236Date d'inscriptionlundi 29 mai 2006StatutMembreDernière intervention29 mai 2008
-
11 janv. 2007 à 16:11
ESt-il possible d'incrémenter le nom d'un objet comme indiqué dans l'exemple suivant ???
for i =0 to 31
Set Calender.CellPicture = Picture& " i " &.Picture
next i
si c'est possible prière de m'indiquer la syntaxe correcte pour ça
Merci
Select Case premierjour
Case 1: premierjour = "Lundi"
Case 2: premierjour = "Mardi"
Case 3: premierjour = "Mercredi"
Case 4: premierjour = "Jeudi"
Case 5: premierjour = "Vendredi"
Case 6: premierjour = "Samedi"
Case 7: premierjour = "Dimanche"
End Select
End Function
Sub Exemple_Utilisation()
MsgBox premierjour(2007, 1)
End Sub
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 201427 9 janv. 2007 à 07:33
"Pour incrémenter en une boucle for on utilise next je voudrais savoir si c'est possible de décrementer une boucle et la syntaxe."
Tiens ! C'est vrai ! VB a prévu Next pour incrémenter et oussamamavich cherche maintenant s'il existe un previous !
Non,, il n'y a pas de previous ... Mais oui, il y a l'emploi de Step (voir l'aide en ligne)
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 201118 7 janv. 2007 à 16:45
Oui, sinon, impossible de déterminer le contrôle.
Ex :
Picture1(i).Picture fonctionnera alors que Picture & i ne fonctionnera pas.
Pour indexés des contrôles, il suffit d'en placer un sur la Form, tu le copies et ensuite tu fais coller.
VB te propose s'il faut faire un Groupe de contrôles, tu dis oui, et faut faire la manip pour autant de contrôles.
@++
<hr size="2" width="100%" />
--Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--
oussamavich
Messages postés19Date d'inscriptionsamedi 6 janvier 2007StatutMembreDernière intervention11 janvier 2007 7 janv. 2007 à 17:05
voilà j'ai dèjà trouver une solution mais je veux l'optimiser , serait-il possible de trouver un équivalant à cette fonction
'fonction
Private Function insérer_image(ByVal stcr As Integer)
Select Case stcr
Case 1
Set Calender.CellPicture = Picture1.Picture
Case 2
Set Calender.CellPicture = Picture2.Picture
Case 3
Set Calender.CellPicture = Picture3.Picture
Case 4
Set Calender.CellPicture = Picture4.Picture
Case 5
Set Calender.CellPicture = Picture5.Picture
Case 6
Set Calender.CellPicture = Picture6.Picture
Case 7
Set Calender.CellPicture = Picture7.Picture
Case 8
Set Calender.CellPicture = Picture8.Picture
Case 9
Set Calender.CellPicture = Picture9.Picture
Case 10
Set Calender.CellPicture = Picture10.Picture
Case 11
Set Calender.CellPicture = Picture11.Picture
Case 12
Set Calender.CellPicture = Picture12.Picture
Case 13
Set Calender.CellPicture = Picture13.Picture
Case 14
Set Calender.CellPicture = Picture14.Picture
Case 15
Set Calender.CellPicture = Picture15.Picture
Case 16
Set Calender.CellPicture = Picture16.Picture
Case 17
Set Calender.CellPicture = Picture17.Picture
Case 18
Set Calender.CellPicture = Picture18.Picture
Case 19
Set Calender.CellPicture = Picture19.Picture
Case 20
Set Calender.CellPicture = Picture20.Picture
Case 21
Set Calender.CellPicture = Picture21.Picture
Case 22
Set Calender.CellPicture = Picture22.Picture
Case 23
Set Calender.CellPicture = Picture23.Picture
Case 24
Set Calender.CellPicture = Picture24.Picture
Case 25
Set Calender.CellPicture = Picture25.Picture
Case 26
Set Calender.CellPicture = Picture26.Picture
Case 27
Set Calender.CellPicture = Picture27.Picture
Case 28
Set Calender.CellPicture = Picture28.Picture
Case 29
Set Calender.CellPicture = Picture29.Picture
Case 30
Set Calender.CellPicture = Picture30.Picture
Case 31
Set Calender.CellPicture = Picture31.Picture
End Select
End Function
'lors de l'appel de la fonction
With Calender
For j = 1 To 5
For i = 1 To 7
.Row = j
.Col = i
insérer_image (ab)
ab = ab + 1
If ab > jour Then
ab = 1
End If
Next i
Next j
End With
cs_casy
Messages postés7741Date d'inscriptionmercredi 1 septembre 2004StatutMembreDernière intervention24 septembre 201440 7 janv. 2007 à 17:15
oui tu peux optimiser.
Ton controle Picture1, tu le renomme en Picture. Ensuite tu donne la valeur 1 à sa propriété Index.
Tu fais pareil avec le controle Picture2 que tu renomme en Picture, et tu donne la valeur 2 à l'index, ainsi de suite.
Ensuite ton code devient :
Private Function insérer_image(ByVal stcr As Integer)
Set Calender.CellPicture = Picture(stcr).Picture
End Function
---- Sevyc64 (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #
cs_MPi
Messages postés3877Date d'inscriptionmardi 19 mars 2002StatutMembreDernière intervention17 août 201823 7 janv. 2007 à 17:42
Tu pourrais utiliser un contrôle ImageList et y intégrer tes images, non ?
Tu pourrais alors utiliser l'index ou la clé, je ne me rappelle plus trop...
Si je comprend bien, tu as une Flexgrid et tu veux y placer des images qui sont affichées dans des Picturebox, c'est ça ?
Si oui, est-ce que c'est nécessaire d'afficher toutes ces Picturebox ?
En espérant que je comprenne bien ce qui se passe...
oussamavich
Messages postés19Date d'inscriptionsamedi 6 janvier 2007StatutMembreDernière intervention11 janvier 2007 7 janv. 2007 à 17:43
c fé et ça marche je vous en suis infiniment reconnaissant
vous pourriez m'indiquer la fonction qui retourne la valeur de la colonne de la flex grid sur laquelle on a cliqué ???