Загрузив этот файл, его необходимо запустить. Программа установки выполнит все необходимые операции. Необходимые файлы будут размещены в папке С: \ Program Files\.NET Compact Framework Samples\DateTimePicker DesignTime Sample.

Для того чтобы воспользоваться компонентом, необходимо проделать нехитрую последовательность действий.

? В папке C: \Program Files\.NET Compact Framework Samples\DateTimePicker DesignTime Sample\code\CS найти файл DateTimePickerControl.sIn и открыть его двойным щелчком мыши.

? В открывшемся экземпляре Visual Studio выполнить команду Deploy Solution.

? Закрыть Visual Studio.

? Перейти в папку C: \Program Files\.NET Compact Framework Samples\DateTimePicker DesignTime Sample\code\CS\DateTimePickerControl.Deployment\Debug, найти в этой папке файл Setup.exe, запустить его и провести установку. После этого можно пользоваться компонентом DateTime Picker.

Теперь нужно модифицировать наш проект при помощи этого компонента.

Упражнение 6.2 (продолжение)

34. В форме Forml.vb нужно удалить компонент Labell и заменить его компонентом DateTimePicker, который можно найти после установки на палитре ToolBox.

Рис. 6.15. Компонент DateTimePicker в палитре и на форме.

35. В процедуре Form1_Load удалить строку

Label1.Text = System.DateTime.Today.ToShortDateString

36. Вместо нее добавить следующую строку

DateTimePicker1.Value = System.DateTime.Today

37. В процедурах PictureBox1_Click и PictureBox2_Click строку Data_Save(Label1.Text) нужно заменить строкой Data_Save(DateTimePicker1.Value.ToShortDateString).

38. В процедуре Form1_Closing нужно удалить строку Data_Save(Label1.Text) и вместо нее ввести строку Data_Save(DateTimePicker1.Value.ToShortDateString).

39. В процедуре Form1_Closing строку Data_Save(Label1.Text) нужно заменить вызовом обновленного варианта функции сохранения данных Data_Save(DateTimePicker1. Value.ToShortDateString).

40. Также нужно объявить в начале формы еще одну переменную при помощи конструкции Dim dtpClick As Boolean.

41. В код формы нужно добавить еще две процедуры, показанные в листинге 6.22.

Листинг 6.22

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

System.EventArgs) Handles DateTimePicker1.ValueChanged

If dtpClick = True Then

Data_Save(D.ToShortDateString)

D = DateTimePicker1.Value

Data_Load(D.ToShortDateString)

dtpClick = False

End If

End Sub

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

System.EventArgs) Handles DateTimePicker1.Click

dtpClick = True

End Sub

42. Теперь проект можно снова запустить на выполнение. Результат работы при щелчке на компоненте DateTimePicker должен быть таким, как показано на рис. 6.16.

Рис. 6.16. Компонент DateTimePicker в работающем проекте.

43. Теперь можно поработать над удобством использования приложения. В область размещения невидимых компонентов нужно добавить компонент ContextMenu. Нужно щелкнуть на этом компоненте, а затем на форме добавить к его отображению пункты меню Добавить, Редактировать и Удалить, как это показано на рис. 6.17.

Рис. 6.17. Редактирование контекстного меню.

44. Двойной щелчок на любом из этих пунктов в дизайнере форм создаст обработчик события щелчка на пункте контекстного меню в редакторе кода. Для трех этих обработчиков надо использовать код, приведенный в листинге 6.23. Листинг 6.23

Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Handles MenuItem1.Click

PictureBox3_Click(sender, e)

End Sub

Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Handles MenuItem2.Click

PictureBox4_Click(sender, e)

End Sub

Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Handles MenuItem3.Click

PictureBox5_Click(sender, e)

End Sub

45. Выделить компонент ListView1 и в окне Properties установить для него свойство ContextMenu равным ContextMenu1.

46. Теперь после запуска программы при нажатии стилусом на компоненте ListView в окне будет всплывать контекстное меню с заданными пунктами. Естественно, выбор любого из пунктов будет приводить к тому же результату, что и щелчок на соответствующих компонентах PictureBox (рис. 6.18).

Рис. 6.18. Контекстное меню компонента ListView.

47. Положить на область размещения невидимых компонентов компонент Image-List. Выделить этот компонент, перейти в окно Properties и нажать кнопку вызова окна редактирования свойства Images. Нажимая кнопку Add в этом окне, нужно добавить к коллекции изображений файлы Add.jpg, Edit.jpg и Delete.jpg.

48. Разместить на форме справа от основного меню компонент ToolBar. Перейти в окно Properties и найти свойство ImageList. Оно должно получить значение ImageListl. Затем нужно нажать кнопку редактирования свойства Buttons. На экран будет выведено окно редактирования коллекции кнопок. При помощи кнопки Add нужно добавить к коллекции три кнопки и для каждой из них установить в правой области окна свойство Imagelndex равным, соответственно, О, 1 и 2.

