HIDE CAPTION MDIFORM

Menghilangkan Caption dan ControlBox dari Form sangat mudah sekali. Namun untuk menghilangkan Caption dan ControlBox dari MDIForm diperlukan teknik khusus dengan menggunakan Sistem API. Caranya cukup mudah :

Langkah 1 : Buat Project Baru

Langkah 2 : Tambahkan MDI Form, kemudian tambahkan picturebox dan caption diatasnya serta tombol sebagai ganti dari tombol Close. Gambarannya adalah seperti berikut

Langkah 3 : Tuliskan syntax berikut ini

Option Explicit

Private Sub cmdClose_Click()
End
End Sub

Private Sub MDIForm_Load()
HideCaption hWnd, False
End Sub

Langkah 4 : Tambahkan Module dengan syntax berikut ini

Option Explicit

Private Enum WinType
GWL_STYLE = (-16)
SWP_FRAMECHANGED = &H20
SWP_NOMOVE = &H2
SWP_NOZORDER = &H4
SWP_NOSIZE = &H1
End Enum

'-----Function API - Window
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long, ByVal wNewWord As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowPos Lib "user32" _
(ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, _
ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Public Function HideCaption(hWnd As Long, Optional ShowBorder As Boolean = True)
Dim lStyle As Long
lStyle = GetWindowLong(hWnd, GWL_STYLE)
If ShowBorder Then
lStyle = lStyle Or &HC00000
Else
lStyle = lStyle And Not &HC00000
End If
Call SetWindowLong(hWnd, GWL_STYLE, lStyle)
Call pRedraw(hWnd)
lStyle = GetWindowLong(hWnd, GWL_STYLE)
End Function

Private Sub pRedraw(hWnd As Long)
Const swpFlags As Long = _
SWP_FRAMECHANGED Or SWP_NOMOVE Or _
SWP_NOZORDER Or SWP_NOSIZE
Call SetWindowPos(hWnd, 0, 0, 0, 0, 0, swpFlags)
End Sub

Maka Hasilnya adalah