Книга: Обработка баз данных на Visual Basic®.NET

Использование компонента в другом приложении

Использование компонента в другом приложении

Попробуем теперь использовать созданный компонент в совершенно другом приложении. Для этого нужно создать новое приложение Visual Basic .NET на основе шаблона Windows Application среды Visual Studio .NET и создать в нем ссылку на файл Novelty1.dll, который располагается в каталоге bin проекта Novelty1. При использовании компонента из другого пространства имен или другого проекта нужно помнить, что dll-файл компонента находится в каталоге bin своего проекта. Например, dll-файл Web-приложения с именем Web_приложение обычно находится в каталоге с:inetpubwwwrootWeb_приложениеbin.

Для указания ссылки на внешний компонент щелкните правой кнопкой мыши на элементе References в окне Solution Explorer и выберите в контекстном меню команду Add Reference. В диалоговом окне References щелкните на кнопке Browse и укажите dll-файл используемого компонента. Для закрытия диалогового окна References щелкните на кнопке OK. В данном примере предполагается, что dll-файл используемого компонента Novelty1.dll находится в каталоге c:inetpubwwwroot Novelty1bin.

Здесь следует напомнить, что, как и при работе с прежним приложением Windows, после указания директивы Imports его пространство имен становится полностью доступным. В общем вспомогательный код Web-формы из листинга 12.7 напоминает код из листинга 12.6. Он создан на основе шаблонного кода, сгенерированного конструктором Web-форм среды Visual Studio .NET.

Imports Novelty1.GetRowCount
Public Class Form1
 Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
 Public Sub New() MyBase.New()
  ' Этот вызов метода организован конструктором Web-форм.
  InitializeComponent()
  ' Инициализация после вызова метода InitializeComponent().
 End Sub
 ' Переопределение метода Dispose для очистки списка компонентов.
 Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
  If disposing Then
   If Not (components Is Nothing) Then
    components.Dispose()
   End If
  End If
  MyBase.Dispose(disposing)
 End Sub
 ' Код, созданный конструктором Web-форм.
 Private components As System.ComponentModel.IContainer
 ' ЗАМЕЧАНИЕ: Код, созданный конструктором компонентов.
 ' Его можно изменять только с помощью конструктора
 ' Не изменяйте его вручную в окне редактирования кода.
 Friend WithEvents Label1 As System.Windows.Forms.Label
 Friend WithEvents Button1 As System.Windows.Forms.Button
 <System.Diagnostics.DebuggerStepThrough()> _
  Private Sub InitializeComponent()
  Me.Label1 = New System.Windows.Forms.Label()
  Me.Button1 = New System.Windows.Forms.Button()
  Me.SuspendLayout()
  '
  ' Label1
  '
  Me.Label1.Location = New System.Drawing.Point(8, 16)
  Me.Label1.Name = "Label1"
  Me.Label1.Size = New System.Drawing.Size(248, 16)
  Me.Label1.Tablndex = 0
  Me.Label1.Text = "Label1"
  '
  ' Button1
  '
  Me.Button1.Location = New System.Drawing.Point(264, 8)
  Me.Button1.Next = "Button1"
  Me.Button1.Size = New System.Drawing.Size(72, 24)
  Me.Button1.TabIndex = 1
  Me.Button1.Text = "Test It!"
  '
  ' Form1
  '
  Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
  Me.ClientSize = New System.Drawing.Size(344, 54)
  Me.Controls.AddRange(New System.Windows.Forms.Control() _
   {Me.Button1, Me.Label1})
  Me.Name = "Form1"
  Me.Text = "Form1"
  Me.ResumeLayout(False)
 End Sub
#End Region
 Private Sub Button1_Click(ByVal sender As System.Object, _
  ByVal е As System.EventArgs) Handles Button1.Click
  Dim GRC As New Novelty1.GetRowCount()
  Label1.Text = "There are " & GRC.GetRowCount.ToString _
   & " rows in the table."
  GRC.Dispose ()
 End Sub
End Class

В код, созданный конструктором форм, добавлены только объекты Label1 и Button1. Текст надписи будет задан только во время выполнения приложения. Теперь можно приступить к созданию Web-службы.

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