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

Листинг 14.5. Пример пользовательского управления данными — код, помещаемый в форму Form1.cs

'Создает базу данных
Private Sub buttonCreateDatabase_Click(ByVal sender As Object, _
 ByVal e As System.EventArgs) Handles buttonCreateDatabase.Click
 DatabaseAccess.CreateAndFillDatabase()
End Sub
'Загружает данные из базы данных и отображает их
Private Sub buttonLoadGameData_Click(ByVal sender As Object, _
 ByVal e As System.EventArgs) Handles buttonLoadGameData.Click
 'Очистить текстовое окно
 TextBox1.Text = ""
 'Загрузить данные для слов
 GameData.InitializeGameVocabulary()
 'Обойти все слова и добавить их в текстовый список
 Dim thisStringBuilder As System.Text.StringBuilder
 thisStringBuilder = New System.Text.StringBuilder
 Dim thisWord As VocabularyWord
 For Each thisWord In GameData.AllWords
  thisStringBuilder.Append(thisWord.EnglishWord)
  thisStringBuilder.Append(" = ")
  thisStringBuilder.Append( _
   thisWord.GermanWordWithArticleIfExists)
  thisStringBuilder.Append(vbCrLf) 'Новая строка
 Next
 'Отобразить список слов в текстовом окне
 TextBox1.Text = thisStringBuilder.ToString()
End Sub

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