|
先ほど教えて下さった
Private Const GWL_STYLE = (-16)
Private Const WS_CAPTION = &HC00000
Private Declare Function GetWindowLong Lib "user32" _
Alias "GetWindowLongA" _
(ByVal hWnd As Long, _
ByVal nIndex As Long) As Long
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 GetActiveWindow Lib "user32" () As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
Private Sub UserForm_Activate()
Dim Ret As Long
Dim hWnd As Long
Dim WndStyle As Long
hWnd = GetActiveWindow()
WndStyle = GetWindowLong(hWnd, GWL_STYLE)
WndStyle = WndStyle And (Not WS_CAPTION)
Ret = SetWindowLong(hWnd, GWL_STYLE, WndStyle)
Ret = DrawMenuBar(hWnd)
End Sub
Private Sub UserForm_Click()
Me.Hide
End Sub
ってどこに打てばいいんですか?
細かいことまですみません。
|
|