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

Таблица 6.27. Полезные свойства объекта BindingContext

Таблица 6.28. Полезные методы объекта BindingContext

Также следует рассмотреть объект DataBindings. Его основные свойства и методы рассматриваются в табл. 6.29 и 6.30. Таблица 6.29. Полезные методы DataBindings

Таблица 6.30. Полезные свойства DataBindings

Методы и свойства объектов BindingContext и DataBindings были использованы в предыдущем упражнении. С одним элементом управления можно связать сколько угодно полей из базы данных. Методы и свойства DataBindings указывают на то, что компонент может иметь не одну связь, а коллекцию связей. Главное, чтобы тип поля в источнике данных был совместим с типом свойства, с которым связывается это поле.

Следует создать приложение, иллюстрирующее связывание для компонентов ListBox, ComboBox и DataGrid.

Упражнение 6.5

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

2. Расположить на форме компоненты Button, DataGrid, ListBox и ComboBox так, как это показано на рис. 6.26.

Рис. 6.26. Расположение компонентов на форме.

3. Объявить переменные в классе формы, как это показано в листинге 6.33. Листинг 6.33

Dim dbc As SqlServerCe.SqlCeConnection

Dim dbcmq As SqlServerCe.SqlCeCommand = New _ SqlServerCe.SqlCeCommand("SELECT * FROM

Customers")

Dim dba As SqlServerCe.SqlCeDataAdapterDim dbt As DataTable

4. Написать обработчики для кнопок согласно коду, приведенному в листинге 6.34. Листинг 6.34

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.ClearEnd Sub

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

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

На этом этапе бы было неплохо узнать, как в VB.NET обрабатываются ошибки. Для этого нужно изменить код обработчика щелчка на кнопке Connect, специально указав неверный путь к файлу базы данных, как это показано в листинге 6.35.Листинг 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.Таблица 6.31. Поддержка графики в. NET CF

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

Упражнение 6.6

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

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

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

Handles Button1.Click

Dim br As New Drawing.SolidBrush(Drawing.Color.Red)

Dim g As Graphics = Me.CreateGraphics

g.FillEllipse(br, 10, 30, 200, 200)

MsgBox("")

g.Dispose

br.DisposeEnd Sub

Следует обратить внимание, что был освобожден не только графический объект поверхности, но и объект кисти, который создавался для рисования эллипса.

3. Результат выполнения этой программы показан на рис. 6.27.

Рис. 6.27. Результат повреждения рисунка на форме окном сообщения.

4. Каждый раз, когда с элементом управления происходит событие, которое может повредить рисунок на его поверхности, например перекрытие другим объектом или изменение размеров, происходит его перерисовка, то есть срабатывает событие OnPaint. Нужно написать обработчик этого события, как это показано в листинге 6.37. Листинг 6.37

Private Sub Form1_Paint(ByVal sender As Object, ByVal e As

System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint

Dim g As Graphics = e.Graphics

Dim br As New Drawing.SolidBrush(Drawing.Color.Red)

g.FillEllipse(Br, 20, 40, 200, 200)

br.DisposeEnd Sub

В этом случае кисть освобождается, а сам графический объект в освобождении не нуждается. После того как окно сообщений будет убрано, на красном круге не останется следов, потому что он рисуется заново.

5. Так можно рисовать на поверхности панели или нет? Можно, но только внутри вызова события Paint. Нужно положить на форму панель и написать обработчик для ее события Paint, код которого приведен в листинге 6.38.Листинг 6.38

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

System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint

Dim gPan As Graphics = e.Graphics

Dim br As New Drawing.SolidBrush(Drawing.Color.White)

Panel1.BackColor = Drawing.Color.Black

gPan.FillEllipse(br, 75, 10, 40, 40)

br.DisposeEnd Sub

6. Результат работы программы показан на рис. 6.28.

Рис. 6.28. Рисование на панели в событии Paint.

Конечно, можно попытаться получить графический объект панели из события Paint в созданном поле формы или все же вызывать из панели CreateGraphics (во время компиляции это не вызовет ошибок), но результат будет неутешителен. На панели можно рисовать только внутри события Paint. То же самое касается и объекта PictureBox.

Класс System.Drawing.Graphics является главным классом в пространстве имен System.Drawing. Именно он содержит методы для графического вывода. Важнейшие методы этого класса перечислены в табл. 6.32.Таблица 6.32. Важные методы класса Graphics

Кроме класса Graphics в области имен System.Drawing есть и другие классы, но они являются, скорее, вспомогательными. Они обеспечивают необходимыми параметрами и свойствами графические объекты, но не отображают их.

В следующем списке приведены основные классы области имен System.Drawing.

? Bitmap – битовое изображение.

? Brush – абстрактный класс, который не используется напрямую.

? Color – цвет для графических объектов.

? Font – шрифт для графических объектов.

? FontFamily – семейство, к которому относится шрифт.

? Icon – специальное битовое изображение.

? Image – абстрактный класс, который не используется напрямую.

? Pen – перо для рисования контуров.

? Region – область, на которой осуществляется рисование.

? SolidBrush – единственный по умолчанию доступный тип кисти в. NET CF.

? SystemColors – коллекция системных цветов.

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

7. Выполнить команду Project ? Add New Item ? Icon File, ввести имя файла my.ico и нажать кнопку ОК.

8. В окне Solution Explorer двойным щелчком открыть файл my.ico и в редакторе нарисовать пиктограмму, как это показано на рис. 6.29.

Рис. 6.29. Пиктограмма.

9. Удалить из кода событие формы Paint.

10. Обработчик щелчка на кнопке нужно переписать, как показанов листинге 6.39.Листинг 6.39

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

Handles Button1.Click

Dim br As New Drawing.SolidBrush(Drawing.Color.Red)

Dim g As Graphics = Me.CreateGraphics

Dim rg1, rg2 As Drawing.Region

rg1 = New Drawing.Region(New Drawing.Rectangle(0, 0, 240, 110))

rg2 = New Drawing.Region(New Drawing.Rectangle(100, 50, 40, 100))

rg1.Xor(rg2)

g.Clip = rg1

g.FillEllipse(br, 20, 40, 200, 200)

Dim pathStr As String = IO.Path.GetDirectoryName(_

System.Reflection.Assembly.GetExecutingAssembly. GetName. CodeBase)

Dim fs As IO.FileStream = New IO.FileStream(_

pathStr + «\My.ico», IO.FileMode.Open)

Dim ico As New Drawing.Icon(fs)

g.DrawIcon(ico, 105, 120)

g.Dispose

br.Dispose

ico.Dispose

fs.CloseEnd Sub

11. Запустить приложение. После нажатия кнопки на экране должно появиться следующее изображение, показанное на рис 6.30.

Рис. 6.30. Результат работы измененной программы.

В этой программе было показано, как загружается и выводится на экран файл пиктограммы. Кроме этого, было показано, как можно комбинировать области для создания сложной зоны вывода изображения на поверхность объекта Graphics. В строке кода rg1.Xor(rg2) вместо операции Xor можно применять операторы Complement, Exclude или Intersect. Каждый раз будет создаваться новая комбинация областей.

ЗаключениеКонечно, вопрос программирования в. NET CF слишком велик, чтобы можно было рассмотреть его в одной главе. Мы только слегка познакомились с этим масштабным нововведением Microsoft и рассмотрели только один язык VB.NET. Впрочем, благодаря общей системе типов и сближению синтаксиса, изучение программирования на C# не составит труда. Достаточно сказать, что в сети Интернет уже есть сайт, на котором можно транслировать программу, написанную на VB.NET в ее эквивалент на C#.

Глава 7 Инструменты и библиотеки сторонних производителей

Поскольку практически все программы, которые будут рассмотрены в данном разделе, не имеют официальных дистрибьюторов и не распространяются на CD-ROM, описание каждой программы будет начинаться с адреса сайта разработчика в Интернете. Если таковой адрес отсутствует (что, к сожалению, случается), это значит, что программу можно найти и загрузить на свой компьютер на одном из сайтов, которые приведены в следующем списке.

? http://www.pocketgear.com

? http://www.hpc.ru

? http://www.ladoshki.com

? http://www.freewareppc.com

? http://www.pocketpcsoft.net

Среды и языки программирования для Pocket PC

Basic4PPC

Это как раз тот самый случай, когда трудно найти сайт производителя хорошей программы. Автору не удалось найти сайт фирмы Anywhere Software. Но саму программу можно загрузить с сайта www.pocketgear.com.

Программа Basic4PPC совмещает возможности обычного языка Basic и преимущества визуального дизайна Microsoft Visual Basic. Для работы программы необходима среда. NET CF.