Form Başlığında Kayan Yazı

Formunuza 1 adet Timer ekleyin. Sonra
Imports vb = Microsoft.VisualBasic i ekleyin.
Aşağıdaki kodları formunuza ekleyin.

Imports vb = Microsoft.VisualBasic
Public Class Form1
Dim i As Integer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Interval = 50
Timer1.Start()
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
i = i + 1
Me.Text = vb.Left("Merhaba Dünya...Bahadır ŞAHİN", i)
If i > 100 Then
i = 0
End If
End Sub
End Class

Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN

Share This:

Facebook Twitter Pinterest Linkedin Whatsapp Whatsapp

About Bahadır Şahin

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.