simplerotator1.vb

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

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

Namespace myControls

Public Class SimpleRotator1: Inherits Control

Protected Overrides Sub Render( objTextWriter As HtmlTextWriter)
  Dim objRandom As New Random
  Dim intRanIndex As Integer
  Dim objSelectedItem As RotatorItem1

  If Controls.Count > 0 Then
    intRanIndex = objRandom.Next( Controls.Count )
    objSelectedItem = CType( Controls( intRanIndex ), RotatorItem1 )
    objTextWriter.Write( objSelectedItem.Text )
  End If
End Sub

End Class

Public Class RotatorItem1 : Inherits Control
 Public Text As String
End Class

End Namespace