[VB6] clear mon form

Version imprimable

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:

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 :idea: :idea: :idea: :idea:

:oops: :roll:

22/11/2005, 12h13
Megaxel
Hello!
Si tes contrôles sont dans une UserForm:
Code:

1 2 UserForm1.Controls.Clear
devrait te plaire.
:D
22/11/2005, 12h32
porki

Code:

Object doesn't support this property or method

voilà le message qui s'affiche :roll: :oops:

Citation:

Si tes contrôles sont dans une UserForm

c'est un form standard :roll: 8O
merci quand même!
22/11/2005, 12h36
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.
22/11/2005, 13h00
porki

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 :?:
22/11/2005, 13h06
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!!"
?
:D
22/11/2005, 13h15
porki

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!!"
?
:D

"Non, je ne l'ai pas dans mes références alors je vais l'ajouter pour voir si ça ne va pas mieux."

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:

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

22/11/2005, 14h07
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.

Code:

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:

1
2
3
Private Sub mnuAvtotBelgo_Click()
Form1.Controls.Clear
End Sub

j'ai un message

Citation:

Object doesn't support property or method

:cry: :cry: :cry: :?: :?:

22/11/2005, 14h14
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 ?
22/11/2005, 14h15
Megaxel

He, mais attends un peu: tes contrôles, ils sont sur un UserForm, au sur tes feuilles dans ton classeur Excel?
22/11/2005, 14h17
porki

un Form dans VB6!!! 8O :!: :!: :idea: :?:
22/11/2005, 14h40
porki

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 :oops:

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:

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

23/11/2005, 13h40
porki

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