IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB 6 et antérieur Discussion :

Changer les index de controles insérés dynamiquement


Sujet :

VB 6 et antérieur

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre expérimenté
    Profil pro
    Inscrit en
    Mars 2006
    Messages
    301
    Détails du profil
    Informations personnelles :
    Âge : 54
    Localisation : France

    Informations forums :
    Inscription : Mars 2006
    Messages : 301
    Par défaut Changer les index de controles insérés dynamiquement
    Bonjour a tous

    Je voudrais redéfinir les index de controles insérés dynamiquement apres une suppression de controle.
    Pour cela j'utilise le bout de code suivant :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Unload F_0.pict(II)
    Unload F_0.Text_Pict(II)
    For II = II + 1 To F_0.pict.UBound
    F_0.pict(II).Index = II - 1
    F_0.Text_Pict(II).Index = II - 1
    F_0.Text_Pict(II).Text = II - 1
    Next
    Mais j'ais le message d'erreur suivant :
    Erreur de compilation :
    Impossible d'affecter à une propriété en lecture seule
    Si quelqu'un a une idée sur ce qui cloche.
    Par avance merci

    BM42

  2. #2
    Expert confirmé
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    Décembre 2004
    Messages
    6 132
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 69
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : Décembre 2004
    Messages : 6 132
    Par défaut
    Ton message d'erreur étant logique car

    Citation Envoyé par F2
    Property Index As Integer
    Lecture seule
    Le principe, ne pas forcement supprimer l’index (sauf si N°index = Ubound-1)
    Decallage par copie de toutes les infos contrôles depuis le N° index a supprimé du contrôle le precedant, puis supprimé le dernier, car il viens d'être recopier sur l'avant dernier.
    Dans une boucle
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    For x = N_IndexAsupprimer To (UBound(pict) - 2)
     F_O.pict(x).Move F_O.pict(x + 1).Left, F_O.pict(x + 1).Top, _
                      F_O.pict(x + 1).Width, F_O.pict(x + 1).Height
     F_O.pict(x).Picture = F_O.pict(x + 1).Image
     'Idem pour le F_0.Text_Pict
    Next x
    'Puis suppression des contrôles du dernier index
    Unload F_0.pict(UBound(pict) - 1)
    Unload F_0.Text_Pict(UBound(pict) - 1)
    Moi je me suis compris a la relecture, et toi BM42
    :whistle:pourquoi pas, pour remercier, un :plusser: pour celui/ceux qui vous ont dépannés.
    saut de ligne
    OOOOOOOOO👉 → → Ma page perso sur DVP ← ← 👈

  3. #3
    Membre expérimenté
    Profil pro
    Inscrit en
    Mars 2006
    Messages
    301
    Détails du profil
    Informations personnelles :
    Âge : 54
    Localisation : France

    Informations forums :
    Inscription : Mars 2006
    Messages : 301
    Par défaut
    Bonjour ProElect

    et merci pour l'info.
    Je vais essayer et te tiens au courant.

    A+

  4. #4
    Membre expérimenté
    Profil pro
    Inscrit en
    Mars 2006
    Messages
    301
    Détails du profil
    Informations personnelles :
    Âge : 54
    Localisation : France

    Informations forums :
    Inscription : Mars 2006
    Messages : 301
    Par défaut
    Re

    et re merci tout est OK

    A+

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Changer les textes des controles en fonctions de la bd
    Par paladice dans le forum Débuter
    Réponses: 3
    Dernier message: 17/04/2013, 15h47
  2. [Débutant] Problème pour retrouver les index des contrôles ajoutés dynamiquement
    Par BasicZX81 dans le forum VB.NET
    Réponses: 10
    Dernier message: 04/09/2012, 22h03
  3. Réponses: 1
    Dernier message: 30/07/2009, 15h23
  4. Retrouver les index de contrôles insérés dynamiquement
    Par BM42 dans le forum VB 6 et antérieur
    Réponses: 7
    Dernier message: 18/10/2007, 17h57
  5. Réponses: 1
    Dernier message: 09/11/2006, 13h34

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo