VisuaL basic kayan yazı Lazım
- Konbuyu başlatan codeslm
- Başlangıç tarihi
formumuza önce bir adet label sonra timer ekliyoruz ve aşşağıdaki kodu kopyala yapıştır yaparak çalıştırıyoruz.
işte kodları
Private Sub Form_Load()
Timer1.Interval = 100
Label1.Caption = "...........hackerturk.............."
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Mid(Label1.Caption, 2) + Left(Label1.Caption, 1)
End Sub
alıntıdır.
işte kodları
Private Sub Form_Load()
Timer1.Interval = 100
Label1.Caption = "...........hackerturk.............."
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Mid(Label1.Caption, 2) + Left(Label1.Caption, 1)
End Sub
alıntıdır.
- Durum
