Cara Mendisable Tombol Close Pada Visual Basic

'Deskripsi: Menonaktifkan tombol Close di Form. Anda mungkin pernah
' ingin membuat suatu form yang tidak dapat ditutup dengan
' mengklik tombol Close di pojok kanan atas form, tapi
' harus melalui Commandbutton yang ada di dalam form yang
' mengeksekusi suatu perintah tertentu
'Persiapan: 1. Buat 1 Project baru dengan 1 Form, 1 Module, dan 1 Commandbutton
' 2. Copy-kan coding berikut ke dalam editor Form/Module ybt.
'------------------------------------------------------------------------------

'Quote:'--- Coding ini di Form, karena menggunakan kata kunci Private'
Private Declare Function GetSystemMenu Lib "user32" _
(ByVal hWnd As Long, ByVal bRevert As Long) As Long

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

Private Const MF_BYPOSITION = &H400&

Public Sub RemoveCancelMenuItem(frm As Form)
Dim hSysMenu As Long
'Ambil menu system untuk form ini
hSysMenu = GetSystemMenu(frm.hWnd, 0)
'Hilangkan tombol Close (X)
Call RemoveMenu(hSysMenu, 6, MF_BYPOSITION)
'Hilangkan pemisah yang melalui tombol Close tsb
Call RemoveMenu(hSysMenu, 5, MF_BYPOSITION)
End Sub

'Walaupun tombol "Close" di pojok kanan atas form tidak dapat diklik karena
'sudah disabled, Anda masih bisa menutup form dengan menggunakan tombol
'Alt-F4. Agar form juga tidak dapat ditutup dengan menggunakan Alt-F4,
'Anda harus menahannya di event procedure Form_QueryUnload
'dengan meng-assignment nilai parameter Cancel = -1.
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = -1 'Jadi, Alt-F4 juga tidak berfungsi!
End Sub

'Jadi, form ditutup harus melalui Command1
'Unload me tidak berfungsi di sini, jadi
'kita menggunakan End,
'bebaskan memory sebelumnya
Private Sub Command1_Click()
'Unload Me
Set Form1 = Nothing
End
End Sub

Private Sub Form_Load()
RemoveCancelMenuItem Me 'Hilangkan tombol Close di form ini
End Sub
'--- Akhir coding di Form

Semoga Bermanfaat Bro!!

Penulis : Unknown ~ Sebuah blog yang menyediakan berbagai macam informasi, software, dan tutorial

Artikel Cara Mendisable Tombol Close Pada Visual Basic ini dipublish oleh Unknown pada hari Senin, 18 Juli 2011. Semoga artikel ini dapat bermanfaat.Terimakasih atas kunjungan Anda silahkan tinggalkan komentar.sudah ada 2 komentar: di postingan Cara Mendisable Tombol Close Pada Visual Basic