Проблема с MSComctlLib: Public Sub AddListViewItems(EventFl As String, ByVal NodeItem As MSComctlLib.Node) - VB
Формулировка задачи:
Референсы стоят на него, а он гад ругается
user defined type не находит!
Public Sub AddListViewItems(EventFl As String, ByVal NodeItem As MSComctlLib.Node)
в объяве такой обработки события!
Решение задачи: «Проблема с MSComctlLib: Public Sub AddListViewItems(EventFl As String, ByVal NodeItem As MSComctlLib.Node)»
textual
Листинг программы
Private Sub Form_Load() Dim nodX As Node Set nodX = TreeView1.Nodes.Add(,,'R','Root') Set nodX = TreeView1.Nodes.Add('R', tvwChild,'C1','Child 1') Set nodX = TreeView1.Nodes.Add('R', tvwChild,'C2','Child 2') Set nodX = TreeView1.Nodes.Add('R', tvwChild,'C3','Child 3') Set nodX = TreeView1.Nodes.Add('R', tvwChild,'C4','Child 4') nodX.EnsureVisible TreeView1.Style = tvwTreelinesText ' Style 4. TreeView1.BorderStyle = vbFixedSingle End Sub Private Sub Form_Click() Dim i As Integer Dim strNodes As String For i = 1 To TreeView1.Nodes.Count strNodes = strNodes & TreeView1.Nodes(i).Index & ' ' & _ 'Key: ' & TreeView1.Nodes(i).Key & ' ' & _ 'Text: ' & TreeView1.Nodes(i).Text & vbLF Next i MsgBox strNodes End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д