Senin, 15 Maret 2010

Mengakhiri program dengan unik(bagian dua),tutorial visual basic 6.0

form bergerak ke bawah dan keatas

    jika anda merasa bergerak kekiri bukan hal yang menarik maka saya akan memberikan yang lainnya.
kali ini program yang akan kita buat bergerak kebawah jika kita menutupnya. anda cukup memodifikasi sedikit program yang sebelumnya.
silakan lihat listing program dibawah

Private Sub Form_Unload(Cancel As Integer)
Do
Me.Top = Me.Top + 50
Me.Move Me.Left, Me.Top
DoEvents
Loop Until Me.Top = Screen.Height
Unload Me
End
End Sub


    jika anda ingin form bergerak keatas,anda cukup mengubah tanda plus (+) jadi minus (-).seperti listing dibawah.

Private Sub Form_Unload(Cancel As Integer)
Do
Me.Top = Me.Top - 50
Me.Move Me.Left, Me.Top
DoEvents
Loop Until Me.Top = Screen.Height
Unload Me
End
End Sub


untuk lebih jelasnya silakan download videonya.dan juga source codenya
video
source code


sedikit catatan,program yang telah kita jalankan tidak benar-benar berakhir.karena proses loop yang kita buat masih tetap berjalan. Mungkin nanti saya akan mencoba memperbaikinya. Atau anda dapat mengembangkannya dan mensharenya.hubungi saya.

0 comments:

Posting Komentar

Need Your Comments, Please !!!