Code : Tout sélectionner
#include <GuiToolbar.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Global $hToolbar
Global $iItem ; Command identifier of the button associated with the notification.
Global Enum $id_New = 1000, $id_Open, $id_Save, $id_Help
Global $id_DummyNew, $id_DummyOpen, $id_DummySave, $id_DummyHelp
Local $hGUI, $aSize
; Create GUI
$hGUI = GUICreate("Toolbar", 600, 400)
$id_DummyNew = GUICtrlCreateDummy()
$id_DummyOpen = GUICtrlCreateDummy()
$id_DummySave = GUICtrlCreateDummy()
$id_DummyHelp = GUICtrlCreateDummy()
$hToolbar = _GUICtrlToolbar_Create($hGUI)
$aSize = _GUICtrlToolbar_GetMaxSize($hToolbar)
GUISetState(@SW_SHOW)
GUIRegisterMsg($WM_NOTIFY, "_WM_NOTIFY")
; Add standard system bitmaps
_GUICtrlToolbar_AddBitmap($hToolbar, 1, -1, $IDB_STD_LARGE_COLOR)
; Add buttons
_GUICtrlToolbar_AddButton($hToolbar, $id_New, $STD_FILENEW)
_GUICtrlToolbar_AddButton($hToolbar, $id_Open, $STD_FILEOPEN)
_GUICtrlToolbar_AddButton($hToolbar, $id_Save, $STD_FILESAVE)
_GUICtrlToolbar_AddButtonSep($hToolbar)
_GUICtrlToolbar_AddButton($hToolbar, $id_Help, $STD_HELP)
; Loop until the user exits.
While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
ExitLoop
Case $id_DummyNew
$file = FileOpenDialog("Nouveau", @ScriptDir, "All (*.*)", 8)
Case $id_DummyOpen
$file = FileOpenDialog("Ouvrir", @ScriptDir, "All (*.*)")
Case $id_DummySave
$file = FileSaveDialog("Enregistrer", @ScriptDir, "All (*.*)")
Case $id_DummyHelp
MsgBox(0, "About", "blabla")
EndSwitch
WEnd
; WM_NOTIFY event handler
Func _WM_NOTIFY($hWndGUI, $MsgID, $wParam, $lParam)
#forceref $hWndGUI, $MsgID, $wParam
Local $tNMHDR, $hwndFrom, $code, $i_idNew, $dwFlags, $i_idOld
Local $tNMTBHOTITEM
$tNMHDR = DllStructCreate($tagNMHDR, $lParam)
$hwndFrom = DllStructGetData($tNMHDR, "hWndFrom")
$code = DllStructGetData($tNMHDR, "Code")
Switch $hwndFrom
Case $hToolbar
Switch $code
Case $NM_CLICK
$tNMTBHOTITEM = DllStructCreate($tagNMTBHOTITEM, $lParam)
$iItem = DllStructGetData($tNMTBHOTITEM, "idOld")
Switch $iItem
Case $id_New
GUICtrlSendToDummy($id_DummyNew)
Case $id_Open
GUICtrlSendToDummy($id_DummyOpen)
Case $id_Save
GUICtrlSendToDummy($id_DummySave)
Case $id_Help
GUICtrlSendToDummy($id_DummyHelp)
EndSwitch
EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>_WM_NOTIFY