UserForm Full Tanpa Close, Maximize dan Minimize

Membuat Userform tanpa tepi maksudnya yaitu tanpa tombol close, minimize dan maximize merupakan salah satu alternatif supaya user atau pengguna aplikasi yang telah dibuat tidak bisa di close namun harus melalui tombol yang telah disediakan. Tampilan Userform full tanpa tepi ini bisa Anda gunakan dengan tujuan tertentu dari para programmer VBA.

Perhatikan gambar berikut adalah contoh userform tanpa tepi alias full

Gambar diatas jelas terlihat tidak ada tombol close, minimize atau maximize di ujung kanan atas, hal ini dikarenakan saya tambahkan module untuk menghilangkan nya tersebut. Lalu bagaimana cara agar userform terlihat seperti diatas.

Langkah Pertama

Langkah pertama silakan Anda buat satu buah Module dan tuliskan coding berikut ini

Option Explicit

Private Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long

Private Declare Function GetWindowLong Lib "user32" _
Alias "GetWindowLongA" ( _
ByVal hWnd As Long, _
ByVal nIndex As Long) As Long

Private Declare Function SetWindowLong Lib "user32" _
Alias "SetWindowLongA" (ByVal hWnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long

Private Declare Function DrawMenuBar Lib "user32" ( _
ByVal hWnd As Long) As Long
Sub ExcelId(oForm As Object)
    Dim Hilangkan As Long
    Dim hMenu As Long
    Dim Wndw As Long
    
    Wndw = FindWindow("ThunderDFrame", oForm.Caption)
    Hilangkan = GetWindowLong(Wndw, -16)
    Hilangkan = Hilangkan And Not &HC00000
    SetWindowLong Wndw, -16, Hilangkan
    DrawMenuBar Wndw
End Sub

Jika Module telah dibuat langkah berikutnya kita akan membuat UserForm

Langkah Kedua

Langkah berikutnya kita akan membuat userform, saya yakin untuk membuat userform secara default sudah saya anggap bisa karena pernah saya bahas bagaimana cara membuat userform. Bagi Anda yang belum mengethui cara membuat userform silakan simak

Pengenalan Dasar Membuat UserForm

Jika sudah tambahkan pula satu buah Commandbutton dan ganti caption pada properties menjadi "Keluar"

Langkah ketiga
Langkah berikutnya setelah membuat userform dan menambahkan Commandbutton sekarang kita panggil module yang telah dibuat tadi dengan cara View code kemudian silakan masukan coding berikut pada procedure Initialize object UserForm

Private Sub UserForm_Initialize()
Call ExcelId(UserForm1)
End Sub

Karena Userform tersebut tidak ada tombol close pada sisi kanan atas maka kita buat coding pada tombol "Keluar" dengan memasukan coding Unlod Me

Private Sub CommandButton1_Click()
Unload Me
End Sub

Selesai.
Silakan uji coba dengan cara menjalankan Sub atau menekan tombol F5 maka secara otomatis akan terlihat seperti tampilan pada gambar pertama diatas.

Selamat mencoba.

Tweet