Onglets dynamiques

Version imprimable

04/09/2007, 15h22
glaudioman

Onglets dynamiques

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 !
04/09/2007, 15h28
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 !
04/09/2007, 16h33
glaudioman

re onglet dynamique

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
04/09/2007, 16h59
OhMonBato

Tu peux nous montrer ton code d'ajout d'onglet et de bouton stp ? Ca nous évitera de partir de 0 ;)
04/09/2007, 17h47
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 #

code ajout bouton

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.:yaisse2:

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:

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

04/09/2007, 17h59
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 ;)
04/09/2007, 19h26
Invité

Bonjour

Citation:

Envoyé par glaudioman

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

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:

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

04/09/2007, 23h39
avigeilpro

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

ca ne marche toujours pas !

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:

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 !

05/09/2007, 01h10
OhMonBato

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

Code:

SSTab1.Tab = p

(ou un espion pour p) je pense que tu te rendrais compte du problème par toi même ;)
05/09/2007, 01h24
glaudioman

????

Ben pour mon premier produit de la catégorie "boisson" p=0 et pour les 3 autres produits dans la catégorie chocolat, p=1,commé prévu.

Je ne vois pas ou le code serait faux à ce niveau...
05/09/2007, 08h22
OhMonBato

J'ai lu le code en diagonlae, un peu torp rapidement hier soir, désolé :oops:
05/09/2007, 15h21
glaudioman

Ahah ! Aurais-je réussi à poser une colle a des développeurs acharnés ? :king:

Ahahaha ! Trop fort ! :yaisse2:

Mais quel malheur! Me voila seul face à mon code defiscient....Snif, snif !

Pas d'autres idées ? Je cale vraiment la !!!:cry:
05/09/2007, 15h45
glaudioman

Résolu

Re bonjour

Mon problème est résolu. Le code etait bon, mais pour dieu sais quelle raison, il ne marchait pas en form.load

Pour tester, j'ai recopié le code dans un bouton et ca marche parfaitement. Comme j'ai avant cette form une autre form qui demande le nom d'utilisateur et le mot de passe du vendeur, j'ai rajouté mon code dans le bouton de validation de ce mot de passe, et ca passe nickel. Pour je ne sais plus qui (le modérateur, désolé j'ai du mal avec les noms...), ce programme corcernant de la vente de confiserie, il y aura au plus 6 onglets (chocolat, confiserie, boisson, pop corn, menu et glaces). Donc pas de problème de lisibilité (c'est pour ca que j'ai opté pour des onglets)

A n'y rien comprendre, mais ca marche !

En tout cas, merci à tous !
05/09/2007, 17h13
avigeilpro

Perso je commencerais par mettre une valeur fixe avant de mettre p (essaye de les faire afficher sur le 2eme onglet), ensuite quand cela marchera remplace par p ;)

Citation:

Envoyé par glaudioman

il ne marchait pas en form.load

C'est vrai.
Pour en avoir le coeur net, j'ai fait de multiple essais de mon coté (avec le bout de code fournit hier), le seul moyen est d'attendre l'affichage de la Form.
Pour cela j'ai créé une variable public, Dim MeVisible As Boolean, dans Form_Load la variable est initialisé a False, puis utilisé dans la procedure Form_Paint
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub Form_Paint() If MeVisible = False Then MeVisible = True 'a la place des Command1_Click, fait appel a ta procedure de chargement BD Command1_Click Command1_Click Command3_Click Command3_Click End If End Sub
Donc sur le même principe, tu pourrais dans cette procedure Form_Paint, faire le chargement de ta BD, en mettant SSTab1.visible à False en entrée et le passé à True en sortie, pour améliorer la rapidité.

06/09/2007, 14h42
OhMonBato

On pouvait difficilement deviner que c'était dans Form_load, d'où l'intérêt de mettre TOUT le code d'une procédure... ;)