> 'Чтобы отобразить информацию о процессе обновления,!
> 'удалите символы комментария в строке ниже !
> '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
> '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 для формы
>'----------------------------------------------------------