Discussion :

[glaudioman]

Bonjour,

Je suis en train de développer un programme en vb6.

Je dois créer une interface proposant plusieurs onglets (SSTAB) dont le nombre varie en fonction du nombre de catégories de produits existant dans la base. Jusque la, ca marche.

Dans chaque onglet, on doit trouver un bouton pour chaque produit correspondant à la catégorie concernée. Chose faite également à l'aide d'un bouton avec index et de la commande load...

Là ou ca se gâte, c'est que tous mes boutons apparaissent dans le premier onglet. Je ne sais pas comment attribuer mon bouton à l'onglet numéro 2, 3 ...


Quelqu'un aurait-il la solution à mon problème ?

Merci d'avance !

[muzele]

Lors de la conception de ton logiciel, il faudrait que le bouton soit inséré sur l'onglet actif!
donc premierement activer l'onglet puis ensuite insérer le bouton !

[glaudioman]

D'abord, merci pour la rapidité de réponse !

Par contre, ca ne marche toujours pas ! c'est bien ce que j'ai fait. Je passe avant à l'onglet suivant avec la commande cat_prod.tab= i (i etant le nulméro de l'onglet voulu et cat_prod le sstab). En mode pas à pas, j'ai vu qure i avait la bonne valeur....

Il y aurait-il une autre manip ?

Merci

[OhMonBato]

Tu peux nous montrer ton code d'ajout d'onglet et de bouton stp ? Ca nous évitera de partir de 0

[muzele]

Bien dit Monbateau!
c'est par là qu'il faudrait commencer ! quelques lignes de code ne font de mal à personne !
Edit:
J'ai pas l'habitude de lire du code sous format txt. pourrais tu please mettre ton code entre les balises "Code" en cliquant sur le #

[glaudioman]

Donc le topo : j'ai un SSTAB (cat_prod)avec un nombre d'onglet dynamique en fonction du nombre de catégories de produits.

Dans chaque onglet, j'ai un bouton (bprod) par produit de cette catégorie, affichés à raison de 3 boutons par ligne. Je récupère mes produits et catégories sur une base ACCESS. La partie traitement des données est bonne.


Pour l'ajout de bouton mon code est le suivant (de tete, je n'ai pas accès au pc concerné pour l'instant...)


//requète SQL pour la liste des catégories

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
categorie.movefirst
j=0
do
cat_prod.tab=j
//Requète SQL pour les produits de la catégorie
produit.movefirst
i=0
do
load bprod(i)
bprod(i).caption=produit.fields("nom_prod")
bprod(i).visible=true
bprod.move (1+ i mod 3)*450, (1+ i\3)*500
i=i+1
produit.movenext
loop until produit.EOF
j=j+1
categorie.movenext
loop until categorie=EOF

Et donc il me crée bien les boutons, mais uniquement dans le premier onglet. (au début je ne voyais pas ceux de la 2° catégorie, mais en saisissant plus de produits dans la1° catégorie que dans la secondes, je vois les boutons supplémentaires, donc il execute bien mon code...)


Voila voila ! Si quelqu'un peut éclairer ma lanterne, ca serait fort sympatique...

[avigeilpro]

Il me semble qu'il faut donner le focus à l'onglet sur lequel tu souhaite créer le bouton avant de le créer, non ?

