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