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 :

[VB6] clear mon form


Sujet :

VB 6 et antérieur

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Septembre 2004
    Messages
    55
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Septembre 2004
    Messages : 55
    Par défaut [VB6] clear mon form
    voilà, d'abord salut à tous!
    à partir d'un menu créer, je choisis une certaine action. à la suite de quoi apparait un certain nombre d'objet sur ma fenêtre (checkbox.....).moi ce que j'aimerais c'est si je choisis un autre sous-menus.ma fenêtre se nettoye et efface les objets inséré précédemment.
    mes objets sont insérés avec le code:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    If Index = 0 Then
     For i = 0 To 7
        cmdIndex = cmdIndex + 1
        Load Check1(cmdIndex)
        Check1(cmdIndex).top = Check1(cmdIndex - 1).top + 360
        Check1(cmdIndex).Visible = True
        Check1(cmdIndex).Caption = X(cmdIndex)
        Check1(cmdIndex).Value = Checked
     Next
    End If
    j'ai essayé Form1.Cls
    mais ca fait rien

    quelqu'un à 1 idée


  2. #2
    Membre Expert Avatar de Megaxel
    Profil pro
    Inscrit en
    Mai 2003
    Messages
    1 187
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2003
    Messages : 1 187
    Par défaut
    Hello!
    Si tes contrôles sont dans une UserForm:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    UserForm1.Controls.Clear
    devrait te plaire.

  3. #3
    Membre averti
    Profil pro
    Inscrit en
    Septembre 2004
    Messages
    55
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Septembre 2004
    Messages : 55
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Object doesn't support this property or method
    voilà le message qui s'affiche

    Si tes contrôles sont dans une UserForm
    c'est un form standard
    merci quand même!

  4. #4
    Membre Expert Avatar de Megaxel
    Profil pro
    Inscrit en
    Mai 2003
    Messages
    1 187
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2003
    Messages : 1 187
    Par défaut
    As-tu dans tes références de projet la bibliothèque: "Microsoft Forms 2.0 Object Library"?
    Parce que je crois qu'elle est nécessaire.

  5. #5
    Membre averti
    Profil pro
    Inscrit en
    Septembre 2004
    Messages
    55
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Septembre 2004
    Messages : 55
    Par défaut
    Citation Envoyé par Megaxel
    As-tu dans tes références de projet la bibliothèque: "Microsoft Forms 2.0 Object Library"?
    Parce que je crois qu'elle est nécessaire.
    non :

  6. #6
    Membre Expert Avatar de Megaxel
    Profil pro
    Inscrit en
    Mai 2003
    Messages
    1 187
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2003
    Messages : 1 187
    Par défaut
    Heu, le "non", ça veut dire
    "Non, je ne l'ai pas dans mes références alors je vais l'ajouter pour voir si ça ne va pas mieux."
    ou
    "Non, ce n'est pas nécessaire, Megaxel, tu racontes vraiment n'importe quoi, c'est juste pour faire monter ton nombre de messages!!"
    ?

  7. #7
    Membre averti
    Profil pro
    Inscrit en
    Septembre 2004
    Messages
    55
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Septembre 2004
    Messages : 55
    Par défaut
    Citation Envoyé par Megaxel
    Heu, le "non", ça veut dire
    "Non, je ne l'ai pas dans mes références alors je vais l'ajouter pour voir si ça ne va pas mieux."
    ou
    "Non, ce n'est pas nécessaire, Megaxel, tu racontes vraiment n'importe quoi, c'est juste pour faire monter ton nombre de messages!!"
    ?
    "Non, je ne l'ai pas dans mes références alors je vais l'ajouter pour voir si ça ne va pas mieux."

  8. #8
    Xo
    Xo est déconnecté
    Membre Expert
    Avatar de Xo
    Inscrit en
    Janvier 2005
    Messages
    2 701
    Détails du profil
    Informations personnelles :
    Âge : 52

    Informations forums :
    Inscription : Janvier 2005
    Messages : 2 701
    Par défaut
    Si ça ne fonctionne toujours pas,

    - Es-tu sous VBA ou VB ?
    - As-tu essayé un Unload (testé ous VB) :

    Ex de code dans une Form avec un contrôle nommé Text1 (Index = 0), et les 2 boutons Command1 et Command2 :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    Private Sub Command1_Click()
        Dim i As Long
     
        For i = 1 To 9
            Load Text1(i)
            Text1(i).Top = Text1(i - 1).Top + Text1(0).Height + 60
            Text1(i).Visible = True
        Next i
    End Sub
     
    Private Sub Command2_Click()
        Dim i As Long
     
        For i = 1 To 9
            Unload Text1(i)
        Next i
    End Sub
    "Ce que l'on conçoit bien s'énonce clairement,
    Et les mots pour le dire arrivent aisément." Nicolas Boileau

    "Expliquer empêche de comprendre si cela dispense de chercher"

    Quiz Oracle : venez tester vos connaissances !

    La FAQ Oracle : 138 réponses à vos questions
    Aidez-nous à la compléter

  9. #9
    Membre averti
    Profil pro
    Inscrit en
    Septembre 2004
    Messages
    55
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Septembre 2004
    Messages : 55
    Par défaut
    je suis sous VB!
    j'ai dejà essayé un Unload mais sans résultat.
    ce que je cherche à faire c'est que je change de menu il m'efface les controles précédemment ajouté pour pouvoir en rajouter d'autre.
    j'ai créé un menu avec des sous-menus comme Fichier--> ouvrir ou Nouveau-->fichier.

  10. #10
    Membre averti
    Profil pro
    Inscrit en
    Septembre 2004
    Messages
    55
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Septembre 2004
    Messages : 55
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    Private Sub mnuDBweb_Click()
    Index1 = 0
    Index2 = 5
     
     For i = 0 To 3
        Index1 = Index1 + 1
        Load Check1(Index1)
        Check1(Index1).Top = Check1(Index1 - 1).Top + 360
        Check1(Index1).Visible = True
        Check1(Index1).Caption = X(Index1)
        Check1(Index1).Value = Checked
     Next
      For i = 0 To 3
        Index2 = Index2 + 1
        Load Check2(Index2)
        Check2(Index2).Top = Check2(Index2 - 1).Top + 360
        Check2(Index2).Visible = True
        Check2(Index2).Caption = X(Index2)
        Check2(Index2).Value = Checked
     Next
     
    End Sub
    voilà mon code mais quand je veux faire
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Private Sub mnuAvtotBelgo_Click()
    Form1.Controls.Clear
    End Sub
    j'ai un message
    Object doesn't support property or method
    : :

  11. #11
    Xo
    Xo est déconnecté
    Membre Expert
    Avatar de Xo
    Inscrit en
    Janvier 2005
    Messages
    2 701
    Détails du profil
    Informations personnelles :
    Âge : 52

    Informations forums :
    Inscription : Janvier 2005
    Messages : 2 701
    Par défaut
    Citation Envoyé par porki
    j'ai dejà essayé un Unload mais sans résultat.
    Ce qui signifie ? Rien ne se passe à l'écran ?

    Si c'est effectivement le cas, une solution alternative dans ton cas serait peut-être de gére un cadre (frame) par sous-menu, avec des contrôles propres à chaque frame, et de rendre visible un de ces cadres en fonctin du choix de l'utilisateur, non ?
    "Ce que l'on conçoit bien s'énonce clairement,
    Et les mots pour le dire arrivent aisément." Nicolas Boileau

    "Expliquer empêche de comprendre si cela dispense de chercher"

    Quiz Oracle : venez tester vos connaissances !

    La FAQ Oracle : 138 réponses à vos questions
    Aidez-nous à la compléter

  12. #12
    Membre Expert Avatar de Megaxel
    Profil pro
    Inscrit en
    Mai 2003
    Messages
    1 187
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2003
    Messages : 1 187
    Par défaut
    He, mais attends un peu: tes contrôles, ils sont sur un UserForm, au sur tes feuilles dans ton classeur Excel?

  13. #13
    Membre averti
    Profil pro
    Inscrit en
    Septembre 2004
    Messages
    55
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Septembre 2004
    Messages : 55
    Par défaut
    un Form dans VB6!!! :

  14. #14
    Membre averti
    Profil pro
    Inscrit en
    Septembre 2004
    Messages
    55
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Septembre 2004
    Messages : 55
    Par défaut
    Citation Envoyé par Xo
    Citation Envoyé par porki
    j'ai dejà essayé un Unload mais sans résultat.
    Ce qui signifie ? Rien ne se passe à l'écran ?

    Si c'est effectivement le cas, une solution alternative dans ton cas serait peut-être de gére un cadre (frame) par sous-menu, avec des contrôles propres à chaque frame, et de rendre visible un de ces cadres en fonctin du choix de l'utilisateur, non ?
    c'est peut-être une solution j'essaie

  15. #15
    Membre averti
    Profil pro
    Inscrit en
    Septembre 2004
    Messages
    55
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Septembre 2004
    Messages : 55
    Par défaut
    y a aussi une autre possibilité je crois c'est avec Add
    mais je sais pas trop comment arranger mon code actuel avec cette possibilité

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    Private Sub mnuDBweb_Click() 
    Index1 = 0 
    Index2 = 5 
     
     For i = 0 To 3 
        Index1 = Index1 + 1 
        Load Check1(Index1) 
        Check1(Index1).Top = Check1(Index1 - 1).Top + 360 
        Check1(Index1).Visible = True 
        Check1(Index1).Caption = X(Index1) 
        Check1(Index1).Value = Checked 
     Next 
      For i = 0 To 3 
        Index2 = Index2 + 1 
        Load Check2(Index2) 
        Check2(Index2).Top = Check2(Index2 - 1).Top + 360 
        Check2(Index2).Visible = True 
        Check2(Index2).Caption = X(Index2) 
        Check2(Index2).Value = Checked 
     Next 
     
    End Sub

  16. #16
    Membre averti
    Profil pro
    Inscrit en
    Septembre 2004
    Messages
    55
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Septembre 2004
    Messages : 55
    Par défaut
    est-ce quelqu'un pourrait me renseigner sur Multipage, Tabstrip... tout ce qu'on doit savoir?
    merci

Discussions similaires

  1. [VB6] Ouverture de Forms Conditionelle dans une procédure
    Par paltron dans le forum VB 6 et antérieur
    Réponses: 25
    Dernier message: 14/02/2006, 10h14
  2. (VB6)Ouvrir une form en mode ajout à parti d'une autre
    Par djancof dans le forum VB 6 et antérieur
    Réponses: 10
    Dernier message: 13/02/2006, 14h40
  3. [Struts] Re-initialisation de mon Form
    Par cosmos38240 dans le forum Struts 1
    Réponses: 7
    Dernier message: 13/12/2005, 16h14
  4. [VB6] Déplacer la form sans cliquer sur la barre de titre
    Par Ingham dans le forum VB 6 et antérieur
    Réponses: 4
    Dernier message: 14/11/2002, 02h09
  5. [VB6] [MDI] Modifier form en MDIform
    Par fikou dans le forum VB 6 et antérieur
    Réponses: 3
    Dernier message: 12/09/2002, 13h48

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