Шрифт:
thisAssembly.GetName
Dim assemblyName As String = thisAssemblyName.Name
'-----------------------------------------------------------------------
'Извлечь поток изображения из нашей сборки и создать соответствующую ему
'битовую карту в памяти
'ПРИМЕЧАНИЕ: Имя потока ресурса ResourceStream ЧУВСТВИТЕЛЬНО К РЕГИСТРУ,
' поэтому имя изображения должно В ТОЧНОСТИ совпадать с именем
' файла изображения, который вы добавили в проект
'-----------------------------------------------------------------------
m_myBitmapImage = New System.Drawing.Bitmap( _
thisAssembly.GetManifestResourceStream( _
assemblyName + ".MyImage.PNG"))
End Sub
Примеры к главе 14 (данные)
Листинг 14.1. Простой пример создания и использования объекта ADO.NET DataSet
'Объект DataSet, который мы собираемся загрузить
Private m_myDataSet As System.Data.DataSet
'Константы, которые будут использоваться
Const FILE_EMPTY_DATASET As String = "EmptyDataSet.xml"
Const FILE_1TABLE_DATASET As String = "1TableDataSet.xml"
Const dividerLine As String = _
"-----------------------------" + vbCrLf
'-------------------------------------------------------
'Загрузить содержимое файла и присоединить его к тексту,
'содержащемуся в элементе управления textBox1
'-------------------------------------------------------
Private Sub addFileContentsToTextBox(ByVal fileName As String)
'Открыть файл и считать его содержимое
Dim myStreamReader As System.IO.StreamReader
myStreamReader = System.IO.File.OpenText(fileName)
Dim fileText As String = myStreamReader.ReadToEnd
'Закрыть файл
myStreamReader.Close
'Присоединить содержимое к тексту, находящемуся в текстовом окне
TextBox1.Text = TextBox1.Text + _
dividerLine + "FILE: '" + fileName + "'" + vbCrLf + _
dividerLine + fileText + vbCrLf
End Sub
'--------------------------------------------------------
'1. Создает набор данных,
' сохраняет набор данных в виде XML,
' отображает результаты в текстовом окне
'2. Добавляет таблицу данных в набор данных,
' добавляет два типизированных столбца в таблицу данных,
' добавляет две строки в таблицу данных,
' сохраняет набор данных в виде XML,
' отображает результаты в текстовом окне
'--------------------------------------------------------
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
'Очистить текстовое окно от содержимого
TextBox1.Text = ""
'===========================================
'1. Создать новый набор данных
'===========================================
m_myDataSet = New System.Data.DataSet("HelloWorld-DataSet")
'Записать содержимое ADO.NET DataSet в виде XML и отобразить
'файл в текстовом окне
m_myDataSet.WriteXml(FILE_EMPTY_DATASET)
addFileContentsToTextBox(FILE_EMPTY_DATASET)
'==================================================
'2. Добавить таблицу данных в набор данных ADO.NET,