Executer une action à partir d'un ComboBox

Version imprimable

04/12/2006, 21h56
Ramdoulou

Executer une action à partir d'un ComboBox

Bonsoir à tous.

Je suis sur un nouveau projet, mais je suis en pleine élaboration mentale comme à chaque projet ^^.

Et malheureusement pour moi, je ne sais pas me servir d'un ComboBox.

Enfin, j'aimerai entrer des éléments dans une liste, et que lorsque je clique sur un des éléments, cela m'execute une action MAIS, j'aimerai qu'il y ai une action définie pour chaque élément de la liste.

Prenons comme action un MsgBox.

Que dois-je faire pour que ceci soit realisable silvouplait ?

Merci d'avance et bonne soirée =)

Crée une sub pour programmer ton action, avec un parametre de type integer. passe la propriété listindex de ta combobox quant tu apelle ta sub d'action
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Private Sub Combo1_Change() Dim Index As Intger Index = Combo1.ListIndex If Index < 0 Then Exit Sub Action Index End Sub Private Sub Action(Index As Integer) Select Case Index Case 0 To 5 MsgBox "Vous avez sélectionné la ligne " & Index Case 6 MsgBox "Gagné" Case Else MsgBox "Perdu" End Select End Sub
Mais pour ce genre de chose, vaut mieux utiliser un composant liste qui me semble plus approprié

05/12/2006, 15h45
avigeilpro

Si tes actions dépendent du texte en lui même alors utilise la propriété text du combobox avec une série de if (le select case ne pouvant être appliqué à du texte) ;)
05/12/2006, 16h00
Najdar

Citation:

Envoyé par avigeilpro

le select case ne pouvant être appliqué à du texte ;)

Je pense que cela mérite une explication, je n'ai pas du comprendre :oops:.
J'utilise tous les jours du texte dans mes Select case.

Essaie ceci :

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
Option Explicit
 
Private mFinInitialisation As Boolean 'Indique que l'initialisation des controles est terminée
 
Private Sub Form_Load()
  mFinInitialisation = False
 
  With Combo1
    'Indique qu'il est impossible de choisir autre chose que
    ' les éléments proposés dans la liste
    'Mettre .Style = DropDownList dans la propriété de la combo (impossible a faire par le code
 
    'Ajout des actions
    .AddItem "Action1"
    .AddItem "Action2"
    .AddItem "Action3"
 
 
    'Sélectionne l'action par défaut
    .ListIndex = 0 'Action1
  End With
 
  mFinInitialisation = True
End Sub
 
Private Sub Combo1_Click()
  'On utilise _Click par avec une combo DropDownList, l'événement _Change ne se produit pas
 
  If mFinInitialisation = False Then
    'L'événement Combo1_Click est déclenché par .ListIndex = 0 (dans Form_Load) pas par l'utilisateur
    Exit Sub
  End If
 
  'Sélection des actions en fonction du texte de la combo
  ' On peut aussi utiliser la propriété ListIndex, mais attention si la combo est triée .Sorted=True
  ' .ListIndex est dans l'ordre alphabétique pas dans l'ordre d'insertion !
  Select Case Combo1.Text
  Case "Action1": MsgBox "L'élement Action1 est sélectionné", vbCritical
  Case "Action2": MsgBox "L'élement Action2 est sélectionné", vbExclamation
  Case "Action3": MsgBox "L'élement Action3 est sélectionné", vbInformation
  End Select
End Sub

Quand tu travail avec du texte comme cela, je te conseil d'utiliser des constantes, cela évite les erreurs de frappes et le compilateur te l'indique.

Code:

Private Const ACTION1 As String = "Action1"

05/12/2006, 18h04
Ramdoulou
Donc je peux aussi executer mes actions grâce au texte, avec un bouton qui verifierai le text de la comboBox et qui executeras ce que je lui ai dis par exemple :
Code:

1 2 3 If ComboBox.text = "Option Hello" then Call MsgBox("Vous avez selectionnez l'option Hello.", vbExclamation, "Essais") End if
Déjà ca, ça marche, apres faudra que j'essaye la méthode de Delbeke.
06/12/2006, 12h52
avigeilpro

:oops: :oops: J'ai confondu avec Delphi :oops: :oops: Désolé, fausse info. :(
06/12/2006, 13h52
Ramdoulou

xD

Merci Najdar, j'irai essayer ça ;)
06/12/2006, 19h53
Ramdoulou

Donc la méthode de Najdar fonctionne et j'ai bien compris, sauf le

Code:

.listindex = 0

Et la méthode de Delbeke, je n'ai pas encore essayé car en lisant attentivement je ne comprend pas trop, Serait il possible que tu détaille certains éléments silteplait ?

Merci =)
07/12/2006, 08h48
Najdar

Citation:

Envoyé par Ramdoulou

Donc la méthode de Najdar fonctionne et j'ai bien compris, sauf le

Code:

.listindex = 0

Merci =)

La propriété ListIndex indique (et permet de définir) la ligne actuellement sélectionnée. Chaque ligne ajoutée dans la combo à automatiquement un Index allant de 0 à N-1 (N étant le nombre de ligne dans la combo).

Si aucune n'est sélectionnée ListIndex vaut -1.

Dans l'exemple .ListIndex = 0 permet de sélectionner, par le code, la première ligne de la combo.

J'espère avoir été claire.
De toute façon n'hésite a faire :f1:
07/12/2006, 15h31
Ramdoulou

Oui merci j'ai compris.

J'attends juste une petite réponse de Delbeke au sujet de ma précédente question, avant de mettre ce topic en Résolu ;)
07/12/2006, 16h03
sovo

En fait les deux propositions sont LOGIQUEMENT les memes. Sauf que tandis que Delbeke passe par les index (ce qui a mon avis est plutot une bonne methode), Najdar passe par les contenus (pas tres pratique, mais heureusement il se rattrape avec Combo1.Style = DropDownList ).
07/12/2006, 17h22
Ramdoulou

Justement je n'ai pu essayer la méthode de Delbeke car je n'ai pas compris son code, donc si quelqu'un pouvais détailler chaque parties, ça serait vraiment sympa.

Merci

J'ai commenté les lignes, désolé, je n'ai pas pensé à ceux qui débutent dans vb

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Combo1_Change()
  Dim Index As Integer
  Index = Combo1.ListIndex   'récuperer le numero de la liste selectionée
  If Index < 0 Then Exit Sub  'si pas de ligne sélectionnée on sort
  Action Index  'Appeler la function Action en lui passant le numero de la ligne sélectionée comme argument
End Sub
 
Private Sub Action(NumLigne As Integer)
  Select Case NumLigne  ' on va tester le contenu de la varialble numLigne
  Case 0 To 5  'si la valeur est comprise entre 0 et 5
    MsgBox "Vous avez sélectionné la ligne " & NumLigne
  Case 6 'si la valeur est 6
    MsgBox "Gagné"
  Case Else 'dans tous les autres cas
    MsgBox "Perdu"
  End Select
End Sub

07/12/2006, 19h09
Ramdoulou

Enfaite j'ai compris le code, ensuite je l'ai copié/coller car je ne pense pas que, exepté le ComboBox, il faut ajouter un autre composant.

Mais ca ne marche pas...