Drag Form Tanpa Perintah API

Trik berikut berfungsi untuk melakukan drag form tanpa harus pada Title Bar, jadi anda dapat melakukan drag disembarang area form.

•  Bukalah program Visual Basic 6.0 dan mulailah dengan Form baru.
• Aktifkan jendela kode, kemudian ketiklah perintah pendeklarasian di bawah pada bagian General Declarations.

Option Explicit

Dim move_x As Integer, move_y As Integer

perintah yg akan mewajibkan anda mendeklarasikan semua variabel yang digunakan.

• Kembalilah ke tampilan desain form dan klik ganda di dalam area form, ketiklah perintah di bawah ini pada prosedur Form_MouseDown dan Form_MouseMove

Private Sub Form_MouseDown (Button As Integer, _

Shift As Integer, X As Single, Y As Single)

       Move_x = X        

       Move_y = Y

End Sub

Perintah ini akan di jalankan pada saat Anda menekan mouse di dalam are Form, yaitu mengisi variabel move_x dan move_y dengan nilai sumbu X dan Y (top dan left form) pada posisi mouse aktif.

Private Sub Form_MouseDown ( 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

Membuat perintah kondisi apabila anda menekan tombol kiri pada mouse, maka posisi Left dan Top form akan di pindah sesuai dengan posisi kursor mouse yang anda geser.

• untuk mencoba hasilnya tekan tombol F5 pada keyboard, kemudian klik dan drag di dalam area form untuk mengubah posisi form.

Sebenarnya Logikanya sederhana ya.... ayo kita coba....

Credit by Aris Pujud Kurniawan

Posted in: Visual Basic,Visual Basic 6.0