Программирование мобильных устройств на платформе .NET Compact Framework

Private Sub Button1_Click(ByVal sender As System.Object, _
 ByVal e As System.EventArgs) Handles Button1.Click
 'Отобразить курсор ожидания
 System.Windows.Forms.Cursor.Current = _
 System.Windows.Forms.Cursors.WaitCursor
 Dim testString As String
 Dim loop3 As Integer
 For loop3 = 1 To 100 Step 10
 Label1.Text = loop3.ToString + "% Done..."
 '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'Чтобы отобразить информацию о процессе обновления,!
 'удалите символы комментария в строке ниже !
 '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 'Label1.Update
 testString = ""
 Dim loop2 As Integer
 For loop2 = 1 To 1000
 testString = testString + "тест"
 Next
 Next
 Label1.Text = "Готово!"

 'Удалить курсор ожидания
 System.Windows.Forms.Cursor.Current = _
 System.Windows Forms.Cursors.Default
End Sub

Листинг 11.6. Создание изображения на внеэкранной растровой поверхности и передача его в элемент управления PictureBox

'--------------------------------------------------------------------
'Создать рисунок на растровой поверхности. Переслать его в PictureBox
'--------------------------------------------------------------------
Private Sub Button1_Click(ByVal sender As System.Object, _
 ByVal e As System.EventArgs) Handles Button1.Click

 'Создать новую битовую карту
 Dim myBitmap As System.Drawing.Bitmap
 myBitmap = New System.Drawing.Bitmap(PictureBox1.Width, _
 PictureBox1.Height)

 '--------------------------------------------------------------------------
 'Создать объект Graphics, чтобы иметь возможность рисовать на битовой карте
 '--------------------------------------------------------------------------
 Dim myGfx As System.Drawing.Graphics
 myGfx = System.Drawing.Graphics.FromImage(myBitmap)

 'Закрасить нашу битовую карту желтым цветом
 myGfx.Clear(System.Drawing.Color.Yellow)

 'Создать перо
 Dim myPen As System.Drawing.Pen
 rayPen = New System.Drawing.Pen(System.Drawing.Color.Blue)

 '-----------------
 'Нарисовать эллипс
 '-----------------
 myGfx.DrawEllipse(myPen, 0, 0, myBitmap.Width - 1, _
 myBitmap.Height - 1)
'Создать сплошную кисть
 Dim myBrush As System.Drawing.Brush

 '-----------------------
 'Нарисовать текст кистью
 '-----------------------
 myBrush = New System.Drawing.SolidBrush( _
 System.Drawing.Color.Black)
 'Примечание: мы используем объект Font из формы
 myGfx.DrawString("Привет!", Me.Font, myBrush, 2, 10)

 '------------------------------
 'Важно! Очистить все после себя
 '------------------------------
 myGfx.Dispose
 myPen.Dispose
 myBrush.Dispose

 '-------------------------------------------------------------------
 'Указать объекту pictureBox, на необходимость отображения растрового
 'изображения, которое мы только что создали и нарисовали.
 '-------------------------------------------------------------------
 PictureBox1.Image = myBitmap
End Sub

Листинг 11.7. Создание объекта Graphics для формы

'----------------------------------------------------------
'Создает объект Graphics для формы и осуществляет рисование
'----------------------------------------------------------
Private Sub Button1_Click(ByVal sender As System.Object, _
 ByVal e As System.EventArgs) Handles Button1.Click
 'Создать объект Graphics для формы
 Dim myGfx As System.Drawing.Graphics
 myGfx = Me.CreateGraphics

 'Создать кисть
 Dim myBrush As System.Drawing.Brush
 myBrush = New System.Drawing.SolidBrush( _
 System.Drawing.Color.DarkGreen)
 'Заполнить прямоугольник
 myGfx.FillRectangle(myBrush, 4, 2, 60, 20)

 '-------------------------
 'Важно: Выполнить очистку!
 '-------------------------
 myBrush.Dispose
 myGfx.Dispose
End Sub

Листинг 11.8. Подключение к функции Paint формы

'Кисти, которые мы хотим кэшировать, чтобы избавить себя от необходимости
'все время создавать их и уничтожать
Private m_brushBlue As System.Drawing.Brush
Private m_brushYellow As System.Drawing.Brush