ASP.Net/Components/Toolbar

Материал из .Net Framework эксперт
Перейти к: навигация, поиск

Adding a ToolbarButton Control to a Toolbar Control (VB.net)

   <source lang="csharp">

<%@ Page Language=VB Debug=true %> <%@ Import Namespace="Microsoft.Web.UI.WebControls" %> <%@ Register TagPrefix="IEControls"

   Namespace="Microsoft.Web.UI.WebControls" 
   Assembly ="Microsoft.Web.UI.WebControls"

%> <script runat=server> Sub ToolBarClick(ByVal Sender as Object, ByVal E as EventArgs)

   lblMessage.Text = "You clicked the button named: " _
       & Sender.ToString()

End Sub </SCRIPT> <HTML> <HEAD> <TITLE>Adding a ToolbarButton Control to a Toolbar Control</TITLE> </HEAD> <BODY LEFTMARGIN="10"> <form runat="server"> <IEControls:toolbar

   id="MyTB" 
   runat="server" 
   orientation="Horizontal"
   autopostback="true"
   onbuttonclick="ToolBarClick"
   >
   <IEControls:ToolBarButton 
       id="Filter"
       runat="server"
       Tooltip="Filter Records"
       ImageUrl="filter.ico"
       Text="Filter"
   />
   <IEControls:ToolBarButton 
       id="Print"
       runat="server"
       Tooltip="Print Record"
       ImageUrl="printer.ico"
       Text="Print"
   />

</IEControls:toolbar>
<asp:Label

   id="lblMessage"
   runat="server"
   FOnt-Bold="True"

/> </form> </BODY> </HTML>

      </source>
   
  


Adding a ToolbarCheckButton Control to a Toolbar Control (VB.net)

   <source lang="csharp">

<%@ Page Language=VB Debug=true %> <%@ Import Namespace="Microsoft.Web.UI.WebControls" %> <%@ Register TagPrefix="IEControls"

   Namespace="Microsoft.Web.UI.WebControls" 
   Assembly ="Microsoft.Web.UI.WebControls"

%> <script runat=server> Sub ToolBarClick(ByVal Sender as Object, ByVal E as EventArgs)

   If MyTB.Orientation = 1 Then
       MyTB.Orientation = 0
   Else
       MyTB.Orientation = 1
   End If

End Sub </SCRIPT> <HTML> <HEAD> <TITLE>Adding a ToolbarCheckButton Control to a Toolbar Control</TITLE> </HEAD> <BODY LEFTMARGIN="10"> <form runat="server"> <IEControls:toolbar

   id="MyTB" 
   runat="server" 
   orientation="Vertical"
   autopostback="true"
   onbuttonclick="ToolBarClick"
   >
   <IEControls:toolbarcheckbutton 
       id="OrientationMode"
       runat="server"
       Tooltip="Toggle Toolbar Orientation"
       Text="Orientation"
   />
   <IEControls:toolbarcheckbutton 
       id="OrientationMode2"
       runat="server"
       Tooltip="Toggle Toolbar Orientation"
       Text="Orientation"
   />

</IEControls:toolbar>
<asp:Label

   id="lblMessage"
   runat="server"
   FOnt-Bold="True"

/> </form> </BODY> </HTML>

      </source>
   
  


Adding a ToolbarCheckGroup Control to a Toolbar Control (VB.net)

   <source lang="csharp">

<%@ Page Language=VB Debug=true %> <%@ Import Namespace="Microsoft.Web.UI.WebControls" %> <%@ Register TagPrefix="IEControls"

   Namespace="Microsoft.Web.UI.WebControls" 
   Assembly ="Microsoft.Web.UI.WebControls"

%> <script runat=server> Sub ToolBarClick(ByVal Sender as Object, ByVal E as EventArgs)

   lblMessage.Text = "You clicked button: " _
       & Group1.SelectedCheckButton.ID

End Sub </SCRIPT> <HTML> <HEAD> <TITLE>Adding a ToolbarCheckGroup Control to a Toolbar Control</TITLE> </HEAD> <BODY LEFTMARGIN="10"> <form runat="server"> <IEControls:toolbar

   id="MyTB" 
   runat="server" 
   autopostback="true"
   onbuttonclick="ToolBarClick"
   >
   <IEControls:ToolBarCheckGroup
       id="Group1"
       runat="server"
       ForceSelection="True"
   >
       <IEControls:ToolBarCheckButton 
           id="TBCB1"
           runat="server"
           Text="Button 1"
       />
       <IEControls:ToolBarCheckButton 
           id="TBCB2"
           runat="server"
           Text="Button 2"
           Selected
       />
       <IEControls:ToolBarCheckButton 
           id="TBCB3"
           runat="server"
           Text="Button 3"
       />
   </IEControls:ToolBarCheckGroup>

