scrolling text

[hsadeh]

سلام - در يك winform ميخواهم نوشته هاي يك Textbox يا Lable بصورت عمودي اسكرول شوند و پس از پايان ، حلقه اسكرول تكرار شود . من يك تايمر گذاشتم و كد زير را نوشتم :



label1.Location = New Point(Me.label1.Location.X, Me.label1.Location.Y - 1)


جواب داد ولي پس از پايان نوشته ها ، حلقه اسكرول تكرار نمي شود . لطفا راهنمايي كنيد

با سپاس

[ACorvinus]

سلام .

ببخشین منظورتون از این "نوشته هاي يك Textbox يا Lable بصورت عمودي اسكرول شوند و پس از پايان ، حلقه اسكرول تكرار شود" چیه ؟

[mohammadi4net]

اگه منظورتونو درست فهمیدم باید یک شرط بزارین که اگه به پایین فرم رسید برگرده بالای فرم
اگرم نه بیشتر توضیح بدین

[kablayi]

فکر کنم منظورتون اینه...
مثل زمانی که فیلم سینمایی تموم میشه و نوشته های فیلم میان

[virusha]

اینم بد نیست



Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Left -= 5
If Label1.Left <= -Width Then
Label1.Left = Width
End If
End Sub


*توجه : Timer Enabled : True

[فرید نجفلو]

سلام کد داحل تایمر:


Label1.Top -= 5
If Label1.Bottom <= 0 Then Label1.Top = Me.Width