Label da Aşağı kayan Yazı

Label da Aşağı kayan Yazı - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic 6 (https://accesstr.net/forum-visual-basic-6.html)
+--- Forum: Visual Basic 6 Örnekleri ve Uygulamaları (https://accesstr.net/forum-visual-basic-6-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Label da Aşağı kayan Yazı (/konu-label-da-asagi-kayan-yazi.html)

Label da Aşağı kayan Yazı - chopper07 - 30/11/2008

formumuza bir timer - 1 label ekleyip kodları yapıştırıyoruz.

Kod:

Option Explicit



Private Sub Form_Load()

Timer1.Interval = 1

Label1.Caption = "Accesstr.net"

End Sub



Private Sub Timer1_Timer()

Label1.Top = Label1.Top + 3

If Label1.Top = Me.Top Then Label1.Top = 0

End Sub

Cvp: Label da Aşağı kayan Yazı - Puletin - 30/11/2008

Eline sağlık hocam

Cvp: Label da Aşağı kayan Yazı - chopper07 - 01/12/2008

rica ederim.