첨부 실행 코드는 나눔고딕코딩 폰트를 사용합니다.
유용한 소스 코드가 있으면 icodebroker@naver.com으로 보내주시면 감사합니다.
블로그 자료는 자유롭게 사용하세요.

■ MDI폼 타이틀바 감추기

------------------------------------------------------------------------------------------------------------------------

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

 

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

 

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

------------------------------------------------------------------------------------------------------------------------

Posted by 사용자 icodebroker
TAG ,

댓글을 달아 주세요