Diskusi tentang Excel

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.

Related

UserForm 5832818976882608595

Post a Comment

  1. salam

    pak, gimana caranya menyimpan foto melalui form vbe, agar tersimpan ke chel tertentu. terims

    ReplyDelete

Tulisan ini Bermanfaat..? Silakan berkomentar sesuai topik artikelnya, tidak dianjurkan menggunakan kata-kata yang dapat menimbulkan hal negatif. Mohon maaf apabila tidak memiliki etika akan Admin HAPUS tanpa pemberitahuan kembali. Terimakasih... salam Exceler

emo-but-icon

item