■ MDI폼 타이틀바 감추기 (추후 정리)

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

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

 

모듈에 다음의 API 함수를 선언합니다.

 

Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nindex As Long) As Long

Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nindex As Long, ByVal dwnewlong As Long) As Long

 

MDIForm 을 하나 생성한 후에 MDIForm 의 Load 이벤트에 다음과 같이 코딩하시기 바랍니다.

 

Private Sub MDIForm_Load()

    Dim Rtn As Long

    'MDI 폼의 정보를 읽어와서     

    Rtn = GetWindowLong(Me.hwnd, -16)  

    ' 타이틀바를 감춰줍니다.

    SetWindowLong Me.hwnd, -16, Rtn And Not &HC00000

End Sub

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

Posted by 사용자 icodebroker
TAG

댓글을 달아 주세요