VB Kayan Yazı

Programlama dilleri konusunda bilgi paylaşım alanıdır.
Cevapla
Kullanıcı avatarı
mayhemious
Kilobyte4
Kilobyte4
Mesajlar: 711
Kayıt: 17 Kas 2007, 13:14
cinsiyet: Erkek

VB Kayan Yazı

Mesaj gönderen mayhemious » 13 Oca 2008, 13:00

ben denedim, bi site yazdı:
'Forma Bu kodu ekle
'Timer1 adında Timer ve
'Label1 adında Label yapıstır.
Private Sub Form_Load()
Label1.Caption = "Ben bir kayan yazıyım. İyi kayıyormuyum."
Label1.Left = ScaleLeft
Label1.Width = Me.ScaleWidth
Timer1.Interval = 30
End Sub

Private Sub Timer1_Timer()

On Error Resume Next
Label1 = Mid(Label1, 2, Len(Label1) - 1) + Left(Label1, 1)

End Sub



Cevapla