ps: pourrais-tu mettre les balises code (c'est le "#") autour de ton code, merci

[Invité]

Bonjour

Je dois créer une interface proposant plusieurs onglets (SSTAB) dont le nombre varie en fonction du nombre de catégories de produits existant dans la base. Jusque la, ca marche.

J'espére pour toi le nombre de catégories ne va pas beaucoup augmenter pour toi, car si tu en crées un à chaque fois, ton interface va devenir ingérable et illisible

Starec

[ProgElecT]

Cela devrait aidé.
Sur un Form, 3 CommandButton, le Command2 index=0, un SSTab
Tous les contrôles avec leurs propriétés par default, le placement et divers est fait dans Form_Load
le Command2 index=0 doit être posé sur la Form

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Option Explicit
Private Sub Form_Load()
'configuration des côntroles
SSTab1.Move 150, 630, 7755, 3195
Command1.Move 180, 90, 1395, 375
Command1.Caption = "Ajout d'onglet"
Command2(0).Move 1650, 90, 1305, 375
Command2(0).Caption = "Bt. modéle"
Command2(0).Enabled = False
Command3.Move 3030, 90, 2355, 375
Command3.Caption = "Ajout de Bt. sur l'onglet actif"
End Sub
 
Private Sub Command1_Click()
SSTab1.Tabs = SSTab1.Tabs + 1
SSTab1.Tab = SSTab1.Tabs - 1
SSTab1.Caption = "essais " & CStr(SSTab1.Tabs - 1)
Load Command2(Command2.Count)
Set Command2(Command2.Count - 1).Container = SSTab1   ' .Container, si DEREMER sa fonctionne pas
Command2(Command2.Count - 1).Top = 630
Command2(Command2.Count - 1).Left = 480
Command2(Command2.Count - 1).Caption = "bouton " & CStr(Command2.Count - 1)
Command2(Command2.Count - 1).Visible = True
Command2(Command2.Count - 1).Tag = SSTab1.Tab
Command2(Command2.Count - 1).Enabled = True
End Sub
 
Private Sub Command3_Click()
Dim T As Integer
Dim NbrBtOnglet As Integer
NbrBtOnglet = 0
'recherche du nombre de bouton posé sur l'onglet actif
For T = 1 To Command2.Count - 1
 If Command2(T).Tag = SSTab1.Tab Then
  NbrBtOnglet = NbrBtOnglet + 1
 End If
Next T
 
Load Command2(Command2.Count)
Set Command2(Command2.Count - 1).Container = SSTab1
Command2(Command2.Count - 1).Top = (NbrBtOnglet * Command2(Command2.Count - 1).Height) + 645
Command2(Command2.Count - 1).Left = 480
Command2(Command2.Count - 1).Caption = "bouton " & CStr(Command2.Count - 1)
Command2(Command2.Count - 1).Visible = True
Command2(Command2.Count - 1).Tag = SSTab1.Tab
Command2(Command2.Count - 1).Enabled = True
End Sub

[avigeilpro]

merci ProgElecT de confirmer ce dont j'étais loin d'être sur le bouton est donc créé sur l'onglet actif

[glaudioman]

Rebonjour!

J'ai donc testé le code proposé qui marche parfaitement sur un nouveau programme, mais pour dieu sais quelle raison, dans mon cas, il reste bloqué sur le premier onglet.

Je vous met donc ci dessous l'objet du délit...

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Set confiserie = DBEngine.Workspaces(0).OpenDatabase("conf.mdb")
Set prod = confiserie.OpenRecordset("select distinct type from produit", dbOpenDynaset)
If prod.RecordCount = 0 Then
nb = MsgBox("acun produit enregistré dans la base")
Else
SSTab1.Tabs = prod.RecordCount
prod.MoveFirst
i = 0
Do
SSTab1.Tab = i
SSTab1.Caption = prod.Fields("type")
i = i + 1
prod.MoveNext
Loop Until prod.EOF
prod.MoveFirst
p = 0
i = 1
Do
Set produits = confiserie.OpenRecordset("select * from produit where type='" & prod.Fields("type") & "' order by libelle", dbOpenDynaset)
If produits.RecordCount <> 0 Then
produits.MoveFirst
k = 0
Do
Load bprod(i)
SSTab1.Tab = p
Set bprod(i).Container = SSTab1
bprod(i).Top = ((k \ 3) * (bprod(i).Height + 200)) + 645
bprod(i).Left = ((k Mod 3) * (bprod(i).Width + 200)) + 150
bprod(i).Caption = Replace(produits.Fields("libelle"), "&", "&&")
bprod(i).Visible = True
bprod(i).Tag = SSTab1.Tab
bprod(i).Enabled = True
produits.MoveNext
i = i + 1
k = k + 1
Loop Until produits.EOF
End If
prod.MoveNext
p = p + 1
Loop Until prod.EOF
End If

Si quelqu'un voit d'où le problème peut venir, ca me serait d'un grand secours !

En tout cas merci pour votre rapidité et précision de réponse !

[OhMonBato]

Ben si tu mettais un point d'arret sur ta ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SSTab1.Tab = p

(ou un espion pour p) je pense que tu te rendrais compte du problème par toi même