PDA

Vollständige Version anzeigen : Klasse ListView


strausto
23.03.2004, 10:05
Hi!

Klasse cls_listView

Private WithEvents c_lstView As MSComctlLib.ListView

Public Property Set p_lstView(objlstView As MSComctlLib.ListView)

Set c_lstView = objlstView

End Property

Private Sub c_lstView_Click()
MsgBox "Hallo"
End Sub


Im Open Event des Forms:


Private clslstView As cls_lstView

Private Sub Form_Open(Cancel As Integer)

Set clslstView = New cls_lstView
Set clslstView.p_lstView = Me.ListView_Ergebnis 'FEHLER


Fehler beim Starten des Forms:

"type missmatch"

Warum?

Danke!

Karlheinz
23.03.2004, 11:22
Hallo,

versuch im Load-Ereignis könnte Abhilfe schaffen.

Gruß karlheinz

strausto
23.03.2004, 11:47
Nein leider nicht!

strausto
23.03.2004, 11:48
Okay so geht es:
Private clslstView As cls_lstView

Private Sub Form_Open(Cancel As Integer)

Set clslstView = New cls_lstView
Set clslstView.p_lstView = Me.ListView_Ergebnis.object

Ist mir nur ein bisschen unverständlich!

Aber vielleicht weiss Nouba oder Sascha eine Erklärung?!