Sujet Précédent Sujet Suivant

Probleme taille icone dans listview

Youpien Messages postés 29 Date d'inscription samedi 31 janvier 2004 Statut Membre Dernière intervention 22 février 2009 - 19 août 2005 à 16:30
Youpien Messages postés 29 Date d'inscription samedi 31 janvier 2004 Statut Membre Dernière intervention 22 février 2009 - 19 août 2005 à 16:30
Salut a tous, j'ai un petit probleme, j'ai fais un programme avec une listview en mode lvwreport, mais les icones en debut de ligne sont tous petit on les voit a peine!!*
Quelqu'un pourrait t'il m'aider??

Voici une partie de mon code source, en faite le programme extrait les icone d'un programme pour les placer dans une listview, la partie extraction est elle placer dans un module.

dans mon form 1 :
<quote>
Private Sub Lol()
Dim jj, j, ord2, prog, pp
ListView1.View = lvwReport
Set ListView1.SmallIcons = Nothing
ImageList1.ListImages.Clear
ImageList1.ImageHeight = 16
ImageList1.ImageWidth = 16
ImageList1.ListImages.Add 1, , Me.Icon
Set ListView1.SmallIcons = ImageList1
ListView1.ListItems.Clear


jj = maDLL.LireIni("Nombre", "Nbr", App.Path & "\prog.ini")
For j = 0 To jj
ord2 = maDLL.LireIni("Ordre", "Info" & j, App.Path & "\prog.ini")
prog = maDLL.LireIni("Programme", "Info" & j, App.Path & "\prog.ini")
Call Extraire(prog, ord2)
Next j


End Sub
</quote>

le programme va chercher dans un fichier ini la liste des executables dont il faut extraire les icones.

et voici mon module :

<quote>
Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" ( _
ByVal hInst As Long, _
ByVal lpszExeFileName As String, _
ByVal nIconIndex As Long) As Long


Private Declare Function DrawIcon Lib "user32.dll" ( _
ByVal hDC As Long, _
ByVal X As Long, _
ByVal Y As Long, _
ByVal hIcon As Long) As Boolean


Private Declare Function DestroyIcon Lib "user32.dll" ( _
ByVal hIcon As Long) As Boolean


Public Sub Extraire(Path, Comm)
Static lngRefresh As Long
Dim Index As Integer
Dim hIcon As Long
Dim b As Boolean
Dim X As ListImage
Dim itmX As ListItem

hIcon = ExtractIcon(Form1.hWnd, Path, Index)

Form1.Picture1.Picture = LoadPicture(vbNullString)
b = DrawIcon(Form1.Picture1.hDC, 0, 0, hIcon)

Set X = Form1.ImageList1.ListImages.Add(, , Form1.Picture1.Image)
b = DrawIcon(Form1.ImageList1.hImageList, 0, 0, hIcon)

Set itmX = Form1.ListView1.ListItems.Add()
itmX.SmallIcon = X.Index
itmX.Text = Path
itmX.SubItems(1) = Comm


Index = Index + 1
b = DestroyIcon(hIcon)

End Sub


</quote>

Alors?? verdict please???

1 réponse

Réponse 1 / 1
Youpien Messages postés 29 Date d'inscription samedi 31 janvier 2004 Statut Membre Dernière intervention 22 février 2009
19 août 2005 à 16:30
Bah desole!!! je sais pas comment on fait pour encadrer le code source dans le forumm!!
0

Discussions similaires

[D7] Impression code-barres sur une imprimante d'étiquettes
cs_nitrique -
cs_nitrique -

15 réponses
recuperer la taille d'un tableau avec php, c'est possible??
cs_redemption -
JaMyGG -

8 réponses
Condition d'une valeur dans un tableau
solomonn -
solomonn -

17 réponses
taille "VRAIEMENT" fixe d'une colonne dans un tableau
Teddy_le_gnein -
Teddy_le_gnein -

10 réponses
afficher un tableau en php
Larose_1921 -
s -

1 réponse
Rejoignez-nous