Disabled Close Windows Form VB6

Berikut ini adalah cara membuat tombol close di form menjadi tidak aktif (disabled) di visual basic 6, untuk mempraktekannya siapkan :

1. Buat 1 Project baru dengan 1 Form, 1 Module, dan 1 Commandbutton
2. Copy-kan coding berikut ke dalam editor Form/Module yang bertalian

          '--- 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

Tags:

contoh program vb6, contoh fungsi di vb6, cara penggunaan fungsi vb, tutorial vb6, download tutorial vb6, vb6 tutorial download, dasar dasar vb6, belajar vb6, cara mudah belajar vb6, vb6 artikel download, vb6 blog, contoh program vb6, artikel vb6, semua tentang vb6, vb6 api, cara menggunakan module, cara menggunakan class module