Yazılım - Program 20 Kasım 2014, 10:46

Visual Basic Sağdan Sola Kayan Yazı

Dim tt As Boolean
Dim sY As Integer

Private Sub Check1_Click()
If Check1.Value = 1 Then
Timer1.Enabled = True
Check1.BackColor = vbGreen
Check1.Caption = “durdur”
Else
Timer1.Enabled = False
Check1.BackColor = vbRed
Check1.Caption = “başlat”
End If

End Sub

Private Sub Form_Load()
HScroll1.Max = 5000

End Sub
Private Sub HScroll1_Change()
sY = HScroll1.Value
Timer1.Interval = sY

End Sub
Private Sub HScroll1_Scroll()
sY = HScroll1.Value
End Sub
Private Sub Timer1_Timer()
If Option1 Then
Label1.Left = Label1.Left – 100
If Label1.Left <= -4200 Then
Label1.Left = Label1.Width + Form1.Width
End If
End If
If Option2 Then
Label1.Left = Label1.Left + 100
If Label1.Left > (Form1.Width) Then
Label1.Left = 0 – Label1.Width
End If
End If

End Sub

VN:F [1.9.22_1171]
Rating: 0.0/10 (0 votes cast)
VN:F [1.9.22_1171]
Rating: 0 (from 0 votes)

Yazar Bilgileri

admin sedat.hackerr@gmail.com
Yazar, henüz hakkında herhangi bir bilgi paylaşımında bulunmamış.

Benzer İçerikler

Yorum Yap

*