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

Здесь следует напомнить, что, как и при работе с прежним приложением 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

>  _

>  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-службы.