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

Листинг 11.5. Вызов метода Update() элемента управления для отображения пояснительного текста, информирующего о ходе выполнения задачи

'--------------------------------------------------------------------
'Этот код принадлежит форме, содержащей по одному элементу управления
'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

Оглавление книги