Anasayfa > Kodlar > VB6’da Timer ile kayanyazı örneği

VB6’da Timer ile kayanyazı örneği


Textboxta kayan yazı örneği.



Option Explicit
Dim ad
Dim yazi As String
Private Sub Command1_Click()
Text1.ForeColor = ad
yazi = String(30, " ") + "serdar daloğlu"
Timer1.Enabled = True
End Sub

Private Sub Option1_Click()
ad = vbRed
Command1_Click
End Sub

Private Sub Option2_Click()
ad = vbBlue
Command1_Click
End Sub

Private Sub Option3_Click()
ad = vbBlack
Command1_Click
End Sub

Private Sub Option4_Click()
ad = vbYellow
Command1_Click
End Sub

Private Sub Option5_Click()
ad = vbWhite
Command1_Click
End Sub

Private Sub Timer1_Timer()
yazi = Mid(yazi, 2) & Left(yazi, 1)
Text1 = yazi
End Sub


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Yanıt Bırakın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: