Cara Memnghilangkan Tombol Minimize Maximize dan Close pada Form dengan Kode VB6

Secara Defaul form yang Anda VB6 mempunyai tiga buah tombol yang berada pada posisi kanan atas pojok yang secara berurutan masing-masing adalah tombol Minimize Maximize dan tombol Close.Sebenarnya ketiga tombol tesebut bisa dihilangakan dengan di pengaturan propertiesnya.Namun pada artikel kali ini saya akan berbagi trik cara menghilangkan tombol tersebut dengan menggunakan kode vb6 pada saat di Run Time. Berikut dibawah ini adalah kodenya.

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 GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

  

Const WS_MINIMIZEBOX = &H20000

Const WS_MAXIMIZEBOX = &H10000

Const GWL_STYLE = (-16)

Const WS_SYSMENU = &H80000

 

Private Sub Command1_Click()

End

End Sub

Private Sub Form_Load()

    Dim l As Long

    l = GetWindowLong(Me.hwnd, GWL_STYLE)

    l = (l And Not WS_SYSMENU)

    l = SetWindowLong(Me.hwnd, GWL_STYLE, l)

End Sub

Setelah Anda membuat kodenya coba jalankan project anda jika berhasil maka form Anda tidak mempunyai ketiga tombol  yang telah saya sebutkan diatas untuk menutupnya silahkan tekan tombol Close yang telah Anda buat dengan Commndbutton.

Demikianlah artikel singkat dari saya, semoga artikel ini bermanfaat buat kita semua.amin

Selamat mencoba semoga sukses...

Related Post: Form