Programalama > VISUAL BASIC

VISUAL BASIC / Titreyen Pencere

Msn Stili Titreyen Pencere

Etiketler: titreyen, pencere

Ort. 0

Puan ver:

hazirkod 19 June 19:34 0

0 kişiden 0 puan aldı

8090

projenize 4 adet timer 1 adet command buton ekleyin alttaki kodu yapıştırın tamamdır.

Dim Hareket As Integer

Private Sub Command1_Click()
Hareket = 200
Timer1.Enabled = True

End Sub

Private Sub Form_Load()
Timer1.Interval = 20
Timer2.Interval = 20
Timer3.Interval = 20
Timer4.Interval = 20
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
Hareket = 200
End Sub

Private Sub Timer1_Timer()
'Aşağıya doğru
Form1.Top = Form1.Top + Hareket
Hareket = Hareket - 5
Timer2.Enabled = True
Timer1.Enabled = False
If Hareket <= 0 Then Durdur
End Sub

Private Sub Timer2_Timer()
'Yukarıya doğru
Form1.Top = Form1.Top - Hareket
Hareket = Hareket - 5
Timer3.Enabled = True
Timer2.Enabled = False
End Sub

Private Sub Timer3_Timer()
'Sola doğru
Form1.Left = Form1.Left - Hareket
Hareket = Hareket - 5
Timer4.Enabled = True
Timer3.Enabled = False
End Sub

Private Sub Timer4_Timer()
'Sağa doğru
Form1.Left = Form1.Left + Hareket
Hareket = Hareket - 5
Timer1.Enabled = True
Timer4.Enabled = False
End Sub

Sub Durdur()
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
End Sub