タイトルバー非表示時にタスクバーに表示するには (ID:76374)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 下のような感じではどうですか？ '--------------------------------------------------------------------- Option Explicit Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" ( _ ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" ( _ ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function DrawMenuBar Lib "user32.dll" ( _ ByVal hWnd As Long) As Long Private Const GWL_STYLE As Long = (-16) Private Const WS_CAPTION As Long = &HC00000 Private Sub Form_Load() Dim lStyle lStyle = GetWindowLong(Me.hWnd, GWL_STYLE) SetWindowLong Me.hWnd, GWL_STYLE, lStyle And (Not WS_CAPTION) DrawMenuBar Me.hWnd End Sub