Программирование мобильных устройств на платформе .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)
'-------------------------
Поделиться:
Популярные книги
Эволюционер из трущоб
1. Эволюционер из трущоб
Фантастика:
попаданцы
аниме
фэнтези
фантастика: прочее
5.00
рейтинг книги
Кодекс Охотника. Книга II
2. Кодекс Охотника
Фантастика:
фэнтези
попаданцы
боевая фантастика
юмористическое фэнтези
5.00
рейтинг книги
Убивать чтобы жить 8
8. УЧЖ
Фантастика:
боевая фантастика
космическая фантастика
рпг
5.00
рейтинг книги
Изменяющий-Механик. Компиляция. Книги 1-18
Собрание сочинений
Фантастика:
боевая фантастика
космическая фантастика
5.00
рейтинг книги
Слезы Эйдена 1
11. Глэрд
Фантастика:
боевая фантастика
фэнтези
попаданцы
5.00
рейтинг книги
Боярышня Дуняша 2
2. Боярышня
Любовные романы:
любовно-фантастические романы
5.00
рейтинг книги
Дважды одаренный
1. Дважды одаренный
Фантастика:
альтернативная история
аниме
фэнтези
фантастика: прочее
попаданцы
5.00
рейтинг книги
Князь Андер Арес 5
5. Андер Арес
Фантастика:
историческое фэнтези
фэнтези
героическая фантастика
5.00
рейтинг книги
Старшеклассник без клана. Апелляция кибер аутсайдера 2
2. Старшеклассник без клана. Апелляция аутсайдера
Фантастика:
попаданцы
аниме
5.00
рейтинг книги
Александр Агренев. Трилогия
Александр Агренев
Фантастика:
альтернативная история
9.17
рейтинг книги
Искатель 2
2. Валинор
Фантастика:
фэнтези
попаданцы
рпг
5.00
рейтинг книги
Сердце Дракона. Том 9
9. Сердце дракона
Фантастика:
фэнтези
героическая фантастика
боевая фантастика
7.69
рейтинг книги
Последний Паладин. Том 2
2. Путь Паладина
Фантастика:
фэнтези
попаданцы
аниме
5.00
рейтинг книги
Тринадцатый VIII
8. Видящий смерть
Фантастика:
фэнтези
попаданцы
аниме
5.00