<%@ Register Assembly="AsyncControls" Namespace="DelvingWare.AsyncControls" TagPrefix="dw" %>

<dw:AsyncWindow runat="server" ID="wndHelp" 
    Title="Help Window" 
    Visible="false"
    CloseIconUrl="../images/xpWinClose.gif" 
    CollapseIconUrl="../images/xpWinMinimize.gif"
    Width="300" 
    Height="300"
    ShowScrollBar="true"
    DefaultStyle="false" 
    EnableShadow="true" 
    CssClass="asyncPageWin" 
    TitleBarCssClass="asyncPageWinTitleBar"
    TitleCssClass="asyncPageWinTitle" 
    ShadowCssClass="awShadow" 
    TitleBarButtonHeight="30" 
    TitleBarButtonWidth="21">
    
    <p>
    Ut porttitor neque quis.

    </p>
</dw:AsyncWindow>

    Enter a message: <dw:AsyncTextBox runat="server" ID="txtMsg" 
    Size="25" MaxLength="50"
    EnableValidation="Enabled" 
    TextMode="MultiLine"
    ErrorMessage="Please enter a message to display."
    ErrorMessageCssClass="errorMsg"
    Columns="57" 
    Rows="3" />
    
    <br />
    
    <dw:AsyncLinkButton runat="server" ID="lnkMsg" 
    CausesStrictValidation="true" 
    CssClass="showMsg" 
    Text="Show Message" 
    OnClick="lnkMsg_Click" />
    
    &nbsp;&nbsp;
    
    <dw:AsyncLinkButton runat="server" ID="lnkAlert"
    CausesStrictValidation="true" 
    CssClass="showMsg" 
    Text="Show Alert" 
    OnClick="lnkAlert_Click" />    
    
    <dw:AsyncTextBox runat="server" ID="txtUrl"
    EnableValidation="Enabled"
    MultiValidate="RegularExpression|RequiredField"
    ValidationExpression="http(|s)://(.+)\.(com|net|org|edu)"
    ValidationExpressionOptions="IgnoreCase"
    ErrorMessage="Plese enter a valid URL. (e.g. http://www.AJAXForASP.NET)"
    ErrorMessageCssClass="errorMsg"
    Size="30"
    MaxLength="50"
    Text="http://www.AJAXForASP.NET" />
    
    <dw:AsyncButton runat="server" ID="btRedirect"
    CausesStrictValidation="true"
    OnClick="btRedirect_Click"
    Text="Redirect Me" 
    CssClass="greyButton"/>
    
<dw:AsyncButton runat="server" ID="btAction"
CssClass="greyButton"
OnClick="btAction_Click"
Text="Perform AsyncCallback"
WaitMessage="Loading AsyncOutput..." />

<br/>
<dw:AsyncLabel runat="server" ID="lblMain" RenderMode="Italic" />

using System;
using DelvingWare.AsyncControls;
...
protected void Page_Init(object sender, EventArgs e)
{
    // assign a method to handle the page keyboard events
    AsyncPage.KeyPress += new AsyncKeyEventHandler(AsyncPage_KeyPress);
}

void AsyncPage_KeyPress( object sender, AsyncKeyEventArgs ae )
{
    // if the control and alt key is held down
    if ( ae.Control && ae.Alt )
    {            
        // the value of the key that was pressed
        switch ( ae.KeyValue )
        {
            case System.Windows.Forms.Keys.H:
                wndHelp.Show();
                break;
        } // end SWITCH
        
    } 
}

protected void lnkMsg_Click( object sender, AsyncEventArgs ae )
{
    // ensure the AsyncTextBox validation passed
    if ( !txtMsg.IsValid )
        return;

    // show the message
    AsyncPage.MessageBox(txtMsg.Text.Replace("\n", "<br />"));
}

protected void lnkAlert_Click( object sender, AsyncEventArgs ae )
{
    // ensure the AsyncTextBox validation passed
    if ( !txtMsg.IsValid )
        return;

    // show the alert
    AsyncPage.Alert(txtMsg.Text);
}

protected void btRedirect_Click( object sender, AsyncEventArgs ae )
{
    // ensure the AsyncTextBox validation passed
    if ( !txtUrl.IsValid )
        return;

    // redirect the user to the specified URL
    Redirect(txtUrl.Text);
}

protected void btAction_Click( object sender, AsyncEventArgs ae )
{
    // emulating time consuming server task
    System.Threading.Thread.Sleep(3000);

    // update the label
    lblMain.Text = "Server task completed at: "+ DateTime.Now;
}

Imports System
Imports DelvingWare.AsyncControls
...

Protected Sub Page_Init(ByVal sender As Object, ByVal e As EventArgs)
    ' assign a method to handle the page keyboard events
    AddHandler AsyncPage.KeyPress, AddressOf Me.AsyncPage_KeyPress
End Sub

Private Sub AsyncPage_KeyPress(ByVal sender As Object, ByVal ae As AsyncKeyEventArgs)
    ' if the control and alt key is held down
    If (ae.Control AndAlso ae.Alt) Then
        ' the value of the key that was pressed
        Select Case (ae.KeyValue)
            Case System.Windows.Forms.Keys.H
                wndHelp.Show
        End Select
        ' end SWITCH
    End If
End Sub

Protected Sub lnkMsg_Click(ByVal sender As Object, ByVal ae As AsyncEventArgs)
    ' ensure the AsyncTextBox validation passed
    If Not txtMsg.IsValid Then
        Return
    End If
    ' show the message
    AsyncPage.MessageBox(txtMsg.Text.Replace(""& vbLf, "<br />"))
End Sub

Protected Sub lnkAlert_Click(ByVal sender As Object, ByVal ae As AsyncEventArgs)
    ' ensure the AsyncTextBox validation passed
    If Not txtMsg.IsValid Then
        Return
    End If
    ' show the alert
    AsyncPage.Alert(txtMsg.Text)
End Sub

Protected Sub btRedirect_Click(ByVal sender As Object, ByVal ae As AsyncEventArgs)
    ' ensure the AsyncTextBox validation passed
    If Not txtUrl.IsValid Then
        Return
    End If
    ' redirect the user to the specified URL
    Redirect(txtUrl.Text)
End Sub

Protected Sub btAction_Click(ByVal sender As Object, ByVal ae As AsyncEventArgs)
    ' emulating time consuming server task
    System.Threading.Thread.Sleep(3000)
    ' update the label
    lblMain.Text = ("Server task completed at: " + DateTime.Now)
End Sub

.asyncPageWin {
    border: 2px ridge #66667E;
    border-top: 0px;
    background-color: #eee;
    font-family: Verdana, Arial, Serif;
}
.asyncPageWin p {
    padding-left: 20px;
    font-size: 8pt;
}
.asyncPageWinTitleBar {
    background-image: url("images/xpWindowGrad.gif");
    background-repeat: repeat-x;
    border-bottom: 1px solid #5e5e5e;
    height: 30px;
    width: 300px;
}
.asyncPageWinTitle {
    position: relative;
    top: 10px;
    padding-left: 20px;
    font-size: 8pt;
    font-weight: bolder;
}
span .closeBt {
    padding-left: 2px;
}
.asyncPageButton 

{
    border: 0px;
    background-image: url("images/greyButton.gif");
    background-repeat: no-repeat;
    width: 120px;
    height: 25px;
}
.asyncPageButton:Hover 

{
    background-image: url("images/greyButtonHov.gif");
    background-repeat: no-repeat;
    cursor: pointer;
}