</IEControls:toolbar>
<asp:Label

   id="lblMessage"
   runat="server"
   FOnt-Bold="True"

/> </form> </BODY> </HTML>

      </source>
   
  


Adding a ToolbarDropDownList Control to a Toolbar Control (VB.net)

   <source lang="csharp">

<%@ Page Language=VB Debug=true %> <%@ Import Namespace="Microsoft.Web.UI.WebControls" %> <%@ Register TagPrefix="IEControls"

   Namespace="Microsoft.Web.UI.WebControls" 
   Assembly ="Microsoft.Web.UI.WebControls"

%> <script runat=server> Sub ddl1_Changed(ByVal Sender as Object, ByVal E as EventArgs)

   lblMessage.Text = "You selected item: " _
       & ddlSiteSection.SelectedItem.Text

End Sub </SCRIPT> <HTML> <HEAD> <TITLE>Adding a ToolbarDropDownList Control to a Toolbar Control</TITLE> </HEAD> <BODY LEFTMARGIN="10"> <form runat="server"> <IEControls:toolbar

   id="MyTB" 
   runat="server" 
   autopostback="true"
   >
   <IEControls:ToolBarDropDownList
       id="ddlSiteSection"
       runat="server"
       onselectedindexchanged="ddl1_Changed"
   >
       <asp:ListItem>Home</asp:ListItem>
       <asp:ListItem>News</asp:ListItem>
       <asp:ListItem>Employees</asp:ListItem>
       <asp:ListItem>Contact Information</asp:ListItem>
   </IEControls:ToolBarDropDownList>

</IEControls:toolbar>
<asp:Label

   id="lblMessage"
   runat="server"
   font-bold="True"

/> </form> </BODY> </HTML>

      </source>
   
  


Adding a ToolbarLabel Control to a Toolbar Control (VB.net)

   <source lang="csharp">

<%@ Page Language=VB Debug=true %> <%@ Import Namespace="Microsoft.Web.UI.WebControls" %> <%@ Register TagPrefix="IEControls"

   Namespace="Microsoft.Web.UI.WebControls" 
   Assembly ="Microsoft.Web.UI.WebControls"

%> <script runat=server> Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)

   tblDate.Text = Today()
   tblTime.Text = TimeOfDay()

End Sub </SCRIPT> <HTML> <HEAD> <TITLE>Adding a ToolbarLabel Control to a Toolbar Control</TITLE> </HEAD> <BODY LEFTMARGIN="10"> <form runat="server"> <IEControls:toolbar

   id="MyTB" 
   runat="server" 
   >
   <IEControls:toolbarlabel
       id="tblDate"
       runat="server"
       tooltip="Current Date"
       ImageUrl="clock1.ico"
   />
   <IEControls:toolbarlabel
       id="tblTime"
       runat="server"
       tooltip="Current Time"
       imageurl="clock2.ico"
   />

</IEControls:toolbar>
<asp:Label

   id="lblMessage"
   runat="server"
   font-bold="True"

/> </form> </BODY> </HTML>

      </source>
   
  


Adding a ToolbarSeparator Control to a Toolbar Control (VB.net)

   <source lang="csharp">

<%@ Page Language=VB Debug=true %> <%@ Import Namespace="Microsoft.Web.UI.WebControls" %> <%@ Register TagPrefix="IEControls"

   Namespace="Microsoft.Web.UI.WebControls" 
   Assembly ="Microsoft.Web.UI.WebControls"

%> <HTML> <HEAD> <TITLE>Adding a ToolbarSeparator Control to a Toolbar Control</TITLE> </HEAD> <BODY LEFTMARGIN="10"> <form runat="server"> <IEControls:toolbar

   id="MyTB" 
   runat="server" 
   >
   <IEControls:toolbartextbox 
       id="txtSearchTerm"
       runat="server"
   />
   <IEControls:ToolBarSeparator
       id="Sep1"
       runat="server"
   />
   <IEControls:toolbartextbox 
       id="txtSearchTerm2"
       runat="server"
   />

