' Initialisation du tableau visuel '---------------------------------------------------------------------- Top = 0 For cpt_ligne = 0 To MaxLign - 1 If cpt_ligne = 0 Then 'Positionnement du premier PictureBox Top = 15 Else Top = Top + PictBox(0).Height + nbSpace End If Left = 0 - PictBox(0).Width For cpt_col = 0 To MaxCol - 1 Left = Left + PictBox(0).Width + nbSpace n = PictBox.Count 'Création dynamique des controles avec ces valeurs par défaut Load PictBox(n) 'Valeur du placement sur la feuille PictBox(n).Top = Top PictBox(n).Left = Left PictBox(n).Visible = True 'Obligatoire. Défaut invisible PictBox(n).Tag = "%" 'valeur par defaut du tag si le pictbox reste vide 'lors de l'enregistrement du fichier map Next cpt_col Next cpt_ligne
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question