[VB.NET] Form Başlığını Kaydırma

[1Jeff]

Bugün Sizlere Visual Studio'da Form Başlığını Kayan Yazı Efekti Verme Kodlarını Göstereceğim.

Gerekli Malzemeler :
Kod:
1 Adet Timer

Şimdi Form'a Çift Tıklayınız Her Şeyi Siliniz Verceğim Kodları Yapıştırınız

Public Class Form1
    Public sayac As Integer = 0
    Public başlık As String = ""
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        başlık = Me.Text
        Timer1.Start()
        Me.Text = " "
        sayac = başlık.Length - 1
    End Sub
    
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If sayac = -1 Then
            sayac = başlık.Length - 1
            Me.Text = ""
        End If
        Me.Text = başlık(sayac) & Me.Text
        sayac = sayac - 1     
    End Sub
End Class

İyi Forumlar !