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

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

Handles Button1.Click

Cursor.Current = Cursors.WaitCursor

dbc = New SqlServerCe.SqlCeConnection

dbc.ConnectionString = «Data Source=\NorthwindDemo.sdf»

dbt = New DataTable(«Customers»)

dbcmq.Connection = dbc

dba = New SqlServerCe.SqlCeDataAdapter(dbcmq)

dba.Fill(dbt)

DataGrid1.Visible = False

DataGrid1.DataSource = dbt

DataGrid1.Visible = True

ListBox1.Visible = False

ListBox1.DataSource = dbt

ListBox1.DisplayMember = «ContactName»

ListBox1.ValueMember = «CustomerID»

ListBox1.Visible = True

ComboBox1.Visible = False

ComboBox1.DataSource = dbt

ComboBox1.DisplayMember = «ContactName»

ComboBox1.ValueMember = «ContactTitle»

ComboBox1.Visible = True

Cursor.Current = Cursors.Default

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

Handles Button2.Click

dbc.Close()

dbt.Clear()

Me.DataBindings.Clear()

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

Обработка ошибок

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

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

Handles Button1.Click

Cursor.Current = Cursors.WaitCursor

dbc = New SqlServerCe.SqlCeConnection

dbt = New DataTable(«Customers»)

dbcmq.Connection = dbc

dba = New SqlServerCe.SqlCeDataAdapter(dbcmq)

Try

dbc.ConnectionString = «Data Source=\Documents\NorthwindDemo.sdf»

dba.Fill(dbt)

Catch ex As SqlServerCe.SqlCeException

MsgBox(ex.Message)

MsgBox(«файл не найден, пробуем другой путь»)

dbc.ConnectionString = «Data Source=\NorthwindDemo.sdf»

Finally

dba.Fill(dbt)

End Try

DataGrid1.Visible = False

В данном фрагменте кода было использовано выражение Try\Catch\Finally\End Try. В этом выражении ключевое слово Try открывает блок обработки ошибок. После него указываются операции, в которых возможно возникновение исключительной ситуации. Блок Catch осуществляет перехват ошибки. В момент возникновения ошибки создается объект ошибки ex. У этого объекта не так уж много свойств. Свойство Message содержит текстовое сообщение об ошибке, свойство InnerException возвращает ошибку, а метод GetBaseException возвращает более общий класс, к которому принадлежит данная ошибка.

После ключевого слова Finally должны быть расположены строки кода, которые выполняются независимо от того, возникла ошибка или нет. А ключевое слово End Try закрывает блок обработки ошибок.

В общем случае, когда вы указываете наиболее общий тип исключительной ситуации Exception, возвращаются только указанные выше значения. Однако в частных объектах исключения, как в нашем случае, когда тип исключительной ситуации SqlServerCe.SqlCeException, разработчик может извлечь из объекта ошибки и другие параметры. Например, коллекцию ошибок Errors, код возврата HResult, номер ошибки NativeError и Source – имя провайдера, в котором произошла ошибка. Таким образом, каждый раз, когда вы определяете в разделе Catch тип создаваемого объекта ошибки, стоит получить в справочной системе информацию о параметрах, которые он может возвратить. Также следует обратить внимание на то, что раздел Catch может перехватывать не один тип ошибки, а несколько, как это показано в следующем фрагменте кода.

Catch ex As SqlServerCe.SqlCeException

\'Ловим ошибки, относящиеся к SQLCE

Catch ex As Exception

\'Ловим остальные ошибки

Работа с графикой

Графика в. NET CF представлена в весьма урезанном варианте по сравнению с «настольной» версией. Для уменьшения размера системы из графических библиотек было вычищено очень многое. Оставлена только основная функциональность, без которой уж совсем никак было не обойтись. Для работы с графикой. NET CF предлагает основной графический объект, представляющий собой поверхность экземпляра одного из пяти классов, сведенных в табл. 6.31.

Чтобы получить доступ к поверхности объекта и нарисовать на ней что-либо, можно использовать непосредственно сам объект поверхности (это происходит в событии OnPaint), или создать новый объект при помощи метода CreateGraphics. Поскольку во втором случае создается объект, который не используется внутри самого элемента управления, на котором происходит отрисовка графики, то после использования его надо уничтожить при помощи вызова Dispose.

Упражнение 6.6

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

2. Поместить в верхнюю часть формы кнопку и написать для нее обработчик, код которого приведен в листинге 6.36.