IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)

- Visual Basic (https://www.ircforumlari.net/visual-basic/)

- - Başık Kaydırma Örneği (https://www.ircforumlari.net/visual-basic/124437-basik-kaydirma-ornegi.html)

Cemalizim

19 Temmuz 2008 16:58

Başık Kaydırma Örneği

PHP- Kodu:

   Private Sub Form_Load()
Timer1.Interval = 10
End Sub

Private Sub Timer1_Timer()
Static t, x, artır
If IsEmpty(t) Then
t = "Erdoğan Aslan"
artır = -1
End If
If x = Len(t) Then artır = -artır
If x <= 0 Then artır = -artır
x = x + artır
If artır > 0 Then Caption = "Author : " & Left(t, x)
If artır < 0 Then Caption = "Author : " & Right(t, x)

End Sub

Alıntıdır

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 05:58.