TIP DAN TRIK CARA MEMBUAT FORM BISA DIGESER PADA DAERAH FORM

TIP DAN TRIK CARA MEMBUAT FORM BISA DIGESER PADA DAERAH FORM

Assalamualaikum wr, wb..
Bagaimanakah cara merubah form supaya dapat digeser didaerah form itu sendiri? 
Sekarang kita akan membahas trik lainnya yaitu membuat program yang bisa menggeser posisi form bukan dari biasanya karna biasanya untuk menggeser form harus dari title bar formnya, tapi kali ini saya akan menggeser form dari daerah form itu sendiri bukan dari title bar. OK simak langkah langkahnya..

1. Seperti biasa buka program Visual Basic anda dan mulai dengan form baru
2. Double klik pada form dan masukan deklarasi variable dibawah ini pada daerah paling atas (Declaration).
3. Option Explicit
   Dim move_x As Integer, move_y As Integer
4. Masukan listing program dibawah ini pada procedure form_MouseDown(...)
5. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
     move_x = x
     move_y = Y
   End Sub
6. Masukan listing program dibawah ini pada procedure form_MouseMove(...)
7. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
     If Button = vbLeftButton Then
       Me.Left = Me.Left - (move_x - x)
       Me.Top = Me.Top - (move_y - Y)
     End If
   End Sub
8. Jalankan dengan menekan tombol F5 pada keyboard anda, Setelah form dijalankan lalu coba dengan cara menggeser form dengan klik didaerah formnya lalu drag kemanapun anda inginkan, Selamat mencoba..
10. Wassalam.. n smoga bermanfaat..
    
    Simak Tip dan Trik Pemrograman lainnya di blog bercode.blogspot.com yang selalu membagikan trik - Trik unik Visual Basic.