</IEControls:toolbar>
<asp:Label

   id="lblMessage"
   runat="server"
   font-bold="True"

/> </form> </BODY> </HTML>

      </source>
   
  


Adding a ToolbarTextBox Control to a Toolbar Control (VB.net)

   <source lang="csharp">

<%@ Page Language=VB Debug=true %> <%@ Import Namespace="Microsoft.Web.UI.WebControls" %> <%@ Register TagPrefix="IEControls"

   Namespace="Microsoft.Web.UI.WebControls" 
   Assembly ="Microsoft.Web.UI.WebControls"

%> <script runat=server> Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs) End Sub Sub Search_Changed(Sender As Object, E As EventArgs)

   lblMessage.Text = "Searching for: " & txtSearchTerm.Text

End Sub </SCRIPT> <HTML> <HEAD> <TITLE>Adding a ToolbarTextBox Control to a Toolbar Control</TITLE> </HEAD> <BODY LEFTMARGIN="10"> <form runat="server"> <IEControls:toolbar

   id="MyTB" 
   runat="server" 
   autopostback="True"
   >
   <IEControls:toolbartextbox 
       id="txtSearchTerm"
       runat="server"
       text="Enter Search Term"
       columns=20
       maxlength="30"
       textmode="SingleLine"
       ontextchanged="Search_Changed"
   />

</IEControls:toolbar>
<asp:Label

   id="lblMessage"
   runat="server"
   font-bold="True"

/> </form> </BODY> </HTML>

      </source>
   
  


Adding Controls to a Toolbar Control through Code (VB.net)

   <source lang="csharp">

<%@ Page Language=VB Debug=true %> <%@ Import Namespace="Microsoft.Web.UI.WebControls" %> <%@ Register TagPrefix="IEControls"

   Namespace="Microsoft.Web.UI.WebControls" 
   Assembly ="Microsoft.Web.UI.WebControls"

%> <script runat=server> Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)

   If (WeekDay(Today())) = 2 Then
       Dim MyTBL = New ToolBarLabel
       MyTBL.Text = "2:00 PM Metting Today!"
       MyTBL.ToolTip = "The weekly meeting is on for today."
       MyTB.Items.Add(MyTBL)
   End If

End Sub </SCRIPT> <HTML> <HEAD> <TITLE>Adding Controls to a Toolbar Control through Code</TITLE> </HEAD> <BODY LEFTMARGIN="40"> <form runat="server"> <IEControls:toolbar

   id="MyTB" 
   runat="server" 
   >

</IEControls:toolbar> </form> </BODY> </HTML>

      </source>
   
  


