.
.
.
.
VB 6.0 da nesneler biraz farklıydı. VB.NET olarak göstereyim, zaten kodlamada bilgin varsa çok rahat çevirirsin.
Öncelikle Bir Zamanlayıcı (Timer) eklemen gerekiyor.
Şeklinde yaparsInız basit bir kaydırma işlemi yapmış olabilirsin. Kavrarsanız zaten daha ilginç yöntemler geliştirebilirsiniz. (Örn: Sola kaydı bitti sonra tekrar sağa kaydırabilirsin)
PHP kodları ile sitende kayan yazı kaydırmak istiyorsan ;
Öncelikle Bir Zamanlayıcı (Timer) eklemen gerekiyor.
PHP:
Dim GercekBaslik As String = "MaxiGame.Org-FearLéSS"
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Dim baslik As String = Me.Text ’Başlığı al
If baslik.Length > 0 Then ’Başlıkta karakter oldukça
baslik = baslik.Remove(0, 1) ’İlk karakteri sil
Me.Text = baslik ’Yeni başlığı yaz
Else ’Hiç karakter kalmadıysa
Me.Text = GercekBaslik ’Tekrar başlığı yaz
End If
End Sub
Form Loadında da
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Text = GercekBaslik ’Başlığı yazdıralım
Timer2.Interval = 100 ’Sayaç hızını belirle (1000 = 1 saniye)
Timer2.Enabled = True ’Sayacı başlat
End Sub
Şeklinde yaparsInız basit bir kaydırma işlemi yapmış olabilirsin. Kavrarsanız zaten daha ilginç yöntemler geliştirebilirsiniz. (Örn: Sola kaydı bitti sonra tekrar sağa kaydırabilirsin)
PHP kodları ile sitende kayan yazı kaydırmak istiyorsan ;
PHP:
<marquee>Bu araya görsel yada yazı ekleyebilirsiniz</marquee>
Alıntıdır.
Son düzenleme: