TabPage et module

Bonjour,

je suis en visual studio 2015 et en VB net, mon problème est le suivant

j'ai une Form window dans laquelle j'ai un tabcontrol avec plusieurs tabpage, dans ceux çi, j'ai des combobox qui appellent des codes qui eut sont dans des modules ....et je ne trouve pas la syntaxe pour relier le combobox dans le module à la Form, exemple ci dessous.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Public Sub csg_size()   If Csg_size_ComboBox.Text = "4 1/2" Then Csg_weight_ComboBox.Items.AddRange(New Object() {"9.5", "10.5", "11.6", "13.5", "15.1", "16.9", "17.7", "18.8"}) End If   If Form3.Csg_size_ComboBox.Text = "5" Then Form3.Csg_weight_ComboBox.Items.AddRange(New Object() {"11.5", "13", "15", "18", "10.8"}) End If   If Form3.Csg_size_ComboBox.Text = "5 1/2" Then Form3.Csg_weight_ComboBox.Items.AddRange(New Object() {"14", "15.5", "17", "20", "23"}) End If

---

comme vous pouvez voir j'ai essayé les deux, c.a.d rien devant le nom de la combobox, ou le nom de la form, j'ai même essayé avec le nom de la tabpage, mais rien !!!

par la même occasion, puis je mettre un select case a la place de mes 10 if then ?

merci

Salut ! :)

je ne comprend pas très bien ton problème de modules et de tabpages. En revanche, oui, il est possible de remplacer tes instruction conditionnelles par un select case :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Select Case Form3.Csg_size_ComboBox.Text   Case "4 1/2" Csg_weight_ComboBox.Items.AddRange(New Object() {"9.5", "10.5", "11.6", "13.5", "15.1", "16.9", "17.7", "18.8"})   Case "5" Form3.Csg_weight_ComboBox.Items.AddRange(New Object() {"11.5", "13", "15", "18", "10.8"})   Case "5 1/2" Form3.Csg_weight_ComboBox.Items.AddRange(New Object() {"14", "15.5", "17", "20", "23"}) End Select

---

A+ :)

Ind6x

Bonjour,

Sur ma form windows j'ai créé un tableau avec des onglets (tabcontrol avec 5 tabpages), dans chaque tabpage j'ai des combobox qui renvoi sur des modules qui contiennent les codes.

Quand je travaille directement depuis la form sur le module le code du combobox dans le module est du type

form1.combobox.text etc.

mais quand ma combobox est dans une tabpage, ca ne marche plus, je pense qu'il faut lui dire qu'elle tabpage du genre

form.tabpage.combobox.text c'est cette syntaxe que je ne trouve pas

merci

Salut,
Cela fonctionne chez moi.
Par exemple :

Code:

---

Formulaire_principal.CheckBox_Lancement_auto_Revs.Checked = False

---

Vérifie que la classe de ton formulaire débute par :

Code:

---

Public Class Formulaire_principal

---

Bon ça marche mais je ne sais pas pourquoi, comme disait Einstein, ici je suis dans la pratique !!!


“La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi. Ici, nous avons réuni théorie et pratique : Rien ne fonctionne... et personne ne sait pourquoi !”

Sinon autre question, dans la deuxième combobox, si je fais un deuxième choix les valeurs du premier choix reste apparente, comment pourrai je les virer ?

Merci

Bonjour,
Pourrais tu définir plus clairement les comportements de tes combobox ?
Quand tu perles de choix tu parle du fait que la valeur initié dans la combobox précédente reste t'elle qu'elle est ? (entre nous c'est normal il n'y a pas de liaison tel que les radiobutton).
Si tu veux que la sélection de la combobox2 annule la combobox1, il faudra le programmer.

Merci

j'ai 4 combobox, les items de la deuxième, dépendent de la première (qui elle a une collection), les items de la troisième dépendent de la deuxième et ainsi de suite, ça marche nickel, seul problème je voudrais que les combobox se remettent à zéro (vide) quand je refais un autre choix dans une des box .

Salut,
Si tu veux supprimer les éléments de la liste :

Code:

---

ComboBox.Items.Clear()

---

Si tu veux que la sélection soit vide :

Code:

---

Combobox.SelectedIndex = -1

---

Bonne journée

Bon ça marche pour les combobox, j'ai mis un compteur et une condition, il faut que je travaille sur le lancement de la Bd qui elle plante à la deuxième sélection, mais "in progress " !