IE control toolbar with button images (C#)

   <source lang="csharp">

<%@ Register TagPrefix="iewc" Namespace="Microsoft.Web.UI.WebControls" Assembly="Microsoft.Web.UI.WebControls" %> <%@ Page language="c#" src="ToolbarTest.aspx.cs" AutoEventWireup="false" Inherits="ToolbarTest" %> <HTML>

 <body>
   <form id="Form1" method="post" runat="server">
     <iewc:Toolbar id="Toolbar1" style="Z-INDEX: 101; LEFT: 8px; POSITION: absolute; TOP: 12px" runat="server" Orientation="Vertical" Font-Names="Verdana" Font-Size="X-Small" Height="440px" Width="114px">
       <iewc:ToolbarButton Text="Get Help" ImageUrl="CHM.gif"></iewc:ToolbarButton>
       <iewc:ToolbarSeparator></iewc:ToolbarSeparator>
       <iewc:ToolbarButton Text="&nbsp;Page 1" ImageUrl="folder.gif"></iewc:ToolbarButton>
       <iewc:ToolbarButton Text="&nbsp;Page 2" ImageUrl="folder.gif"></iewc:ToolbarButton>
       <iewc:ToolbarButton Text="&nbsp;Page 3" ImageUrl="folder.gif"></iewc:ToolbarButton>
     </iewc:Toolbar>
<asp:Label id="lblInfo" style="Z-INDEX: 101; LEFT: 24px; POSITION: absolute; TOP: 20px" runat="server" Width="464px" Height="208px" Font-Names="Verdana" Font-Size="Large" Font-Bold="True"></asp:Label>
   </form>
 </body>

</HTML>

<%-- using System; using System.Collections; using System.ruponentModel; using System.Data; using System.Drawing; using System.Web; using System.Web.SessionState; using System.Web.UI; using System.Web.UI.WebControls; using System.Web.UI.HtmlControls; using Microsoft.Web.UI.WebControls;

 public class ToolbarTest : System.Web.UI.Page
 {
   protected Microsoft.Web.UI.WebControls.Toolbar Toolbar1;
   protected System.Web.UI.WebControls.Label lblInfo;
 
   private void Page_Load(object sender, System.EventArgs e)
   {
     // Put user code to initialize the page here
   }
   #region Web Form Designer generated code
   override protected void OnInit(EventArgs e)
   {
     //
     // CODEGEN: This call is required by the ASP.NET Web Form Designer.
     //
     InitializeComponent();
     base.OnInit(e);
   }
   
   /// <summary>
   /// Required method for Designer support - do not modify
   /// the contents of this method with the code editor.
   /// </summary>
   private void InitializeComponent()
   {    
     this.Toolbar1.ButtonClick += new System.EventHandler(this.Toolbar1_ButtonClick);
     this.Load += new System.EventHandler(this.Page_Load);
   }
   #endregion
   private void Toolbar1_ButtonClick(object sender, System.EventArgs e)
   {
     ToolbarButton clickedButton = (ToolbarButton)sender;
     if (clickedButton.ID == "Help")
     {
       lblInfo.Text = "You clicked the Help button.";
     }
     else
     {
       lblInfo.Text = "You clicked: " + clickedButton.Text;
     }
   }
 }

--%>

      </source>
   
  


Toggle button on Toolbar (VB.net)

   <source lang="csharp">

<%@ Page Language=VB Debug=true %> <%@ Import Namespace="Microsoft.Web.UI.WebControls" %> <%@ Register TagPrefix="IEControls"

   Namespace="Microsoft.Web.UI.WebControls" 
   Assembly ="Microsoft.Web.UI.WebControls"

%> <script runat=server> Sub ToolBarClick(ByVal Sender as Object, _

   ByVal E as EventArgs)
   If PrinterMode.Selected = True Then
       lblMessage.Text = "Printer mode is on.
" Else lblMessage.Text = "Printer mode is off.
" End If If ModeA.Selected = True Then lblMessage.Text = lblMessage.Text _ & "Mode A is on.
" ElseIf ModeB.Selected = True Then lblMessage.Text = lblMessage.Text _ & "Mode B is on.
" Else lblMessage.Text = lblMessage.Text _ & "Mode C is on.
" End If

End Sub </SCRIPT> <HTML> <HEAD> <TITLE>ToolBar 2 Control Sample Page</TITLE> </HEAD> <BODY> <form runat="server"> <IEControls:ToolBar

   id="MyTB" 
   runat="server" 
   AutoPostBack="true"
   Font-Size="10"
   Orientation="Horizontal"
   OnButtonClick="ToolBarClick"
   >
   <IEControls:ToolBarCheckButton 
       id="PrinterMode"
       runat="server"
       ImageURL="printer.ico"
       Tooltip="Toggle Printer Mode"
       Text="Printer Mode"
   />
   <IEControls:ToolBarSeparator
       id="Sep1"
       runat="server"
   />
   <IEControls:ToolBarCheckGroup
       id="Group1"
       runat="server"
       ForceSelection="True"
   >
       <IEControls:ToolBarCheckButton 
           id="ModeA"
           runat="server"
           Text="Mode A"
       />
       <IEControls:ToolBarCheckButton 
           id="ModeB"
           runat="server"
           Text="Mode B"
           Selected
       />
       <IEControls:ToolBarCheckButton 
           id="ModeC"
           runat="server"
           Text="Mode C"
       />
   </IEControls:ToolBarCheckGroup>

</IEControls:ToolBar>
<asp:Label

   id="lblMessage"
   runat="server"
   FOnt-Bold="True"

/> </Form> </BODY> </HTML>

      </source>
   
  


Toolbar with comboBox (VB.net)

   <source lang="csharp">

<%@ Page Language=VB Debug=true %> <%@ Import Namespace="Microsoft.Web.UI.WebControls" %> <%@ Register TagPrefix="IEControls"

   Namespace="Microsoft.Web.UI.WebControls" 
   Assembly ="Microsoft.Web.UI.WebControls"

%> <script runat=server> Sub ToolBarClick(ByVal Sender as Object, _

   ByVal E as EventArgs)
   lblMessage.Text = "You selected the " _
       & ddlSiteSection.SelectedItem.Text _
       & " section of the site.
" _ & "You entered this search term: " _ & txtSearchTerm.Text & "."

End Sub </SCRIPT> <HTML> <HEAD> <TITLE>ToolBar 3 Control Sample Page</TITLE> </HEAD> <BODY> <form runat="server"> <IEControls:ToolBar

   id="MyTB" 
   runat="server" 
   AutoPostBack="true"
   Font-Size="10"
   Orientation="Horizontal"
   OnButtonClick="ToolBarClick"
   >
   <IEControls:ToolBarLabel 
       id="Label1"
       runat="server"
       Text="Select Site Section: "
   />
   <IEControls:ToolBarDropDownList
       id="ddlSiteSection"
       runat="server"
   >
       <asp:ListItem>Home</asp:ListItem>
       <asp:ListItem>News</asp:ListItem>
       <asp:ListItem>Employees</asp:ListItem>
       <asp:ListItem>Contact Information</asp:ListItem>
   </IEControls:ToolBarDropDownList>
   <IEControls:ToolBarSeparator
       id="Sep1"
       runat="server"
   />
   <IEControls:ToolBarSeparator
       id="Sep2"
       runat="server"
   />
   <IEControls:ToolBarLabel 
       id="Label2"
       runat="server"
       Text="Search Our Site: "
   />
   <IEControls:ToolBarTextBox 
       id="txtSearchTerm"
       runat="server"
   />
   <IEControls:ToolBarButton 
       id="Go"
       runat="server"
       Text="Go"
   />

</IEControls:ToolBar>
<asp:Label

   id="lblMessage"
   runat="server"
   FOnt-Bold="True"

/> </Form> </BODY> </HTML>

      </source>
   
  


Toolbar with hyperlink button (VB.net)

   <source lang="csharp">

<%@ Page Language=VB Debug=true %> <%@ Import Namespace="Microsoft.Web.UI.WebControls" %> <%@ Register TagPrefix="IEControls"

   Namespace="Microsoft.Web.UI.WebControls" 
   Assembly ="Microsoft.Web.UI.WebControls"

%> <script runat=server> Sub ToolBarClick(ByVal Sender as Object, _

   ByVal E as EventArgs)
   lblMessage.Text = "You selected the " _
       & ddlSiteSection.SelectedItem.Text _
       & " section of the site.
" _ & "You entered this search term: " _ & txtSearchTerm.Text & "."

End Sub </SCRIPT> <HTML> <HEAD> <TITLE>ToolBar 3 Control Sample Page</TITLE> </HEAD> <BODY> <form runat="server"> <IEControls:ToolBar

   id="MyTB" 
   runat="server" 
   AutoPostBack="true"
   Font-Size="10"
   Orientation="Horizontal"
   OnButtonClick="ToolBarClick"
   >
   <IEControls:ToolBarLabel 
       id="Label1"
       runat="server"
       Text="Select Site Section: "
   />
   <IEControls:ToolBarDropDownList
       id="ddlSiteSection"
       runat="server"
   >
       <asp:ListItem>Home</asp:ListItem>
       <asp:ListItem>News</asp:ListItem>
       <asp:ListItem>Employees</asp:ListItem>
       <asp:ListItem>Contact Information</asp:ListItem>
   </IEControls:ToolBarDropDownList>
   <IEControls:ToolBarSeparator
       id="Sep1"
       runat="server"
   />
   <IEControls:ToolBarSeparator
       id="Sep2"
       runat="server"
   />
   <IEControls:ToolBarLabel 
       id="Label2"
       runat="server"
       Text="Search Our Site: "
   />
   <IEControls:ToolBarTextBox 
       id="txtSearchTerm"
       runat="server"
   />
   <IEControls:ToolBarButton 
       id="Go"
       runat="server"
       Text="Go"
   />

</IEControls:ToolBar>
<asp:Label

   id="lblMessage"
   runat="server"
   FOnt-Bold="True"

/> </Form> </BODY> </HTML>

      </source>
   
  


Toolbar with icon (VB.net)

   <source lang="csharp">

<%@ Page Language=VB Debug=true %> <%@ Import Namespace="Microsoft.Web.UI.WebControls" %> <%@ Register TagPrefix="IEControls"

   Namespace="Microsoft.Web.UI.WebControls" 
   Assembly ="Microsoft.Web.UI.WebControls"

%> <script runat=server> Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)

   TBLabel1.Text = Today()
   TBLabel2.Text = TimeOfDay()

