> 'Извлечь поток изображения из нашей сборки и создать соответствующую ему
> 'битовую карту в памяти
> 'ПРИМЕЧАНИЕ: Имя потока ресурса 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)