ドラッグで移動・サイズ変更可能なコントロールを作成するには？ (ID:77313)

名前

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

本文

私も移動・サイズ変更できるコマンドボタンを作りたく、ここにきましたが、
サイズ変更できるようになっても、ドラッグで移動ができません。

どうしたらいいのでしょうか？

以下がリサイズのソースです。
Private Sub Command1_Click()

' ビューを作成する
    gb_ViewNum = gb_ViewNum + 1
    gb_Name = "ビュー" & gb_ViewNum

Load Ope.cmdView(gb_ViewNum)
    Ope.cmdView(gb_ViewNum).ZOrder
    Ope.cmdView(gb_ViewNum).Visible = True
    Ope.cmdView(gb_ViewNum).Left = 6000
    Ope.cmdView(gb_ViewNum).Caption = "ビュー" & gb_ViewNum
    Show

Dim lngWindowOldStyle     As Long
    Dim lngWindowNewStyle     As Long
    Dim lngWin32apiResultCode As Long
    
  ' ビューをリサイズ可にする
    With Ope.cmdView(gb_ViewNum)
        ' ウィンドウスタイルを取得
        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
    
    Unload Me
End Sub
SetWindowPosをどう使うかがよく分からないのです。

←解決時は質問者本人がここをチェックしてください。

戻る