End Sub Sub ToolBarClick(ByVal Sender as Object, ByVal E as EventArgs)

   lblMessage.Text = "You clicked the button named: " _
       & Sender.ToString()

End Sub </SCRIPT> <HTML> <HEAD> <TITLE>ToolBar 1 Control Sample Page</TITLE> </HEAD> <BODY > <form runat="server"> <IEControls:ToolBar

   id="MyTB" 
   runat="server" 
   AutoPostBack="true"
   Font-Size="10"
   Orientation="Horizontal"
   OnButtonClick="ToolBarClick"
   >
   <IEControls:ToolBarButton 
       id="Filter"
       runat="server"
       Tooltip="Filter Records"
       ImageUrl="filter2.ico"
       Text="Filter&nbsp"
   />
   <IEControls:ToolBarButton 
       id="Print"
       runat="server"
       Tooltip="Print Record"
       ImageUrl="printer.ico"
       Text="Print&nbsp"
   />
   <IEControls:ToolBarSeparator
       id="Sep1"
       runat="server"
   />
   <IEControls:ToolBarLabel
       id="TBLabel1"
       runat="server"
       Tooltip="Current Date"
       ImageUrl="clock1.ico"
   />
   <IEControls:ToolBarSeparator
       id="Sep2"
       runat="server"
   />
   <IEControls:ToolBarLabel
       id="TBLabel2"
       runat="server"
       Tooltip="Current Time"
       ImageUrl="clock2.ico"
   />

