Apakah judulnya membingungkan.. hehe
Ok langsung saja ke persoalannya. Jika anda ingin membuat ukuran form tidak bisa di ubah serta menghilangkan tombol minimize,maximize dan close di sudut kanan atas pada saat di run, caranya cukup mudah. Tutorial kali akan saya akan memberitahu bagaimana cara tersebut.
kita cukup membutuhkan :
1 Form
1 module
Buatlah Tampilan form seperti ini
Silahkan tambahkan module,kemudian ketikkan perintah dibawah ini :
Public Const GWL_STYLE = (-16)
Public Const WS_MAXIMIZEBOX = &H10000
Public Const WS_THICKFRAME = &H40000
Public Const WS_CLOSEBOX = &H80000
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long
Setelah itu silahkan klik 2x pada form 1,tambahkan perintah seperti ini
Private Sub Form_Load()
Dim hMenu As Long
Dim lStyle As Long
lStyle = GetWindowLong(Me.hwnd, GWL_STYLE)
lStyle = lStyle And Not WS_MAXIMIZEBOX
lStyle = lStyle And Not WS_CLOSEBOX
Call SetWindowLong(Me.hwnd, GWL_STYLE, lStyle)
lStyle = GetWindowLong(Me.hwnd, GWL_STYLE)
lStyle = lStyle And Not WS_THICKFRAME
Call SetWindowLong(Me.hwnd, GWL_STYLE, lStyle)
End Sub
Pada saat dijalankan tombol close akan hilang sehingga kita tambahkan perintah di tombol close yg kita buat.. silahkan klik 2x tombol tersebut.
Private Sub Command6_Click()
End
End Sub
Cukup mudah bukan, jika berhasil akan tampak seperti gambar dibawah ini
jika ingin source codenya silahkan klik
disini
About Me :
Saya Martin Purnansyah
Nama
Marcode adalah singkatan dari martin code, niat awal saya membuat website ini bertujuan untuk berbagi pengalaman yang saya dapat selama belajar pemrograman. Semoga situs
marcode.web.id kedepannya rutin membuat tutorial - tutorial baru. Salam Coding.. :)
