ESt-il possible ?Résolu

Question

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

mortalino · Accepted Answer

Voici la fonction : Public Function premierjour(ByVal annee As Integer, ByVal mois As Byte) As String Dim sDate As String sDate = Format("01/" & CStr(mois) & "/" & CStr(annee), "dd/mm/yyyy") premierjour = Weekday(CDate(sDate), vbMonday) 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 ~ [code.aspx?ID=39466 Mortalino] ~ Colorisation automatique @++

--Mortalino-- Le mystérieux chevalier, "Provençal, le Gaulois"

mortalino · Answer

tes contrôles sont-ils indexés ou non ?

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

cs_casy · Answer

lol, on a même plus le temps de lire les posts ici.

Si tu est en VB6, faut passer par des groupes de controles

Tes controles doivent avoir tous le même nom, et une valeur de la propriete index différente.

Ensuite tu les utilise comme ça : Picture(0).piture, Picture(1).Picture, comme si tu avais un tableau

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

mortalino · Answer

Voici une solution simple, mais c'est toujours le même endroit qui réceptionnera les différentes images (à travailler, donc) : Dim oCtl As Control For Each oCtl In Me.Controls If TypeOf oCtl Is PictureBox Then Set Calender.CellPicture = oCtl.Picture End If Next oCtl ~ [code.aspx?ID=39466 Mortalino] ~ Colorisation automatique @++

--Mortalino-- Le mystérieux chevalier, "Provençal, le Gaulois"

oussamavich · Answer

merci pour ta solution , si c'est pas trop demandé un bout de code de ce tableau de picturebox 
                                  Merci

mortalino · Answer

comme ceci : Dim i As Integer For i = 1 To 31 Set Calender.CellPicture = Picture(i).Picture Next i ~ [code.aspx?ID=39466 Mortalino] ~ Colorisation automatique @++

--Mortalino-- Le mystérieux chevalier, "Provençal, le Gaulois"

oussamavich · Answer

ça me sort une erreur de compilation : calificateur incorrect

mortalino · Answer

C'est soit pour parce que tes contrôles ne sont pas indexés, soit parce que il manque quelque chose, du genre Picture1(i).Picture

A toi de nous dire..

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

oussamavich · Answer

Est-ce qu'une déclaration de tableau de picturebox s'impose ?

mortalino · Answer

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 · Answer

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



Merci du desolé pour dérangement

mortalino · Answer

Pas de problème, si tu fais un groupe de contrôle comme je te disais sur mon post précédant (voir explication sur page 1 de ce topic), ta fonction donnerai ça : Private Function insérer_image(ByVal stcr As Integer) Set Calender.CellPicture = Picture(stcr).Picture End Function ~ [code.aspx?ID=39466 Mortalino] ~ Colorisation automatique @++

--Mortalino-- Le mystérieux chevalier, "Provençal, le Gaulois"

cs_casy · Answer

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 · Answer

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...

MPi

oussamavich · Answer

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é ???

mortalino · Answer

Voici la bonne syntaxe : MsgBox "Ligne : " & Calender.Row & vbCrLf & _ "Colonne : " & Calender.Col ~ [code.aspx?ID=39466 Mortalino] ~ Colorisation automatique @++

--Mortalino-- Le mystérieux chevalier, "Provençal, le Gaulois"

cs_MPi · Answer

msgbox Calender.MouseCol
ou
msgbox Calender.ColSel
MPi

oussamavich · Answer

Y'a t'il une fonction pour récuperer le numéro d'index du picturebox ?

mortalino · Answer

En cliquant dessus, oui :

Private Sub Picture1_Click(Index As Integer)
    MsgBox Index
End Sub

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

oussamavich · Answer

et pour le récuperer sans y cliquant dessus mais en cliquant sur un bouton , on fait comment ?

mortalino · Answer

Beh c'est à toi de le déterminer, non ?
Je comprends pas trop.

Admettons tu as 5 PictureBox indexés, si tu cliques sur un bouton, tu veux récupérer l'Index duquel ? Sur quel critère ?
Ca, c'est à toi de le déterminer, à moins que je n'ai pas compris ta demande...

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

oussamavich · Answer

J'ai placé des picturebox dans des colonnes d'une flex grid et je veux quand je clique sur une colonne ile me retourne l'index de la picturebox qui est placé dans la colonne sur laquelle j'ai cliqué

mortalino · Answer

J'ai jamais travaillé avec des pictureBox dans un autre contrôle mais si c'est toi qui les place, par logique, 
dans colonne 1, tu as Picture(0)
dans colonne 2, tu as Picture(1)
etc...

Donc Index = Calender.Col + 1

Après, ça dépend de la configuration de tes contrôles.

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

oussamavich · Answer

