Senin, 15 Maret 2010

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

form bergerak ke kiri dan kekanan
    jika anda merasa bosan dengan program yang anda buat.berikut ini saya postingkan beberapa trik unik untuk menciptakan efek khusus ketika program kita akhiri. Pertama kita akan membuat form bergerak kekiri jika kita akhiri. Anda tinggal ketikan listing program berikut.

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


Anda dapat meletakannya di bagian form atau juga dalam command button.pada listing diatas saya meletakannya di bagian form. jika dalam command button maka tambahkan unload me enter end pada akhir listing tersebut.nanti program kita akan seperti ini

Private Sub Command1_Click()
Do
Me.Left = Me.Left + 50
Me.Move Me.Left, Me.Top
DoEvents
Loop Until Me.Left = Screen.Width
Unload Me
End
End Sub

jika anda menginginkan form bergerak kearah sebaliknya,anda cukup mengubah tyanda plus (+) menjadi minus (-). 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 !!!