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 :

valeur variable à recuperer


Sujet :

VB 6 et antérieur

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé Avatar de bruce207
    Inscrit en
    Novembre 2007
    Messages
    319
    Détails du profil
    Informations forums :
    Inscription : Novembre 2007
    Messages : 319
    Par défaut valeur variable à recuperer
    Bonjour,
    je voudrais savoir comment recuperer la valeur d'une variable ou d'un objet d'une feuille dans une autre feuille(form).
    merci

  2. #2
    Membre confirmé
    Avatar de nabil
    Inscrit en
    Avril 2002
    Messages
    223
    Détails du profil
    Informations forums :
    Inscription : Avril 2002
    Messages : 223
    Par défaut
    si ton objet est c1 et ta forme est form1 alors tu aura simplement :
    ou tu peux déclarer une variable en public dans un module et travailler avec.

  3. #3
    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
    Salut
    Le Module.BAS est fait pour qu'une variable soit dispo dans toutes les autres Frms, pourvue quelle soit déclarée Public dans le module.
    Il y a bien un moyen detourné de recuperer la valeur d'une variable déclarée d'un Form à un autre.
    1 Form1 avec 1 PictureBox et un CommandButton
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    Option Explicit
    Dim MeVarFrm1 As Integer
     
    Private Sub Form_Load()
    MeVarFrm1 = 10
    End Sub
    Private Sub Command1_Click()
    'pour passer la valeur de la variable declarée dans form1 (donc forcement non public)
    Form1.Tag = MeVarFrm1
    Form2.Show
    End Sub
    1 Form2 avec 1 PictureBox
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    Option Explicit
    Dim MevarFrm2 As Integer
    Private Sub Form_Load()
    'recuperation detournée de la valeur de MeVar1 declarée dans Form1
    MevarFrm2 = Form1.Tag
    Form2.Caption = MevarFrm2
    'recuperation de la valeur propriété AutoSize et Image de Picture1 de Form1
    Form2.Picture1.AutoSize = Form1.Picture1.AutoSize
    Form2.Picture1 = Form1.Picture1.Image
    End Sub
    :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 ← ← 👈

Discussions similaires

  1. recuperation valeur variable.
    Par fhoest dans le forum Débuter
    Réponses: 3
    Dernier message: 29/08/2011, 09h47
  2. Réponses: 7
    Dernier message: 06/05/2006, 15h24
  3. Concaténer valeur variable
    Par nebule dans le forum Général JavaScript
    Réponses: 10
    Dernier message: 05/05/2006, 08h58
  4. [Reflection] valeur variable
    Par hocinema dans le forum API standards et tierces
    Réponses: 5
    Dernier message: 30/09/2005, 12h41
  5. Array à valeur variables
    Par klipfel dans le forum Général JavaScript
    Réponses: 3
    Dernier message: 15/12/2004, 16h22

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