faire communiquer une combobox et textbox

j'aimerais faire une playlist de musiques dans une combobox et associer un prénom à la chanson choisi.

ex: choisir dans une combo.list(x)

x=5 émé chanson et associer un prénom, afficher une form qui jouent la musique
Quand la form se ferme
lire une deuxieme prenom associer a une autre chanson
et un troisieme, etc...
A chaque fois qu'une chanson est joue effacer l'entrée du prénom
Dois je passer par une base de donnée ou des fchiers.
merci de vos réponses.

je ne comprend pas tres bien ce que tu veux faire peux tu etre un peut plus precis ??

Citation:

---

Envoyé par sovo

je ne comprend pas tres bien ce que tu veux faire peux tu etre un peut plus precis ??

---

exemple :
combo1.list(x)

dans cette list
récupérer la valeur de x

Citation:

---

Envoyé par aliosys

Citation:

---

Envoyé par sovo

je ne comprend pas tres bien ce que tu veux faire peux tu etre un peut plus precis ??

---

exemple :
combo1.list(x)

dans cette list
récupérer la valeur de x

---

dans une combobox
Je veux avoir une list de 10 chanson
par exemple je choisi la 5 et apres j'affiche un msgbox
je veux récupérer la variable de la 5 eme chanson

ex=


combo1.list(5)

msgbox combox.list(5)

dans ma combobox
affichier le titre de la 5 eme chanson dans une msgbox

Citation:

---

Envoyé par aliosys

récupérer la valeur de x

---

quant entends par valeur ?? le contenu ??

si c'est le cas essai ceci :

Code:

---

1 2	text1.text=combo1.list(2)

---

Citation:

---

Envoyé par sovo

Citation:

---

Envoyé par aliosys

récupérer la valeur de x

---

quant entends par valeur ?? le contenu ??

si c'est le cas essai ceci :

Code:

---

1 2	text1.text=combo1.list(2)

---

---

le contenu

tout a fait

ok, voila un exemple qui poura peut etre t'aider.

tout d'abord tu doit remplir ton combobox

Code:

---

1 2 3 4 5 6 7

dim i as integer   'tu remplis le combo par le numero allant de 0 au 9 for i=0 to 9 combo1.additem i next

---

'ensuite tu recuperes le contenu d'un element (exemple 3), que tu mets dans un textbox

Code:

---

1 2	text1.text=combo1.list(2)

---

Citation:

---

Envoyé par aliosys

Citation:

---

Envoyé par sovo

Citation:

---

Envoyé par aliosys

récupérer la valeur de x

---

quant entends par valeur ?? le contenu ??

si c'est le cas essai ceci :

Code:

---

1 2	text1.text=combo1.list(2)

---

---

le contenu

tout a fait

---

Private Sub Command1_Click()
x = 0
If x <> 0 Then
'choisir une autre entrée

Else
MsgBox Combo1.List(0)
End If
End Sub

dans ton code , il va toujours afficher l'element d'index 0, car tu dit :

Code:

---

1 2 3

x = 0 If x <> 0 Then

---

c'est a dire tu mets 0 dans x et juste ensuite tu fait une comparaison, dans dans ta comparaison tu lui dit "si x est different de 0" ce qui est faux. dans dans tous les cas il va toujours faire le sinon,c'est a dire "msgbox combo1.list(0).


reverifie bien ta logique. ou alors dit moi exactement ce que tu veux faire et on va trouver une solution a ce pb ensemble.

Citation:

---

Envoyé par sovo

dans ton code , il va toujours afficher l'element d'index 0, car tu dit :

Code:

---

1 2 3

x = 0 If x <> 0 Then

---

c'est a dire tu mets 0 dans x et juste ensuite tu fait une comparaison, dans dans ta comparaison tu lui dit "si x est different de 0" ce qui est faux. dans dans tous les cas il va toujours faire le sinon,c'est a dire "msgbox combo1.list(0).


reverifie bien ta logique. ou alors dit moi exactement ce que tu veux faire et on va trouver une solution a ce pb ensemble.

---

je veux récupérer i
Combo1.List (i)

et l'affichier dans msgbox

Citation:

---

Envoyé par aliosys

Citation:

---

Envoyé par sovo

dans ton code , il va toujours afficher l'element d'index 0, car tu dit :

Code:

---

1 2 3

x = 0 If x <> 0 Then

---

c'est a dire tu mets 0 dans x et juste ensuite tu fait une comparaison, dans dans ta comparaison tu lui dit "si x est different de 0" ce qui est faux. dans dans tous les cas il va toujours faire le sinon,c'est a dire "msgbox combo1.list(0).


reverifie bien ta logique. ou alors dit moi exactement ce que tu veux faire et on va trouver une solution a ce pb ensemble.

---

text1.text=combo1.list(2)
dans ce cas je récupère le numéro de la list
moi je veux récupérer le 3 quand je sélectionne le 3
remplacer le 2 par x
x repésentent la valeur que j'ai choisi dans mon msgbox






je veux récupérer i
Combo1.List (i)

et l'affichier dans msgbox

---

Bonsoir,
Comme j'ai rien compris à cette histoire de form qui joue, tout à fait au hasard.
Code]
Private Sub Form_Load()
Combo1.AddItem "Johnny"
Combo1.AddItem "Sylvie"
Combo1.AddItem "Marc"
End Sub

Private Sub Combo1_Click()
Select Case Combo1.ListIndex
Case 0
Text1.Text = Combo1.Text
Case 1
Text1.Text = Combo1.Text
Case 2
Text1.Text = Combo1.Text
End Select
End Sub
[/Code]
jpleroisse

Salut

Code:

---

MsgBox Combo1.List(Combo1.ListIndex)

---

affiche la sélection faite par l'utilisateur

Citation:

---

Envoyé par zazaraignée

Salut

Code:

---

MsgBox Combo1.List(Combo1.ListIndex)

---

affiche la sélection faite par l'utilisateur

---

bonjour,

Je te remercie amplement
Tu as tout a fait raison de passer par select case
mais j'ai plus de 1500 entrées
Je vais passer un cotrol data par base de données.
je voulais éviter de mettre mes 1500 entrées par un select case
C'est super sympa de ta part
Je suis sur msm
mon email est aliosys@gmail.com