[VB] MDI폼 타이틀바 감추기

BoardStyle이 없는 MDI폼의 타이틀바를 API를 이용해서 않보이게 한다.

 

728x90

 

1. 모듈에서 다음의 API 함수를 선언한다.

Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal pWindowHandle As Long, ByVal lindex As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal pWindowHandle As Long, ByVal lindex As Long, ByVal lNewValue As Long) As Long

 

300x250

 

2. MDIForm을 하나 생성한 후에 MDIForm의 Load 이벤트에 다음과 같이 코딩를 추가한다.

Private Sub MDIForm_Load()
    Dim lResult As Long

    lResult = GetWindowLong(Me.hwnd, -16)

    SetWindowLong Me.hwnd, -16, lResult And Not &HC00000
End Sub