Membuat Form Tidak Bisa Di Resize Pada Visual Basic
Source code berikut untuk membuat form tidak bisa di resize pada Visual Basic.
Buat 1 project dengan :
1 Form
Copy source code berikut pada Form :
DOWNLOAD Full Source Project
Buat 1 project dengan :
1 Form
Copy source code berikut pada Form :
Private Const GWL_STYLE = (-16)
Private Const WS_THICKFRAME = &H40000
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
Private Sub Form_Load()
Dim lStyle As Long
lStyle = GetWindowLong(Me.hwnd, GWL_STYLE)
lStyle = lStyle And Not WS_THICKFRAME
Call SetWindowLong(Me.hwnd, GWL_STYLE, lStyle)
End Sub
DOWNLOAD Full Source Project

