SetWindowPosを使ってコマンドボタンをリサイズ可にしました。
サイズ変更してマウスを離した時に、微調整をしたいのですが、マウスを離した時にイベントが発生しません。どうすればよいか、どなたか教えて頂けないでしょうか?
リサイズ可のソースは以下のものです。
With Command1
' ウィンドウスタイルを取得
lngWindowOldStyle = _
GetWindowLong(.hwnd, _
GWL_STYLE)
' 新しいウィンドウスタイルを指定
lngWindowNewStyle = _
lngWindowOldStyle Or _
WS_THICKFRAME
' 新しいウィンドウスタイルを設定
lngWin32apiResultCode = _
SetWindowLong(.hwnd, _
GWL_STYLE, _
lngWindowNewStyle)
' 新しいウィンドウスタイルを適用
lngWin32apiResultCode = _
SetWindowPos(.hwnd, _
0, _
0, 0, _
0, 0, _
SWP_NOSIZE Or _
SWP_NOMOVE Or _
SWP_NOZORDER Or _
SWP_DRAWFRAME)
End With
解決しました。
WM_EXITSIZEMOVEを通知したら、サイズ変更することにしました。
お騒がせしました。
ツイート | ![]() |