sevimli

Sevimli Bir Uygulama

Yeni bir proje yaratınız.

Form üzerine bir zamanlayıcı ve bir resim denetleyicisi koyunuz.

Resmin "Picture" özelliğinin yanındaki düğmeyi tıklayınız.

"Load Picture" diyalog pencerei ekrana geldiğinde VisualBasicGraphicsIconsMisc dizininden face03.ico resmini seçiniz.
Aşağıda verilen kodları gerekli yerlere yazınız.

Dim xChange As Integer

Dim yChange As Integer

Private Sub Form_Load

xChange=100

yChange=100

End Sub

Private Sub Timer1_Timer()

Image1.Left = Image1.Left + xChange

Image1.Top = Image1.Top + yChange

If Image1.Left > Me.ScaleWidth Then xChange=xChange * -1

If Image1.Left < 0 Then xChange=xChange * -1

If Image1.Top > Me.ScaleHeight Then yChange=yChange * -1

If Image1.Top < 0 yChange=yChange * -1

End Sub

"Timer Control" özellikler penceresinde "Interval" özelliğini "True" yapınız.
Programı çalıştırdığınızda, resim ekran üzerinde hareket edecek ve formun bir kenarına çarptığında yön değiştirecektir.