</IEControls:ToolBar>
<asp:Label

   id="lblMessage"
   runat="server"
   FOnt-Bold="True"

/> </Form> </BODY> </HTML>

      </source>
   
  


Toolbar with textbox (VB.net)

   <source lang="csharp">

<%@ Page Language=VB Debug=true %> <%@ Import Namespace="Microsoft.Web.UI.WebControls" %> <%@ Register TagPrefix="IEControls"

   Namespace="Microsoft.Web.UI.WebControls" 
   Assembly ="Microsoft.Web.UI.WebControls"

%> <script runat=server> Sub ToolBarClick(ByVal Sender as Object, _

   ByVal E as EventArgs)
   lblMessage.Text = "You selected the " _
       & ddlSiteSection.SelectedItem.Text _
       & " section of the site.
" _ & "You entered this search term: " _ & txtSearchTerm.Text & "."

End Sub </SCRIPT> <HTML> <HEAD> <TITLE>ToolBar 3 Control Sample Page</TITLE> </HEAD> <BODY> <form runat="server"> <IEControls:ToolBar

   id="MyTB" 
   runat="server" 
   AutoPostBack="true"
   Font-Size="10"
   Orientation="Horizontal"
   OnButtonClick="ToolBarClick"
   >
   <IEControls:ToolBarLabel 
       id="Label1"
       runat="server"
       Text="Select Site Section: "
   />
   <IEControls:ToolBarDropDownList
       id="ddlSiteSection"
       runat="server"
   >
       <asp:ListItem>Home</asp:ListItem>
       <asp:ListItem>News</asp:ListItem>
       <asp:ListItem>Employees</asp:ListItem>
       <asp:ListItem>Contact Information</asp:ListItem>
   </IEControls:ToolBarDropDownList>
   <IEControls:ToolBarSeparator
       id="Sep1"
       runat="server"
   />
   <IEControls:ToolBarSeparator
       id="Sep2"
       runat="server"
   />
   <IEControls:ToolBarLabel 
       id="Label2"
       runat="server"
       Text="Search Our Site: "
   />
   <IEControls:ToolBarTextBox 
       id="txtSearchTerm"
       runat="server"
   />
   <IEControls:ToolBarButton 
       id="Go"
       runat="server"
       Text="Go"
   />

</IEControls:ToolBar>
<asp:Label

   id="lblMessage"
   runat="server"
   FOnt-Bold="True"

/> </Form> </BODY> </HTML>

      </source>