Menu par icone, comme visual basic

Résolu
quiaimeflash
Messages postés
270
Date d'inscription
samedi 29 novembre 2003
Statut
Membre
Dernière intervention
11 juillet 2007
- 14 juil. 2004 à 22:56
Egalon
Messages postés
125
Date d'inscription
lundi 26 avril 2004
Statut
Membre
Dernière intervention
17 juin 2011
- 16 août 2004 à 11:44
Bonjour a tous...

Voila, je voudrais reproduire un menu comme celui de visual basic :
En faite ce serait une fenetre où l'on puisse cliquer sur un icone (ou image), donc elle est sélectionner et on valider pour avoir acces a une fentre specifique...

Je glisse cet image, pour que vous voyez, ce que je voudrai obtenir (enfin vous connaissez c'est visual basic) :

PS : Je pense que cet question interresse tout le monde...

8 réponses

MOONWAX
Messages postés
19
Date d'inscription
mercredi 14 juillet 2004
Statut
Membre
Dernière intervention
16 août 2004
1
15 juil. 2004 à 12:41
Voici quelques lignes en VB6 qui pourraient t'aider. Il faudra juste mettre un ListView et une ImageList qui contient une image sur ton formulaire :

ListView1.View = lvwIcon
ListView1.Icons = ImageList1

Dim iCompteur As Integer

For iCompteur = 0 To 4
Dim oItem As ListItem
Set oItem = ListView1.ListItems.Add
oItem.Text = "Item" & Str(iCompteur)
oItem.Icon = ImageList1.ListImages(1).Index
Next

Moonwax
3
cs_Jack
Messages postés
14007
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
80
15 juil. 2004 à 03:03
Salut quiaimeflash
Regarde du côté du controle ListView en mode Icon, ça peut ressembler à ça.
Ce controle est inclus dans l'ocx
Microsoft Windows Common Controls 6.0 (SP6)
qui est le fichier MSCOMCTL.OCX sous System32
Vala
Jack
0
cs_DARKSIDIOUS
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
131
15 juil. 2004 à 07:37
Si tu veux un exemple d'utilisation d'un tel contrôle, tu peux aller voir ma source nommée Extration icône : j'affiche les icônes extraites des fichiers dans un tel contrôle, avec la même présentation ;)

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer
0
quiaimeflash
Messages postés
270
Date d'inscription
samedi 29 novembre 2003
Statut
Membre
Dernière intervention
11 juillet 2007

15 juil. 2004 à 11:15
J'ai vu qui faut que j'utilise un ListView et un contrôle ImageList , mais je ne sais pas pourquoi je n'arrive pas a les faires fonctionner.

Moi je cherche pas a faire un truc dynamique, mais sa marche pas et tous les exemples sont en fonction des fichiers sur le disque dur ou un truc du genre...
Moi, je veut qu'il soit statique.

Si quelqu'un pouvait donner une source ou meme Zip ce serait super sympa...
Merci a tous.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
quiaimeflash
Messages postés
270
Date d'inscription
samedi 29 novembre 2003
Statut
Membre
Dernière intervention
11 juillet 2007

15 juil. 2004 à 13:33
Merci !!
MOONWAX ton code marche du tonnere !!
C'est vraiment ce que je cherchait, j'ai beaucoup fouiller et pis...
Ben merci, et je remercie quand meme "DARKSIDIOUS" et "jack".
0
quiaimeflash
Messages postés
270
Date d'inscription
samedi 29 novembre 2003
Statut
Membre
Dernière intervention
11 juillet 2007

15 juil. 2004 à 13:42
heu...
J'ai peut etre été un peut vite...
Je vien de tester avec plusieurs icone et, Il y a un p'tit bug, il n'affiche que le premier icone (4fois)

Je vais regarder, ca doit etre un pb de variable
0
quiaimeflash
Messages postés
270
Date d'inscription
samedi 29 novembre 2003
Statut
Membre
Dernière intervention
11 juillet 2007

15 juil. 2004 à 13:59
bon le pb vien t en faite de Set oItem = ListView1.ListItems.Add qu'il faut aussi incrémenter, bon, je colle le code "statique" pour vous montrez.

ListView1.View = lvwIcon
ListView1.Icons = ImageList1

Set oItem = ListView1.ListItems.Add
oItem.Text = "Item"
oItem.Icon = ImageList1.ListImages(1).Index

Set oItem2 = ListView1.ListItems.Add
oItem2.Text = "Item"
oItem2.Icon = ImageList1.ListImages(2).Index

Set oItem3 = ListView1.ListItems.Add
oItem3.Text = "Item"
oItem3.Icon = ImageList1.ListImages(3).Index


Je vous remercie tous...
0
Egalon
Messages postés
125
Date d'inscription
lundi 26 avril 2004
Statut
Membre
Dernière intervention
17 juin 2011

16 août 2004 à 11:44
Bonjour à tous,
j'ai aussi du mal avec les listview
et donc un Grand MERCI à MOONWAX et un petit merci à quiaimeflash, DARKSIDIOUS et Jack.
(je sais: ça encombre la base de données, mais ça fait tjs plaisir un petit merci...)

Signé: Egalon qui comprend difficilement
0