timeoutexample.aspx

来自「This is a book about vb.you could learn 」· ASPX 代码 · 共 13 行

<Script Language="VB" runat="server">
Public Sub Page_Load(sender As Object, e As EventArgs)
  Dim example As New Timeout()
  example.Timeout = 5000

  Try
    lblResult.Text = example.Add(4,5)
  Catch err As Exception
    lblResult.Text = err.Message
  End Try
End Sub
</Script>
The result of 4 + 5 is: <asp:label id="lblResult" runat="server" />