Breadcrumbs

[lillogoal]

This Is Source

Code: Select all

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim starting As String = "Websitelillo "

        Dim out As String = ""
        For i As Integer = 0 To starting.Length - 1
            out += starting(i) & vbLf
        Next

        Me.Text = out
        Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Timer1.Stop()
        Me.Text = Me.Text.Insert(Me.Text.Length, Me.Text.Substring(0, 2))

        Me.Text = Me.Text.Remove(0, 2)
        Timer1.Start()
    End Sub
End Class

[mandai]

Just saying, this was posted earlier: viewtopic.php?f=21&t=2697#p17393

[zachman61]

this is wrong section and mandai posted this not you

[un kn0 wn]

this is wrong section and mandai posted this not you

this is slightly different i fink, well anyways nice job but put this in the tutorials section.

[Agust1337]

its the same codes as Mandai posted.

lillogoal's:

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim starting As String = "Websitelillo "

Dim out As String = ""
For i As Integer = 0 To starting.Length - 1
out += starting(i) & vbLf
Next

Me.Text = out
Timer1.Start()
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Timer1.Stop()
Me.Text = Me.Text.Insert(Me.Text.Length, Me.Text.Substring(0, 2))

Me.Text = Me.Text.Remove(0, 2)
Timer1.Start()
End Sub
End Class

Mandai's:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim starting As String = "starting value "

Dim out As String = ""
For i As Integer = 0 To starting.Length - 1
out += starting(i) & vbLf
Next

Label1.Text = out
Timer1.Start()
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Timer1.Stop()
Label1.Text = Label1.Text.Insert(Label1.Text.Length, Label1.Text.Substring(0, 2))

Label1.Text = Label1.Text.Remove(0, 2)
Timer1.Start()
End Sub

the only difference is the Dim starting as string = "websitelillo" & "Starting value"

[mandai]

Well also the fact that it changes Me.Text instead of label1.Text, but the process is still the same.