Menonaktifkan Tombol Close di Form di Visual Basic

[petimati]

'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

[TeRRen.Jr]

eHm..
nice tRick..
tApi kaLo dAri Form bukannya diganTi aJa Langsung yAh..
border StyLenya dibikin None..
hehee...

kAn Jadinya PAke cOmmand tutton tUh nutuPnya..

[cancer]

Code:

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = -1

End Sub

ini juga bisa om tanpa harus pendeklarasian

[BLACK_CODE]

petimati

Quote:'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.
'------------------------------------------------------------------------------
'--- 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

TeRRen.Jr

Quote:tApi kaLo dAri Form bukannya diganTi aJa Langsung yAh..
border StyLenya dibikin None..
hehee..

cancer

Quote:Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = -1

End Sub

Nice Brother ...

Thanks Atas Ilmunya Brother ...

Salam Kenal My Brother

[nanda]

Qlo dvb net

e.cancel = true

tpi ganti dulu form nya dri load jdi closing

[idan]

thank's gan, membantu sekali nih....