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

*
instagram takipçi programı instagram hesap yönetimi programı twitter takipçi kazanma sitesi twitter takipçi arttırma sitesi twitter takipçi sitesi twitter takipçi kazanma hilesi twitter takipçi kasma hilesi twitter favori hilesi,yükseltme,hilesi,twitter takipçi kasma, hilesi,twitter takipçi hilesi twitter takipçi arttırma hilesi, twitter takipçi kazan, twitterda takipçi arttırmak twitter takipçi instagram takipçi arttırma hilesi, instagram takipçi kazan, instagramda takipçi arttırmak instagram programı instagram web viewer dizi izle yabancı dizi izle