AccessTr.neT
Label da 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 kayan yazı (/konu-label-da-kayan-yazi.html)

Sayfalar: 1 2


Label da kayan yazı - chopper07 - 30/11/2008

formumuza 1 timer - 1 label ekliyoruz ve kodları forma yapıştırıyoruz.

buradan "Timer1.Interval = 100" hızı ayarlayabilirsiniz.

Kod:
Private Sub Form_Load()
Label1.Caption = "Accesstr.net | Access Öğrenmenin Kısa yolu"
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




Cvp: Label da kayan yazı - kadir378 - 18/04/2009

Label1.caption = "Accesstr.net - Turizm Mezunlari.com"
Label1.Left = ScaleLeft
Label1.Width = Me.ScaleWidth
Timer1.Interval = 100
Label1 = Mid(Label1, 2, Len(Label1) - 1) + Left(Label1, 1)
Bu Kırmızı Yazanların aLtını Mavi cizgi ile çiziyor kabul etmiyor ne yapmalıyım ?


Cvp: Label da kayan yazı - chopper07 - 18/04/2009

Sn. Kadir378 kodları denedim ve aynı şekilde uygulanınca sorun vermedi.

örneği ekliyorum


Cvp: Label da kayan yazı - tam1shard - 01/05/2009

aynen kırmızı olan yerlerde hata var


Cvp: Label da kayan yazı - chopper07 - 01/05/2009

visual basic kodları vb.net lerle karıştırmıyorsunuz değil mi?


Cvp: Label da kayan yazı - goodfalles - 01/05/2009

Label1.caption vb.nette .text olcak . )
vb.6 kodları bunlar sanırm