Discussion :

[porki]

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

[Megaxel]

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.

[porki]

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!

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

[porki]

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 :

[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!!"
?

[porki]

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

[Xo]

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

[porki]

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.

[porki]

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

: :

[Xo]

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 ?

[Megaxel]

He, mais attends un peu: tes contrôles, ils sont sur un UserForm, au sur tes feuilles dans ton classeur Excel?

[porki]

un Form dans VB6!!! :

[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

[porki]

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

[porki]

est-ce quelqu'un pourrait me renseigner sur Multipage, Tabstrip... tout ce qu'on doit savoir?
merci