- Код: Выделить всё
<?xml version="1.0" encoding="cp866"?>
<Tasks count="3">
<Task name="Задача 53">
<Measure wellbehavior="Фоновый основной">
<Curves cur1="vvv" cur2="gkk" cur3="lmm"/>
</Measure>
<Measure wellbehavior="Фоновый контрольный">
<Curves cur1="vvv" cur2="gkk" cur3="lmm"/>
</Measure>
</Task>
<Task name="Задача 58">
<Measure wellbehavior="Фоновый основной">
<Curves cur1="vvv" cur2="gkk" cur3="lmm"/>
</Measure>
<Measure wellbehavior="Фоновый контрольный">
<Curves cur1="vvv" cur2="gkk" cur3="lmm"/>
</Measure>
<Measure wellbehavior="Локация отверстий">
<Curves cur1="vvv" cur2="lmm"/>
</Measure>
</Task>
<Task name="Задача 11">
<Measure wellbehavior="Уровень статический">
<Curves cur1="vvv" cur2="wlg"/>
</Measure>
<Measure wellbehavior="Уровень-1">
<Curves cur1="vvv" cur2="wlg"/>
</Measure>
<Measure wellbehavior="Уровень-2">
<Curves cur1="vvv" cur2="wlg"/>
</Measure>
<Measure wellbehavior="Уровень-3">
<Curves cur1="vvv" cur2="wlg"/>
</Measure>
<Measure wellbehavior="Уровень-4">
<Curves cur1="vvv" cur2="wlg"/>
</Measure>
<Measure wellbehavior="Уровень-5">
<Curves cur1="vvv" cur2="wlg"/>
</Measure>
<Measure wellbehavior="Уровень-6">
<Curves cur1="vvv" cur2="wlg"/>
</Measure>
</Task>
</Tasks>
На форме есть элемент ComboBox, который заполняется из этого файла:
- Код: Выделить всё
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim reader As XmlReader = XmlReader.Create(teststring)
Try
While reader.Read
If reader.HasAttributes And reader.Name = "Task" Then
reader.MoveToAttribute("name")
cmbTasks.Items.Add(reader.Value)
End If
End While
Catch ex As Exception
MessageBox.Show(ex.Message.ToString)
End Try
reader.Close()
End Sub
Также, есть элемент DataGridView, у которого один из столбцов с ComboBox-ами. Нужно, чтобы, при изменении значения комбо на форме, менялись элементы комбо в гриде. Подскажите как задавать итемы в комбобоксах грида, если столбец создан в дизайнере форм ? Никак не могу найти.
И еще, каким способом считать значения welbehavior в приведенном выше XML-файле ? Я добрался только до сюда:
- Код: Выделить всё
Dim reader As XmlReader = XmlReader.Create(teststring)
Try
While reader.Read
If reader.HasAttributes And reader.Name = "Task" Then
reader.MoveToAttribute("name")
If reader.Value = cmbTasks.SelectedItem.ToString Then
'Как забраться дальше ?
End If
End If
End While
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
reader.Close()
Заранее благодарен.
