Anasayfa > Kodlar > Visual Basic 6 ile Yazı animasyonu yapmak

Visual Basic 6 ile Yazı animasyonu yapmak


Bu kodlarla yazı  ları kaydırabilirsiniz

Private Sub Form_Load()
Timer1.Interval = 1500
Timer2.Interval = 5000
Dim i, ds, y
Label1(0).AutoSize = False
Label1(0).FontSize = 100
Label1(0) = "M"
Label1(0).AutoSize = False
Label1(0).BackStyle = 0
ds = 15
Show
Label1(0) = ""
Label1(0).Top = 1200
Label1(0).Visible = True
For i = 1 To ds + 4
Load Label1(i) 'yeni labeller oluştur
've dairesel olarak yerleştir
y = Cos(i / 2) * Sqr(562500 - ((i) * 10) ^ 2) + 1200

Label1(i).Visible = True
Next
Timer1.Enabled = True
End Sub
Private Sub Text1_Change()
yaz (Text1)
End Sub

Private Sub Timer1_Timer()
Text1 = Mid(Text1, 2, Len(Text1) - 1) + Left(Text1, 1)
End Sub

Private Sub Timer2_Timer()
Dim i, y, r
y = Form1.ScaleHeight / 2
r = Form1.BackColor
Form1.BackColor = Label1(0).ForeColor
'ters çevir
For i = 0 To 19
Label1(i).Top = 2 * y - (Label1(i).Top + Label1(i).Height)
Next
End Sub
Private Sub yaz(text As String)
Dim i, a, s
If Len(text) > 19 Then
s = 19
Else
s = Len(text) - 1
End If
For i = 0 To s
a = Mid(text, i + 1, 1)

Next
End Sub


TD Software


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

Bir Cevap Yazı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: