Agar Form Tidak Dapat di Geser atau di Pindahkan dengan VB6

Agar Form Tidak Dapat di Geser atau di Pindahkan di VB6

Pada artikel kali ini saya akan berbagi trik cara bagaimana membuat posisi Form tetap pada tempatnya di mana User tidak dapat memindahkan atau menggeser Form tersebut. 

Biasanya kalau kita membuka banyak program di PC atau Laptop untuk keperluan multitasking untuk membuka salah satu program tentu dengan cara menggeser atau menata Form tersebut ke posisi yang diingnkan karena posisi form menumpuk.

Namun pada artikel kali ini kebalikannya saya akan membagikan sebuah kode dimana form tersebut tidak dapat dipindahkan mungkin dengan alasan si pembuat program dimana form tidak boleh digeser.

Berikut adalah caranya :

1.Tambahkan Form Standar EXE dan tambahkan 1 Module

2. Lalu ketik kode dibawah ini di jendela Module:

Option Explicit

Public Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long

Public Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

Public Const SC_MOVE = &HF010&

Public Const MF_BYCOMMAND = &H0&

Public Function FrozeForm(frm As Form)

    Dim lhSysMenu As Long

    Dim lRetVal As Long

    lhSysMenu = GetSystemMenu(frm.hwnd, False)

    lRetVal = RemoveMenu(lhSysMenu, SC_MOVE, MF_BYCOMMAND)

End Function

3. Kembali ke Form standar, pada Event Form_Load() ketik kode dibawah ini :

Private Sub Form_Load()

FrozeForm Me

End Sub

Setelah mengetikan kode diatas, sekarang coba jalankan program Anda kemudian coba anda geser Form anda.Bagaiaman???

itulah artikel singkat dari saya  Agar Form Tidak Dapat di Geser atau di Pindahkan diVB6, semoga artikel ini bermanfaat buat kita semua.Amin.

Selamat mencoba semoga sukses....

Related Post: Form