1 Command button 4 timerle HeM acılışta hem butona basınca titreştirmek
Dim Hareket As Integer
Private Sub Command1_click()
Hareket = 222
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
Dim s1 As Integer
For s1 = 21 To 30
Hareket = 222
Timer1.Enabled = True
Next
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
Form Titreştirme [DEİŞİK]
Programlama0 Mesaj
●21 Görüntüleme
- ReadBull.net
- Programlama ve Yazılım
- Programlama
- Form Titreştirme [DEİŞİK]