ChTi160
XLDnaute Barbatruc
Bonjour à toutes et à Tous
je me suis interressé aux ListView et ce présente à moi un problème que je n'arrive pas a résoudre
j'ai un Userform avec une ListView j'aimerai inclure une icon dans la Colonne 1 et j'ai un message
je devrais normalement Lol
au niveau de cette ligne inclure l'icone d'index 1 de ma ListImage1 dans la Colonne 1(0)de ma listView
Set wItem = Me.LV_Trains.ListItems.Add(, , 'Chambéry',1,1)
j'ai un message ImageList doit être initialisé avant de pouvoir être utilisé
alors que je peux utiliser cette image dans la procèdure suivante
c'est donc que ImageList a bien était Initialisé non ??????
si quelqu'un peut me dire ou le Bas Blesse et m'indiquer la marche a suivre pour résoudre ce problème(un petit exemple )
Merci D'avance
Message édité par: Chti160, à: 20/10/2005 12:54
je me suis interressé aux ListView et ce présente à moi un problème que je n'arrive pas a résoudre
j'ai un Userform avec une ListView j'aimerai inclure une icon dans la Colonne 1 et j'ai un message
Code:
Private Sub UserForm_Initialize()
Rem On place le Listview en mode rapport
Rem qui permet de créer des colonnes
LV_Trains.View = lvwReport
Dim imgX As ListImage
Dim wItem As ListItem
Me.ImageList1.ListImages.Clear
Me.ImageList1.ImageHeight = 16
Me.ImageList1.ImageWidth = 16
Set imgX = Me.ImageList1.ListImages.Add(, , LoadPicture(ThisWorkbook.Path & '\\' & 'printer.ico'))
Rem Création des colonnes
Call LV_Trains.ColumnHeaders.Add(, , 'Départ', LV_Trains.Width / 4)
Call LV_Trains.ColumnHeaders.Add(, , 'Heure', LV_Trains.Width / 4)
Call LV_Trains.ColumnHeaders.Add(, , 'Arrivée', LV_Trains.Width / 4)
Call LV_Trains.ColumnHeaders.Add(, , 'Heure', LV_Trains.Width / 4)
'-----------
Rem Ajout de la première ligne
Set wItem = Me.LV_Trains.ListItems.Add(, , 'Chambéry',1,1)
wItem.SubItems(1) = '06:00'
wItem.SubItems(2) = 'Paris'
wItem.SubItems(3) = '09:15'
Rem Ajout de la deuxième ligne
Set wItem = LV_Trains.ListItems.Add(, , 'Chambéry')
wItem.SubItems(1) = '15:30'
wItem.SubItems(2) = 'Lyon'
wItem.SubItems(3) = '17:15'
End Sub
au niveau de cette ligne inclure l'icone d'index 1 de ma ListImage1 dans la Colonne 1(0)de ma listView
Set wItem = Me.LV_Trains.ListItems.Add(, , 'Chambéry',1,1)
j'ai un message ImageList doit être initialisé avant de pouvoir être utilisé
alors que je peux utiliser cette image dans la procèdure suivante
Code:
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim Ctrl As Control
For Each Ctrl In Me.Controls
If TypeOf Ctrl Is CommandButton Then
Ctrl.MousePointer = 99
Set Ctrl.MouseIcon = Me.ImageList1.ListImages(1).Picture
End If
Next
End Sub
si quelqu'un peut me dire ou le Bas Blesse et m'indiquer la marche a suivre pour résoudre ce problème(un petit exemple )
Merci D'avance
Message édité par: Chti160, à: 20/10/2005 12:54