AccessTr.neT

(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