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

'то осуществить выход из функции без выполнения каких-либо действий.

If (m_userInterfaceUpdateOccuring = True) Then

Return

End If

'Подсчитать, сколько раз выполнена обработка данного события

m_textBox1ChangeEventCount = m_textBox1ChangeEventCount + 1

#If EVENTINSTRUMENTATION <> 0 Then

'Занести событие в журнал

instrumented_logEventOccurrence("textBox1.Change:" + _

m_textBoxlChangeEventCount.ToString() + ":" + _

TextBox1.Text.ToString()) 'Value

#End If

End Sub

Private Sub buttonShowEventLog_Click(ByVal sender As _

System.Object, ByVal e As System.EventArgs) _

Handles buttonShowEventLog.Click

#If EVENTINSTRUMENTATION <> 0 Then

instrumentation_ShowEventLog()

#End If

End Sub

'--------------------------------------------------------------------

'Этот код принадлежит форме, содержащей по одному элементу управления

'Button (button1) и Label (label1)

'--------------------------------------------------------------------

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

'--------------------------------------------------------------------

'Создать рисунок на растровой поверхности. Переслать его в 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

'----------------------------------------------------------

'Создает объект 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

'Кисти, которые мы хотим кэшировать, чтобы избавить себя от необходимости