(01/05/2009, 14:55)goodfalles yazdı: Label1.caption vb.nette .text olcak . )
vb.6 kodları bunlar sanırm
Düzeltme için teşekkürler. Ayrıca sitede verdiğim tüm örnekler, dersler, uygulamalar VB6 içindir.
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