AccessTr.neTVisual Basic 6Visual Basic 6 Örnekleri ve Uygulamaları

Label da kayan yazı

1 2
30/11/2008, 02:56

chopper07

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
18/04/2009, 14:47

kadir378

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 ?
18/04/2009, 16:02

chopper07

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

örneği ekliyorum
01/05/2009, 11:46

tam1shard

aynen kırmızı olan yerlerde hata var
01/05/2009, 13:24

chopper07

visual basic kodları vb.net lerle karıştırmıyorsunuz değil mi?
01/05/2009, 14:55

goodfalles

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