Membuat Form Agar Tidak Bisa Di Resize Pada Visual Basic 6.0

Source code untuk membuat Form agar tidak bisa di Resize.
Tombol Resize pada Form di Disable sehingga Form tersebut tidak bisa di Resize.

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

Suka Dengan Artikel Ini ?

Anda baru saja membaca artikel yang berkategori Pendidikan / Visual Basic 6.0 dengan judul "Membuat Form Agar Tidak Bisa Di Resize Pada Visual Basic 6.0". Anda bisa bookmark halaman ini dengan URL http://blog17lamers.blogspot.com/2013/04/membuat-form-agar-tidak-bisa-di-resize.html.