Forums Neueste Beiträge
 

Icon in abgeleiteten ListView Control ändern

12/11/2007 - 17:17 von Roland Schumacher | Report spam
Hallo NG

Ich bin so ziemlich am schwimmen. Komme aus der C# Ecke und darf jetzt
an einem VB 6 Projekt schrauben.
OK. Zum eigentlichen Problem.
Ich habe hier ein abgeleitetes ListView. Leider werden mir nicht ganz
alle original Eigenschaften angeboten.
Ich habe aber eine Gefunden die mir das ListView zurück gibt.

' Gibt ein Pointer auf das interne VisualBasic ListView Control
zurück.
'
'@return Pointer auf interne VisualBasic ListView
Public Property Get ControlListView() As Object
Set ControlListView = lstList
End Property

Aber es ist nur ein Get.
Ich müsste jetzt bei gewissen ListItem das Icon àndern. Genau da
beisse ich mir die Zàhne aus.
Mein Ansatz sieht so aus.

Dim item As ListItem
Dim view As listView

For Each item In lstStudent.ControlListView.ListItems
item.Icon = c_p_strIconStudentPruefungDiv
Next

In die For Each geht er rein. Dann kommt folgende Meldung.

35613
"Das Abbildungsliste-Steuerelement muß vor der Verwendung
initialisiert werden"

Ich nehme an, das wàre das ListView selber. Allerdings bekomme ich das
nicht hin.
Dim view As listView -> das list von ListView wird immer klein
geschrieben.
Es müsste wahrscheinlich so sein. -> Dim view As ListView

Oder liegt es an was anderem?

Gruss
Roland Schumacher
http://blog.geniali.ch/
 

Lesen sie die antworten

#1 Timo Kunze
12/11/2007 - 17:31 | Warnen spam
Roland Schumacher schrieb:
Oder liegt es an was anderem?


Ja. Du musst dem ListView erst ein ImageList-Control zuweisen, in dem du
die Icons ablegst. Der Icon-Eigenschaft des ListViewItems weist du dann
den Index oder den Key des Icons in der ImageList zu.

Timo
www.TimoSoft-Software.de - Unicode controls for VB6
"Those who sacrifice freedom for safety deserve neither."

Ähnliche fragen