√ 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 dibentuk tidak dapat di close namun harus melalui tombol yang telah disediakan. Tampilan Userform full tanpa tepi ini dapat Anda gunakan dengan tujuan tertentu dari para programmer VBA.

Perhatikan gambar berikut ialah teladan userform tanpa tepi alias full

Gambar diatas terperinci terlihat tidak ada tombol close, minimize atau maximize di ujung kanan atas, hal ini dikarenakan aku tambahkan module untuk menghilangkan nya tersebut. Lalu bagaimana cara semoga userform terlihat menyerupai 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 dibentuk langkah berikutnya kita akan menciptakan UserForm

Langkah Kedua

Langkah berikutnya kita akan menciptakan userform, aku yakin untuk menciptakan userform secara default sudah aku anggap dapat alasannya ialah pernah aku bahas bagaimana cara menciptakan userform. Bagi Anda yang belum mengethui cara menciptakan 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 sehabis menciptakan userform dan menambahkan Commandbutton kini kita panggil module yang telah dibentuk 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 menyerupai tampilan pada gambar pertama diatas.

Selamat mencoba.
Sumber http://www.excel-id.com/