Проблема с 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 4.167 из 5