حرکت لیبل ها از یک سمت یه سمت دیگر فرم

[farhad85]

باسلام من یکسری اطلاعات بصورت لیبل دارم که می خوام از یک سمت فرم حرکت واز اون سمتش بیرون بزنن و این کار هی مرتبا انجام بشه؟ ممنونم از کمک هاتون

[boveiryghasem]

سلام

امیدوارم منظورت همین باشه اول یک لیبل به فرمت اضافه کن بعدش یک تامیر این کدها رو هم اضافش کن:

Public Class Form3
Dim scrolledString As String = "My name is ghasem boveiry"
Dim myStrings(scrolledString.Length - 1) As String
Dim position As Integer = -1

Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim labelSize As Size
labelSize.Width = 150
labelSize.Height = 13
Label1.MinimumSize = labelSize
Label1.MaximumSize = labelSize
Label1.Size = labelSize
Call ScrollType2(scrolledString)
Timer1.Interval = 75
Timer1.Enabled = True
Timer1.Start()
End Sub
Private Sub ScrollType1(ByVal someString As String)
For index As Integer = 0 To UBound(myStrings)
Dim workedString As String = ""
workedString = someString.Substring(index)
myStrings(index) = workedString
Next
End Sub
Private Sub ScrollType2(ByVal someString As String)
For index As Integer = 0 To UBound(myStrings)
Dim workedString As String = ""
workedString = someString.Substring(index) & " " & someString.Substring(0, index)
myStrings(index) = workedString
Next
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
position += 1
Dim testString As String
testString = myStrings(position)
Label1.Text = testString
Me.Text = testString
If position = UBound(myStrings) Then position = -1
End Sub
End Class