Function Reference

_GUICtrlRebar_DragMove

前の_GUICtrlRebar_BeginDrag命令に引き続き、レバーコントロールのドラッグ位置を更新します。

#Include <GuiRebar.au3>
_GUICtrlRebar_DragMove($hWnd[, $dwPos = -1])

 

パラメータ

$hWnd レバーコントロールのハンドル
$dwPos [オプション]新しいマウス座標を格納しているDWORD値。
水平座標をLOWORDに、垂直座標をHIWORDに格納します。
DWORD -1を渡すとレバーコントロールは最後にコントロールのスレッドがGetMessageまたはPeekMessageを呼んだ際のマウス位置を使用します。

 

返し値

なし。

 

注意

なし。

 

関連

_GUICtrlRebar_BeginDrag

 


#include <GuiConstantsEx.au3>
#include <GuiReBar.au3>
#include <GuiToolBar.au3>
#include <WindowsConstants.au3>
#include <Constants.au3>

Opt("MustDeclareVars", 1)

$Debug_RB = False

_Main()

Func _Main()
    Local $hgui, $btnExit, $hReBar, $hToolbar, $hInput, $btnBeginDrag
    Local Enum $idNew = 1000, $idOpen, $idSave, $idHelp

    $hgui = GUICreate("Rebar", 400, 396, -1, -1, BitOR($WS_MINIMIZEBOX, $WS_CAPTION, $WS_POPUP, $WS_SYSMENU, $WS_MAXIMIZEBOX))

    ; レバーコントロールを作成
    $hReBar = _GUICtrlReBar_Create($hgui, BitOR($CCS_TOP, $WS_BORDER, $RBS_VARHEIGHT, $RBS_AUTOSIZE, $RBS_BANDBORDERS))
   
    ; レバーに挿入するツールバーを作成
    $hToolbar = _GUICtrlToolBar_Create($hgui, BitOR($TBSTYLE_FLAT, $CCS_NORESIZE, $CCS_NOPARENTALIGN))
   
    ; 標準システムビットマップを追加
    Switch _GUICtrlToolbar_GetBitmapFlags($hToolbar)
        Case 0
            _GUICtrlToolbar_AddBitmap($hToolbar, 1, -1, $IDB_STD_SMALL_COLOR)
        Case 2
            _GUICtrlToolbar_AddBitmap($hToolbar, 1, -1, $IDB_STD_LARGE_COLOR)
    EndSwitch

    ; ボタンを追加
    _GUICtrlToolbar_AddButton($hToolbar, $idNew, $STD_FILENEW)
    _GUICtrlToolbar_AddButton($hToolbar, $idOpen, $STD_FILEOPEN)
    _GUICtrlToolbar_AddButton($hToolbar, $idSave, $STD_FILESAVE)
    _GUICtrlToolbar_AddButtonSep($hToolbar)
    _GUICtrlToolbar_AddButton($hToolbar, $idHelp, $STD_HELP)

    ; レバーに挿入する入力ボックスを作成
    $hInput = GUICtrlCreateInput("Input control", 0, 0, 120, 20)

    ; コントロールを格納しているバンドを追加
    _GUICtrlReBar_AddBand($hReBar, GUICtrlGetHandle($hInput), 120, 200, "Name:")
   
    ; コントロールを格納しているバンドをレバーの最初に追加
    _GUICtrlReBar_AddToolBarBand($hReBar, $hToolbar, "", 0)
   

    $btnBeginDrag = GUICtrlCreateButton("Begin Drag", 150, 330, 100, 25)
    $btnExit = GUICtrlCreateButton("Exit", 150, 360, 100, 25)
    GUISetState(@SW_SHOW)

    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE, $btnExit
                Exit
            Case $btnBeginDrag
                _GUICtrlRebar_BeginDrag($hReBar, 0)
                _GUICtrlRebar_DragMove($hReBar)
                _GUICtrlRebar_EndDrag($hReBar)
        EndSwitch
    WEnd
EndFunc   ;==>_Main