Menu par icone, comme visual basicRésolu

Question

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...

MOONWAX · Accepted Answer

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

cs_Jack · Answer

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

cs_DARKSIDIOUS · Answer

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

quiaimeflash · Answer

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.

quiaimeflash · Answer

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".

quiaimeflash · Answer

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

quiaimeflash · Answer

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...

Egalon · Answer

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