Среда Visual Basic STUDIO’2010 Professional
Разбираю пример "XML", поставляемый со STUDIO'2010
Создал свой проект "XML_my"
В моём проекте в процедуре загрузки
Только 4 строки завршаются правильно, т.е. в контроле "CheckedListBox" выведены 4 строки, как показано на снимке. Почему остальные строки не выводятся? Для остальных строк кода выводится сообщение
"Окно списка содержит слишком много элементов."
при выполнении оператора
For Each xmlTask As Task In taskList ?
В процедуре Private Sub MainForm_Load()
Имеется 18 строк, только 4 образуют массив, где искать
Размер массива = 4, а не 18 ? Или как?
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
Public Class MainForm
Private taskList As List(Of Task)
Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Заполните коллекцию частных задач
taskList = New List(Of Task)
taskList.Add(New Task(My.Resources.cmdLoadXmlFile, AddressOf loadAndDisplayXML))
taskList.Add(New Task(My.Resources.cmdLoadXmlString, AddressOf loadXmlString))
taskList.Add(New Task(My.Resources.cmdTestForChildNodes, AddressOf testForChildNodes))
taskList.Add(New Task(My.Resources.cmdIterateAllNodes, AddressOf iterateAllNodes))
taskList.Add(New Task(My.Resources.cmdDetermineNodeType, AddressOf determineNodeType))
taskList.Add(New Task(My.Resources.cmdListAllElementNodes, AddressOf listAllElementNodes))
taskList.Add(New Task(My.Resources.cmdListElementsByTag, AddressOf listElementsByTag))
taskList.Add(New Task(My.Resources.cmdSelectNodes, AddressOf selectNodes))
taskList.Add(New Task(My.Resources.cmdSelectNode, AddressOf selectSingleNode))
taskList.Add(New Task(My.Resources.cmdNavigateRelatedNodes, AddressOf navigateRelatedNodes))
taskList.Add(New Task(My.Resources.cmdRetrieveAttributes, AddressOf retrieveAttributes))
taskList.Add(New Task(My.Resources.cmdCreateXML, AddressOf createXML))
taskList.Add(New Task(My.Resources.cmdAddOrDeleteElements, AddressOf addDeleteElements))
taskList.Add(New Task(My.Resources.cmdAddOrDeleteAttributes, AddressOf addDeleteAttributes))
taskList.Add(New Task(My.Resources.cmdModifyElement, AddressOf modifyElement))
taskList.Add(New Task(My.Resources.cmdModifyAttribute, AddressOf modifyAttribute))
taskList.Add(New Task(My.Resources.cmdValidXml, AddressOf validXML))
taskList.Add(New Task(My.Resources.cmdParseErrors, AddressOf parseErrors))
' Загрузите список задач в список
xmlTasks.Items.Clear()
For Each xmlTask As Task In taskList ' Окно списка содержит слишком много элементов.
xmlTasks.Items.Add(xmlTask, False)
Next
End Sub
' процедуры, свойства, функции
End Class
Спасибо.
