Discussion :

[dede1052]

Bonjour,

Je suis débutant en programmation VB.
Je dois faire une interface personnalisée sous le logiciel Mach3 afin de piloter une presse plieuse. D'habitude le logiciel Mach3 est prévu pour les fraiseuses et tours à commande numérique, mais étant donné que ce logiciel est 100% personnalisable et que je ne connais pas la programmation d'automate, je tente le retrofit de ma plieuse avec ce logiciel. Cependant il n'est pas très adapté à l’exploitation d'une base de donnée, il faut donc que je fasse des macro en VB en conséquence.
Les questions viendrons au fur et a mesure du projet.

Pour commencer, je dois créer une combobox. J'ai l'exemple ci-dessous, issue de la doc de la programme VB sous Mach3, qui fonctionne très bien et qui présente 3 aspects différents. Après plusieurs tests, je décide d'utiliser la DropListBox qui me parait la plus adapté à mon projet. Le problème est que j'arrive pas du tout a récupérer le résultat choisi. J'ai essayé d'utiliser la variable Button, mais ça me renvoie un -1 quelque soit le choix. Avez vous une idée de comment je dois procéder?

Merci pour votre aide.

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
Sub Main
Dim MyList$ (5)
MyList (0) = "line Item 1"
MyList (1) = "line Item 2"
MyList (2) = "line Item 3"
MyList (3) = "line Item 4"
MyList (4) = "line Item 5"
MyList (5) = "line Item 6"
Begin Dialog BoxSample 16,35,256,89,"List Box, Combo Box, and Drop-Down List Box"
OKButton 204,24,40,14
CancelButton 204,44,40,14
ListBox 12,24,48,40, MyList$( ),.Lstbox
DropListBox 124,24,72,40, MyList$( ),.DrpList
ComboBox 68,24,48,40, MyList$( ),.CmboBox
Text 12,12,32,8,"List Box:"
Text 124,12,68,8,"Drop-Down List Box:"
Text 68,12,44,8,"Combo Box:"
End Dialog
Dim Dlg1 As BoxSample
Button = Dialog ( Dlg1 )
End Sub

[popo]

Puisque tu affiche une boite de dialogue, il faut passer par elle.
Donc récupérer l'indice sélectionné dans la combo de la boite de dialogue et afficher le message correspondant.

Quelque chose comme ceci (écrit à la volée, donc non testé) :

Code :

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

MsgBox "Vous avez sélectionné: " & MyList(Dlg1.Lstbox)

[dede1052]

C'est la réponse que j'attendais, ça fonctionne parfaitement.
Merci beaucoup