command butona kalp atışı vermek

bu kodları denemek için form üzerini 1 combo buton ve 2 timer kontrolleri ilave edin

Private Sub Form_Load()
Timer1.Interval = 500
Timer2.Interval = 1000
Command1.Width = 1095
Command1.Height = 615
Command1.Top = 6600
Command1.Left = 8640
End Sub
Form.1
’in load olayına yazılır

Timer.1
’ in hareketlendirme süresi 500 salise olarak ayarlanır

Timer.2
’ in hareketlendirme süresi 1 saniye olarak ayarlanır

Comman1 butonunun form üzerindeki enlem , boylam ve ebatları belirtilir.

Private Sub Timer1_Timer()
Command1.Width = 1105
Command1.Height = 625
Command1.Top = 6610
Command1.Left = 8650
End Sub
Timer.1
’in timer özelliğine yazılmıştır.

Comman1 butonunun form üzerindeki enlem , boylam ve ebatları belirtilen ebatlarda büyültülmekte.

Private Sub Timer2_Timer()
Command1.Width = 1085
Command1.Height = 605
Command1.Left = 8630
Command1.Top = 6570
End Sub
Timer.2
’nin timer özelliğine yazılmıştır.

Comman1 butonunun form üzerindeki enlem , boylam ve ebatları belirtilen ebatlarda küçültülmekte.

	Gönderen	Konu: command butona kalp atışı vermek (Okunma Sayısı 356 defa)
0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Visual Basic