Merci de votre proposition mais c plus compliqué que ça
c pour un calendrier :s:s:s

mortalino · Answer

beh honnêtement, je ne sais pas comment faire.
Techniquement un PictureBox peut être un objet contenant d'autres objets, mais à ma connaissance, pas le MSFlexGrid.

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

oussamavich · Answer

Ben c le cas

oussamavich · Answer

Ben c le cas

mortalino · Answer

Impossible. Il est dessus, mais pas dedans. (c'est une subtilité importante)

Exemple : Tu as un contrôles (genre TextBox) que tu places sur la Form, tu le sélectionnes et le coupes, et tu sélectionnes le PictureBox et tu Fais Coller.
Le textBox se place dedans.
Maintenant en faisant la même chose avec le MSFlexGrid, le TextBox ne se colle pas dedans (sauf si le MSFlexGrid est à 0 pour le Top et le Left, mais dans ce cas, c'est un concours de circonstances [hasard, si tu préfères].

Regarde bien dans l'aide en ligne, seul 3 contrôles peuvent être le "contener" d'autres controles : le PictureBox, le Frame et le SSTab

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

oussamavich · Answer

Vous pouvez m'aider pour une fonction qui renvoie le premier jour d'un mois donné en paramètre ainsi que l'année 
 Public Function premierjour(ByVal annee As Integer, ByVal mois As Integer)

Dolphin Boy · Answer

Euh, le 1er jour d'un mois ? C'est une plaisanterie ou quoi ? le 1er jour, c'est toujours le 1.
Ou alors, tu t'es mal exprimé et c'est le nom du premier jour du mois que tu veux ? Dans ce cas essaie ça :


Public Function premierjour(ByVal annee As Integer, ByVal mois As Integer) As String
 premierjour = WeekdayName(Weekday("01/" & mois & "/" & annee))
End Function

mortalino · Answer

Arf, Salut Dolphin Boy,

merci pour le WeekDayName, j'avais pas vu...  
C'est bien mieux (et bien plus court comme ceci)  

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

jmfmarques · Answer

Private Sub Command1_Click()
  mois = 5
  annee = 2005
  MsgBox Format("01/" & mois & "/" & annee, "dddd")
End Sub

drikce06 · Answer

Salut à tous, après toutes ces questions-réponses pas une d'acceptée! lol!

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

cs_MPi · Answer

Oussamavich, je pense que tu n'as pas compris que, pour afficher une image dans une Flexgrid, tu n'as pas besoin de Picturebox... Mais je peux me tromper... En fait, je ne vois pas l'utilité des Picturebox, sachant qu'on peut s'en passer. Sinon, utilise Move pour les déplacer où tu veux.

Soit tu utilises le chemin des images sur le disque dur, soit tu les places dans un contrôle ImageList et tu les affiches avec
For i = 0 to Calender.Cols - 1
    Calender.Col = 0
    Calender.Row = i
    IndexQueTuVeux = TrouveIndex(...)  ' Function à créer
    Set Calender.CellPicture = Me.ImageList1.ListImages.Item(IndexQueTuVeux).Picture
next

MPi

cs_MPi · Answer

Oups, il fallait lire .Rows et non .Cols
For i = 0 to Calender.Rows - 1

MPi

oussamavich · Answer

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.
                                     Merci d'avance

jmfmarques · Answer

"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)

oussamavich · Answer

Mon nouveau problème est le suivant : j'ai stocké des valeurs dans un tableau de string et je veux afficher le contenu du tableau d'un coup , existe-t-il une fonction qui fait ça ?

cs_MPi · Answer

Et si tu démarrais un nouveau message ?

MPi

oussamavich · Answer

comment ça ?

jmfmarques · Answer

"Mon nouveau problème est le suivant...... "

Nouveau (différent) problème ===>>> autre discussion

Evite toutefois de lui donner un titre tel que celui donné à la présente ! Le titre donné doit être explicite et résumer le problème à traiter.

oussamavich · Answer

Mon nouveau différent problème ;) est le suivant :
 j'ai fusionné des cellules (où j'avais placé des picturebox) à l'aide de Mergecells ,mais je veux que les picturebox gardent leurs places et la fusion n'affectent pas leurs placement
                                      Merci

oussamavich · Answer

Quelqu'un pourrait me dire comment écrire une requête sql de telle sorte à ce qu'un variable qui représente une date  soit  comprise entre deux champs dates de la table en question 
                                      Merci

drikce06 · Answer

Nouveau (différent) problème ===>>> autre discussion

Evite toutefois de lui donner un titre tel que celui donné à la présente ! Le titre donné doit être explicite et résumer le problème à traiter.

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

ESt-il possible ?

44 réponses

Votre réponse