Программирование для карманных компьютеров
Шрифт:
Таблица 6.27. Полезные свойства объекта BindingContext
Таблица 6.28. Полезные методы объекта BindingContext
Также следует рассмотреть объект DataBindings. Его основные свойства и методы рассматриваются в табл. 6.29 и 6.30. Таблица 6.29. Полезные методы DataBindings
Методы и свойства объектов BindingContext и DataBindings были использованы в предыдущем упражнении. С одним элементом управления можно связать сколько угодно полей из базы данных. Методы и свойства DataBindings указывают на то, что компонент может иметь не одну связь, а коллекцию связей. Главное, чтобы тип поля в источнике данных был совместим с типом свойства, с которым связывается это поле.
Следует создать приложение, иллюстрирующее связывание для компонентов ListBox, ComboBox и DataGrid.
Упражнение 6.5
1. Создать новый проект VB.NET для Pocket PC
2. Расположить на форме компоненты Button, DataGrid, ListBox и ComboBox так, как это показано на рис. 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.SqlCeDataAdapter
Dim dbt As DataTable4. Написать обработчики для кнопок согласно коду, приведенному в листинге 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.Clear
End SubТеперь нужно запустить приложение и посмотреть как происходит заполнение компонентов данными. Обратите внимание, что все элементы привязаны к одному контексту, поэтому передвижение в любом из них автоматически меняет текущее положение курсора в другом органе управления. Также стоит обратить внимание на первую и последнюю строку первой процедуры. Когда надо сменить на время курсор, например чтобы показать, что приложение находится в процессе ожидания завершения операции, этот эффект будет очень кстати.
Обработка ошибок
На этом этапе бы было неплохо узнать, как в VB.NET обрабатываются ошибки. Для этого нужно изменить код обработчика щелчка на кнопке Connect, специально указав неверный путь к файлу базы данных, как это показано в листинге 6.35.
Листинг 6.35Private 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.36Private 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.Dispose
End SubСледует обратить внимание, что был освобожден не только графический объект поверхности, но и объект
кисти, который создавался для рисования эллипса.3. Результат выполнения этой программы показан на рис. 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.Dispose
End SubВ этом случае кисть освобождается, а сам графический объект в освобождении не нуждается. После того как окно сообщений будет убрано, на красном круге не останется следов, потому что он рисуется заново.
5. Так можно рисовать на поверхности панели или нет? Можно, но только внутри вызова события Paint. Нужно положить на форму панель и написать обработчик для ее события Paint, код которого приведен в листинге 6.38.
Листинг 6.38Private 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.Dispose
End Sub6. Результат работы программы показан на рис. 6.28.
Конечно, можно попытаться получить графический объект панели из события 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.
9. Удалить из кода событие формы Paint.
10. Обработчик щелчка на кнопке нужно переписать, как показанов листинге 6.39.
Листинг 6.39Private 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.Close
End Sub11. Запустить приложение. После нажатия кнопки на экране должно появиться следующее изображение, показанное на рис 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.