Senin, 14 Desember 2015

Menonaktifkan Tombol Close Pada Form di Visual Basic 6

Menonaktifkan Tombol Close Pada Form di Visual Basic 6

Prodeku - Mungkin anda pernah mencoba menonaktifkan Close Button ( tanda silang di pojok ) melalui Properties Windows. Sedangkan pada jendela properties tidak ada untuk menonaktifkan nya, yang ada hanya untuk mendisable Maximize/Minimize button.

Pada masalah ini, saya akan memberikan tutorial untuk menonaktifkan close button tersebut. Yuk ikuti tutorial berikut ini.

Membuat Form

untuk langkah awal, mari kita buat sebuah form dengan tampilan kurang lebih seperti gambar berikut ini.
Form
Kemudian langkah kedua, ketik kode berikut ini pada bagian general_declaration

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 Sub DisableCloseButton(ByVal Frm As Form)
    Dim h As Long
    h = GetSystemMenu(Frm.hwnd, 0)
    RemoveMenu h, 6, &H400
    RemoveMenu h, 5, &H400
End Sub

Setelah itu, ketik kode berikut ini pada form_load

Private Sub Form_Load()
DisableCloseButton Me
End Sub

Jika sudah, silahkan ketik kode berikut ini pada bagian CommandButton


Private Sub Command1_Click()
    Unload Me
End Sub


Yups, Silahkan anda jalankan program tersebut. Apabila kode tersebut berhasil, maka Close Button yang ada pada form tersebut tidak akan dapat di klik. Untuk Source Code dapat anda download dibawah ini.

Download

Demikian tutorial menonaktifkan tombol close pada form di visual basic 6. terus ikuti tutorial lainnya hanya di prodeku. Selamat mencoba!

Tinggalkan komentar meski hanya sepatah kata
EmoticonEmoticon