randomevent.vb

来自「asp.net技术内幕的书配源码」· VB 代码 · 共 36 行

Imports System
Imports System.Web
Imports System.Web.UI

Namespace myControls

Public Class RandomEvent
Inherits Control

Public Event Event1( s As Object, e As EventArgs )
Public Event Event2( s As Object, e As EventArgs )

Protected Sub OnEvent1( e As EventArgs )
  RaiseEvent Event1( Me, EventArgs.Empty )
End Sub

Protected Sub OnEvent2( e As EventArgs )
  RaiseEvent Event2( Me, EventArgs.Empty )
End Sub

Protected Overrides Sub Render( objTextWriter As HtmlTextWriter )
  Dim objRandom As New Random
  Dim intRanSelect As Integer

  intRanSelect = objRandom.Next( 2 )
  If intRanSelect = 0 Then
    OnEvent1( EventArgs.Empty )
  Else
    OnEvent2( EventArgs.Empty )
  End If
End Sub

End Class

End Namespace