Программирование для карманных компьютеров

7. Нужно написать код обработчика щелчка на кнопке добавления записи, который приведен в листинге 6.26. Листинг 6.26

Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As

System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick

If e.Button Is ToolBarButton1 Then

Dim str(3) As String

Dim editFrm As New Form2

editFrm.Send = 3

Dim countInt As Integer

If ds.Tables(0). Rows.Count <> 0 Then

countInt = ds.Tables(0). Rows.Count – 1

categorySt = ds.Tables(0). Rows(countInt). Item(0)

startOfSt = ds.Tables(0). Rows(countInt). Item(2)

endOfSt = ds.Tables(0). Rows(countInt). Item(2)

noteSt = ""

Else

categorySt = ""

startOfSt = ""

endOfSt = ""

noteSt = ""

End If

If editFrm.ShowDialog = DialogResult.OK Then

str(0) = categorySt

str(1) = startOfSt

str(2) = endOfSt

str(3) = noteSt

ds.Tables(0). Rows.Add(str)

ds.WriteXml(dirStr + strFileName)

End If

End If

End Sub

Этот код мало отличается от кода, который создавался в прошлом проекте. Код форм Form2.vb и Data.vb вообще не изменился. Теперь можно запустить проект и добавить несколько записей. Внешний вид приложения должен соответствовать тому, что показано на рис. 6.20.

Рис. 6.20. Программа с ненастроенным DataGrid.