Yazı Animasyonu

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
zulme karşı mukavemet!
Süper Üye
Katılım
7 Ocak 2016
Mesajlar
1,357
Çözümler
20
Tepki puanı
386
Ödüller
11
10 HİZMET YILI
[font='Titillium Web', sans-serif]Public Class Form1
Dim i As Integer

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

i = i + 1
lblYazi.Text = ""
lblYazi.Text = lblYazi.Text & Microsoft.VisualBasic.Left("Yazımızı buraya yazıyoruz", i)

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Interval = 50
Timer1.Start()
End Sub
[/FONT]
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst