Label Nesnesine Kayan Yazı Ekleme
Label Nesnesine Kayan Yazı Ekleme isimli kod ile, farklı biçimlerde kayan yazı efekti ekleme işleminin nasıl yapılacağını görebilirsiniz.
XD Destek İstePrivate Sub UserForm_Activate()
Dim i As Integer
Label1.Top = 0
Label1.Left = 5
For i = 10 To (UserForm1.Width - Label1.Width) * 10
Label1.Left = Label1.Left + 0.1
DoEvents
Next i
Label1.Top = 0
Label1.Left = 280
For i = 10 To (UserForm1.Width - Label1.Width) * 10
Label1.Left = Label1.Left - 0.1
DoEvents
Next i
Label1.Top = 0
Label1.Left = 5
For i = 10 To (UserForm1.Width - Label1.Width) * 10
Label1.Left = Label1.Left + 0.1
DoEvents
Next i
Label1.Top = 0
Label1.Left = 275
For i = 10 To (UserForm1.Width - Label1.Width) * 10
Label1.Left = Label1.Left - 0.1
DoEvents
Next i
Label1.Top = 0
Label1.Left = 0
For i = 10 To (UserForm1.Width - Label1.Width) * 5
Label1.Left = Label1.Left + 0.1
DoEvents
Next i
Label2.Top = 20
Label2.Left = 280
For i = 10 To (UserForm1.Width - Label1.Width) * 10
Label2.Left = Label2.Left - 0.1
DoEvents
Next i
Label2.Top = 20
Label2.Left = 5
For i = 10 To (UserForm1.Width - Label1.Width) * 10
Label2.Left = Label2.Left + 0.1
DoEvents
Next i
Label2.Top = 20
Label2.Left = 275
For i = 10 To (UserForm1.Width - Label1.Width) * 10
Label2.Left = Label2.Left - 0.1
DoEvents
Next i
Label2.Top = 20
Label2.Left = 5
For i = 10 To (UserForm1.Width - Label1.Width) * 10
Label2.Left = Label2.Left + 0.1
DoEvents
Next i
Label2.Top = 20
Label2.Left = 270
For i = 10 To (UserForm1.Width - Label1.Width) * 4.5
Label2.Left = Label2.Left - 0.1
DoEvents
Next i
End Sub
Gerekli Adımlar
Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.
- Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
- Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
- Araç çubuklarından Insert -> Module yazısına tıklayın.
- Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
- Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
- Üstteki kodu yapıştırın.
Kod Açıklaması
Kodların çalışması için bir UserForm ve iki Label nesnesine ihtiyacınız bulunmaktadır.
#Label Nesnesine Kayan Yazı Ekleme
Üstteki alanda, Google Reklamları yerine sizin reklamınızın yayınlanmasını ister misiniz?
Reklam vermek istiyorum