HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!
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 VisualBasic\Graphics\Icons\Misc 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.
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 VisualBasic\Graphics\Icons\Misc 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.