49. На форме станут видимыми кнопки панели инструментов. Двойным щелчком на каждой из этих кнопок нужно создать обработчик события и вписать в него тот же код, что и для событий щелчка на пунктах контекстного меню. Теперь можно запустить проект и проверить его работу.

Конечно, в программе еще много можно сделать, чтобы она была полнофункциональной. Нужно позаботиться о возможности редактирования списка категорий и о сохранении данных не только за один год. Кроме этого, нужно добавить к программе функциональность, которая позволяет создавать отчеты. Эти отчеты будут показывать, сколько времени и на что потрачено за день, неделю, месяц и год. Но всю эту функциональность читатель может добавить самостоятельно.

Работа с компонентом DataSet

Конечно, работу с данными в рассмотренном примере можно было организовать гораздо проще. Хранение данных в формате XML, их запись и считывание не обязательно осуществлять вручную. В.NET CF есть куда более элегантное решение, позволяющее использовать класс DataSet. Для того чтобы разобраться с правилами работы этого класса, можно несколько изменить пример, переработав тот фрагмент, который будет нужен для ознакомления с особенностями взаимодействия компонентов DataGrid, DataSet, DataTable и информации в формате XML.

Упражнение 6.3

1. Создать новый проект VB.NET для Pocket PC с именем XMLDBLocal.

2. Выполнить команду Project ? Add Existing Item, в открывшемся диалоговом окне нужно найти файл Form2.vb из папки проекта MyTime и добавить его к текущему проекту. Точно так же нужно добавить файл data.vb.

3. Разместить на форме компоненты MainMenu, ImageList и ToolBar, как это было сделано в прошлом проекте. Затем нужно разместить на свободной части формы компонент DataGrig, как показано на рис. 6.19.

Рис. 6.19. Основная форма проекта.

4. Скопировать на эмуляторе файл Category.xml из каталога проекта MyTime в каталог проекта XMLDBLocal.

5. На этом подготовительная часть закончена. Теперь надо перейти к работе с данными. Для начала нужно добавить в код класса формы переменные, как это показано в листинге 6.24.

Листинг 6.24

Dim ds As DataSet = New DataSet

Dim dt As DataTable = New DataTable

Dim D As DateTime

Dim strTime, strFileName, dirStr As String

6. Написать код, выполняемый при загрузке формы, который приведен в листинге 6.25. Листинг 6.25

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)

Handles MyBase.Load

\'Эти две строки включены потому, что в инспекторе свойств у DataGrid

\'невозможно изменить параметры шрифта, а сделать это очень хочется,

\'так как шрифт по умолчанию практически нечитаемый

Dim mFont As Font = New Font(«Arial», 10, FontStyle.Bold)

DataGrid1.Font = mFont

\'Определяем имя текущего каталога и файла

D = DateTime.Now

strTime = D.ToShortDateString

strTime = strTime.Replace(".", "_")

strFileName = "\" + strTime +".xml"

dirStr = IO.Path.GetDirectoryName_

(Reflection.Assembly.GetExecutingAssembly.GetName.CodeBase.ToString)

\'Если файла нет, то создаем его

If Not IO.File.Exists(dirStr + strFileName) Then

\'Таблица создается пустой, и ее надо заполнить полями. Каждое поле

\'сначала создается как отдельный объект, затем добавляется к таблице

Dim myCount As Integer

Dim dcCat As New System.Data.DataColumn(«Category»)

dt.Columns.Add(dcCat)

Dim dcStartOf As New System.Data.DataColumn(«StartOf»)

dt.Columns.Add(dcStartOf)

Dim dcEndOf As New System.Data.DataColumn(«EndOf»)

dt.Columns.Add(dcEndOf)

Dim dcNote As New System.Data.DataColumn(«Note»)

dt.Columns.Add(dcNote)

\'Устанавливаем имя таблицы. Этот момент важен для работы с DataGrid

dt.TableName = «myTable»

\'Добавляем таблицу к компоненту DataSet.

ds.Tables.Add(dt)

Else

\'Если файл с содержимым DataSet уже существует, просто грузим его в Dataset

ds.ReadXml(dirStr + strFileName)

End If

\'Источником данных для DataGrid не может быть сам DataSet, поскольку

\'Dataset может содержать в себе несколько таблиц. Мы выбираем одну

\'определенную таблицу и указываем ее в качестве источника данных

DataGrid1.DataSource = ds.Tables(0)

\'И делаем видимыми заголовки в DataGrid

DataGrid1.ColumnHeadersVisible = True

End Sub