Textscroller: code

• De control
   

  Private display As String 'de tekst zoals die getoond wordt
  Public Property gestart() As Boolean
  Get
    Return Timer1.Enabled
  End Get
  Set(ByVal Value As Boolean)
    Timer1.Enabled = True
  End Set
  End Property

  Public Property interval() As Integer
  Get
    Return Timer1.Interval
  End Get
  Set(ByVal Value As Integer)
    Timer1.Interval = Value
  End Set
  End Property

  Public Property tekst() As String
  Get
    Return lblText.Text
  End Get
  Set(ByVal Value As String)
    lblText.Text = Value
  End Set
  End Property

  Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  If Len(display) = 0 Or Len(display) = 1 Then
    display = lblText.Text
    Else
    display = Mid(display, 2, Len(display)) 'geen Left of Right meer in VB.NET
  End If
  lblDisplay.Text = display
  End Sub
  End Class

• Het formulier
  Private Sub cmdGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdGo.Click
  If IsNumeric(txtInterval.Text) Then
    Tekstscroller1.interval = CInt(txtInterval.Text)
    Tekstscroller1.tekst = txtText.Text
    Tekstscroller1.Enabled = True
  End If
  End Sub

[VB Web] - [hlrnet] - [copyright]