Comment faire pour afficher une image en fonction du choix dans une listbox ?
Flit
-
30 avril 2001 à 14:24
stepaustral Messages postés 54 Date d'inscription dimanche 5 janvier 2003 Statut Membre Dernière intervention 29 juillet 2012 - 9 oct. 2003 à 12:02
stepaustral Messages postés 54 Date d'inscription dimanche 5 janvier 2003 Statut Membre Dernière intervention 29 juillet 2012 - 9 oct. 2003 à 12:02
A voir également:
- Imgruc
- Afficher un tableau en php - Conseils pratiques -PHP
- Une image .tiff repose sur une palette de 256 000 couleurs. ✓ - Forum C++ & C++ .NET
- Afficher un tableau en php - Forum PHP
- Une image .tiff repose sur une palette de 256 000 couleurs ✓ - Forum Delphi / Pascal
- Transformer une image jpg en tiff ✓ - Forum C# / .NET
7 réponses
Uilises:
list1.ListIndex <- ca te donne le numéro de la ligne qui est sélctionnée (1éré ligne=0, 2eme ligne=1,...)
ou sinon,
list1.list(list1.listindex) <- ca te donne ca ki est écrit dans la ligne séléctionné
ou sinon
g pas compr t'as kestion ;)
@+
fabs :big)
list1.ListIndex <- ca te donne le numéro de la ligne qui est sélctionnée (1éré ligne=0, 2eme ligne=1,...)
ou sinon,
list1.list(list1.listindex) <- ca te donne ca ki est écrit dans la ligne séléctionné
ou sinon
g pas compr t'as kestion ;)
@+
fabs :big)
Voilà en fait j'ai une listbox, avec par exemple a la premiere ligne "Bidule", a la deuxieme "Truc" et a la troisieme "Machin". En fait je voudrais que quand je choisi "Bidule", y'ait une image specifique a "Bidule" qui apparaisse, par exemple "ImgBidule"... Et "ImgTruc" Pour "Truc" et "ImgMachin" Pour "Machin".
En clair si tu cliques sur "Bidule", l'image "ImgBidule" s'affiche et si tu cliques sur "Truc", l'image "ImgTruc" s'affiche... J'espere que vous me comprenez mieux...
Et donc ce que je voudrais savoir c'est comment faire pour afficher les differentes images ???? Faut il utiliser un "Picturebox" ?
Merci de m'expliquer.... mieux que moi je n'expliquer si possible :)))
En clair si tu cliques sur "Bidule", l'image "ImgBidule" s'affiche et si tu cliques sur "Truc", l'image "ImgTruc" s'affiche... J'espere que vous me comprenez mieux...
Et donc ce que je voudrais savoir c'est comment faire pour afficher les differentes images ???? Faut il utiliser un "Picturebox" ?
Merci de m'expliquer.... mieux que moi je n'expliquer si possible :)))
eh ben moi je ferai comme ça:
place un groupe trois picturebox (pict(0), pict(1), pict(2))
pict(0) = l'image bidule
pict(1) = l'image truc
pict(2) = l'image machin
Private Sub List1_DblClick()
Select case List1.Text
Case "Bidule"
' si on a cliqué sur la case bidule
for i = 0 to 2
pict(i).visible = false
' les trois images ne sont plus visibles
next i
pict(0).visible = true
' l'image bidule est visible
case "Truc"
for i = 0 to 2
pict(i).visible = false
next i
pict(1).visible = true
case "Machin"
for i = 0 to 2
pict(i).visible = false
next i
pict(2).visible = true
end select
end sub
j'éspère que ça t'ira
moi non plus je ne sais pas expliquer
:-p
bye
----
---------------------------
Réponse au message :
-------------------------------
Voilà en fait j'ai une listbox, avec par exemple a la premiere ligne "Bidule", a la deuxieme "Truc" et a la troisieme "Machin". En fait je voudrais que quand je choisi "Bidule", y'ait une image specifique a "Bidule" qui apparaisse, par exemple "ImgBidule"... Et "ImgTruc" Pour "Truc" et "ImgMachin" Pour "Machin".
En clair si tu cliques sur "Bidule", l'image "ImgBidule" s'affiche et si tu cliques sur "Truc", l'image "ImgTruc" s'affiche... J'espere que vous me comprenez mieux...
Et donc ce que je voudrais savoir c'est comment faire pour afficher les differentes images ???? Faut il utiliser un "Picturebox" ?
Merci de m'expliquer.... mieux que moi je n'expliquer si possible :)))
place un groupe trois picturebox (pict(0), pict(1), pict(2))
pict(0) = l'image bidule
pict(1) = l'image truc
pict(2) = l'image machin
Private Sub List1_DblClick()
Select case List1.Text
Case "Bidule"
' si on a cliqué sur la case bidule
for i = 0 to 2
pict(i).visible = false
' les trois images ne sont plus visibles
next i
pict(0).visible = true
' l'image bidule est visible
case "Truc"
for i = 0 to 2
pict(i).visible = false
next i
pict(1).visible = true
case "Machin"
for i = 0 to 2
pict(i).visible = false
next i
pict(2).visible = true
end select
end sub
j'éspère que ça t'ira
moi non plus je ne sais pas expliquer
:-p
bye
----
---------------------------
Réponse au message :
-------------------------------
Voilà en fait j'ai une listbox, avec par exemple a la premiere ligne "Bidule", a la deuxieme "Truc" et a la troisieme "Machin". En fait je voudrais que quand je choisi "Bidule", y'ait une image specifique a "Bidule" qui apparaisse, par exemple "ImgBidule"... Et "ImgTruc" Pour "Truc" et "ImgMachin" Pour "Machin".
En clair si tu cliques sur "Bidule", l'image "ImgBidule" s'affiche et si tu cliques sur "Truc", l'image "ImgTruc" s'affiche... J'espere que vous me comprenez mieux...
Et donc ce que je voudrais savoir c'est comment faire pour afficher les differentes images ???? Faut il utiliser un "Picturebox" ?
Merci de m'expliquer.... mieux que moi je n'expliquer si possible :)))
Bon pour que tout le monde comprenne bien voila le code que j'ai dans ma feuille :
---------------------------------------------------------
Public Max
Dim NomJeu(50)
Dim TextJeu(5000)
---------------------------------------------------------
Private Sub Form_Load()
Open "C:\TXT.txt" For Input As #1 'Ouvre mon fichier .Txt
i = 1
Do
Line Input #1, NomJeu(i)
Line Input #1, TextJeu(i)
List1.AddItem NomJeu(i)
i = i + 1
Loop Until EOF(1)
Max = i - 1
End Sub
---------------------------------------------------------
Private Sub List1_Click()
For i = 1 To Max
If NomJeu(i) = List1.Text Then
Text1.Text = TextJeu(i)
End If
Next i
End Sub
---------------------------------------------------------
Voici a quoi ressemble mon fichier TXT :
Nomjeu1
Textjeu1
Nomjeu2
TextJeu2
Nomjeu3
TextJeu3
Sur ma Form j'ai donc une Listbox "List1" et un Textbox "Text1". J'ai deja fait en sorte que quand je clique sur "Nomjeu1" dans la listbox, "TextJeu1" s'affiche dans le Textbox. Maintenant je voudrais qu'une image "ImgJeu1" s'affiche en plus quelque part... Et c'est la que je suis bloqué...
Voilà j'espere que maintenant on arrivera a se comprendre !!!!!!!!
---------------------------------------------------------
Public Max
Dim NomJeu(50)
Dim TextJeu(5000)
---------------------------------------------------------
Private Sub Form_Load()
Open "C:\TXT.txt" For Input As #1 'Ouvre mon fichier .Txt
i = 1
Do
Line Input #1, NomJeu(i)
Line Input #1, TextJeu(i)
List1.AddItem NomJeu(i)
i = i + 1
Loop Until EOF(1)
Max = i - 1
End Sub
---------------------------------------------------------
Private Sub List1_Click()
For i = 1 To Max
If NomJeu(i) = List1.Text Then
Text1.Text = TextJeu(i)
End If
Next i
End Sub
---------------------------------------------------------
Voici a quoi ressemble mon fichier TXT :
Nomjeu1
Textjeu1
Nomjeu2
TextJeu2
Nomjeu3
TextJeu3
Sur ma Form j'ai donc une Listbox "List1" et un Textbox "Text1". J'ai deja fait en sorte que quand je clique sur "Nomjeu1" dans la listbox, "TextJeu1" s'affiche dans le Textbox. Maintenant je voudrais qu'une image "ImgJeu1" s'affiche en plus quelque part... Et c'est la que je suis bloqué...
Voilà j'espere que maintenant on arrivera a se comprendre !!!!!!!!
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Merci a ceux qui m'ont aidé !!!
En gros Fabiin c'est bien ca qu'il fallait faire ! Voici le code de mon Form si ca peut servir a quelqu'un...
Public Max
Dim NomJeu(50)
Dim TextJeu(5000)
Dim ImgJeu(50)
'
Private Sub Form_Load()
Open "C:\TXT.txt" For Input As #1
i = 1
Do
Line Input #1, NomJeu(i)
Line Input #1, TextJeu(i)
Line Input #1, ImgJeu(i)
List1.AddItem NomJeu(i)
i = i + 1
Loop Until EOF(1)
Max = i - 1
End Sub
'
Private Sub List1_Click()
For i = 1 To Max
If NomJeu(i) = List1.Text Then
Text1.Text = TextJeu(i)
Picture1.Picture = LoadPicture(ImgJeu(i))
End If
Next i
End Sub
En gros Fabiin c'est bien ca qu'il fallait faire ! Voici le code de mon Form si ca peut servir a quelqu'un...
Public Max
Dim NomJeu(50)
Dim TextJeu(5000)
Dim ImgJeu(50)
'
Private Sub Form_Load()
Open "C:\TXT.txt" For Input As #1
i = 1
Do
Line Input #1, NomJeu(i)
Line Input #1, TextJeu(i)
Line Input #1, ImgJeu(i)
List1.AddItem NomJeu(i)
i = i + 1
Loop Until EOF(1)
Max = i - 1
End Sub
'
Private Sub List1_Click()
For i = 1 To Max
If NomJeu(i) = List1.Text Then
Text1.Text = TextJeu(i)
Picture1.Picture = LoadPicture(ImgJeu(i))
End If
Next i
End Sub
stepaustral
Messages postés
54
Date d'inscription
dimanche 5 janvier 2003
Statut
Membre
Dernière intervention
29 juillet 2012
9 oct. 2003 à 12:02
9 oct. 2003 à 12:02
ton code m'interesse mais ya un truc qui cloche fo mettre la fonction
Picture1.Picture = LoadPicture("nom de l'image.bmp")
et si tu as 100 image a placer sur ta liste tu fais comment
si ta des modif sur ton source je veux bien
merci
Picture1.Picture = LoadPicture("nom de l'image.bmp")
et si tu as 100 image a placer sur ta liste tu fais comment
si ta des modif sur ton source je veux bien
merci
