Anasayfa > Kodlar > Visual Basic 6 ile Yürüyen text box

Visual Basic 6 ile Yürüyen text box


Yürüyen Text Box

Formun üzerine bir textbox ve timer yerlestirin ve textbox'in left özelligini koddaki sayilara göre yaptiktan sonra bunu yordamlara geçirin

Dim artis As Integer
Dim b As Integer

Private Sub Form_Load()
Timer1.Enabled = True
artis = 100
b = 100
End Sub

Private Sub Timer1_Timer()

If Text1.Left < 0 And artis < 7080 Then artis = artis * (-1)
Text1.Left = Text1.Left + artis
If Text1.Left > 7080 And artis > 0 Then artis = artis *(-1)
Text1.Left = Text1.Left + artis


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: