Label1.Left = ScaleLeft
Label1.Width = Me.ScaleWidth
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
On Error Resume Next
Label1 = Mid(Label1, 2, Len(Label1) - 1) + Left(Label1, 1)
End Sub
kalın olarak belırttıgım kodu bır eventın altına yazmalısın mesela butonun olayına yazarsan oluyor.veya Form Load kısmına yazarsan olur
Label da kayan yazı
Bu Konudaki Yorumlar |
Label da kayan yazı - Yazar: chopper07 - 30/11/2008, 02:56
Cvp: Label da kayan yazı - Yazar: kadir378 - 18/04/2009, 14:47
Cvp: Label da kayan yazı - Yazar: chopper07 - 18/04/2009, 16:02
Cvp: Label da kayan yazı - Yazar: tam1shard - 01/05/2009, 11:46
Cvp: Label da kayan yazı - Yazar: chopper07 - 01/05/2009, 13:24
Cvp: Label da kayan yazı - Yazar: goodfalles - 01/05/2009, 14:55
Cvp: Label da kayan yazı - Yazar: chopper07 - 03/05/2009, 14:36
Cvp: Label da kayan yazı - Yazar: PaTRoNa - 14/02/2010, 16:39
|
Konuyu Okuyanlar: 1 Ziyaretçi