Cara Mendrag Form Yang Tidak Memiliki ControlBox di VB6

Pada artikel kali ini saya akan berbagi trik bagaimana cara mendrag form yang tidak mempunyai controlbox.

Secara default form pada visual basic memiliki ControlBox dimana ControlBox ini terdiri dari  tiga tombol yaitu Minimize,Maximize dan Close, ketiga tombol tersebut bisa Anda sembunyikan yaitu dengan cara pada bagian Propertiesnya kita atur menjadi Controlbox=False.Contoh dibawah ini adalah gambar yang mempunyai controlBox dan tidak mempunyai ControlBox :

Namun apabila Anda menyembunyikan ControlBox, Anda tidak akan bisa memindahkan form dengan cara mendrag.Tetapi karena kebutuhan anda membuat program yang mengharuskan menghilangkan ControlBox namun disisi lain Anda juga harus bisa memindahkan Form tersebut maka Anda harus menambahkan kode agar Form yang tidak mempunyi ControlBox tetap Anda bisa mendragnya.

Berikut dibawah ini adalah kode yang Anda harus gunakan agar tetap bisa mendrag Form yang tidak memiliki ControlBox :

Ketik Pada Module kode dibawah ini :

Declare Function sendmessage Lib "User32" Alias "SendMessageA" _

(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam _

As Long, lParam As Any) As Long

Declare Sub ReleaseCapture Lib "User32" ()

Public Const MW_NCLBUTTONDOWN = &HA1

Public Const HTCAPTION = 2

Ketik kode dibawah ini dibagian Form1 

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim returnValue As Long

    If Button = 1 Then

        Call ReleaseCapture

        returnValue = sendmessage(Me.hwnd, MW_NCLBUTTONDOWN, HTCAPTION, 0&)

    End If

End Sub

Dengan kode diatas sekarang Anda bisa memindahkan Form dengan cara Drag walaupun Form Anda tidak mempunyai ControlBox dengan cara yang sama yaitu pada bagian dalam Form Anda tahan dan geser form yang diinginkan.

Demikian trik dari saya yaitu tentang cara meindahkan Form yang tidak memiliki ControlBox.

Semoga artikel ini bermanfaat buat kita semua.Amin

Selamat mencoba semoga sukses

Related Post: Form