J'arrive a m'en sortir avec GUIGetMsg() qui me permet d'utiliser les $button de Koda
Code : Tout sélectionner
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3 ;Global Const $GUI_EVENT_CLOSE = -3
Quitter()
Case $Button1
Lancer_fonction1()
Case $Button2
Lancer_fonction2()
Case $Button3
$projet = Inputbox("Choix projet", "Entrez le nom du projet", "toto")
Switch $projet
Case "toto"
$filtre = "112564"
Case "titi"
$filtre = "113144"
EndSwitch
GUICtrlSetData ($Button3, "Projet : " & $projet)
EndSwitch
WEnd
J'ai rajouté au prélable (péniblement) une toolbar,
Code : Tout sélectionner
Local Enum $ico_pgup = 1000, $ico_orange, $ico_ctrlA, $ico_escargot, $ico_detail
$Form1 = GUICreate("POC", 140, 488, 358, 295)
$ToolBar1 = _GUICtrlToolbar_Create($Form1)
_GUICtrlToolbar_LoadBitmap($ToolBar1, @ScriptDir & "\icones\WindowsMail.bmp")
_GUICtrlToolbar_LoadBitmap($ToolBar1, @ScriptDir & "\icones\WindowsMovieMaker.bmp")
_GUICtrlToolbar_LoadBitmap($ToolBar1, @ScriptDir & "\icones\WindowsOutlookExpress.bmp")
_GUICtrlToolbar_LoadBitmap($ToolBar1, @ScriptDir & "\icones\WindowsPhotoGallery.bmp")
;~ _GUICtrlToolbar_LoadBitmap($ToolBar1, @ScriptDir & "\icones\escargot.ico")
_GUICtrlToolbar_AddButton($ToolBar1, $ico_pgup, 0)
_GUICtrlToolbar_AddButton($ToolBar1, $ico_orange, 1)
_GUICtrlToolbar_AddButton($ToolBar1, $ico_ctrlA, 2)
_GUICtrlToolbar_AddButton($ToolBar1, $ico_escargot, 3) ; <----- ici
_GUICtrlToolbar_AddButtonSep($ToolBar1)
_GUICtrlToolbar_AddButton($ToolBar1, $ico_detail, 4)
Si je rajoute cela au Switch $nMsg ci dessus : il ne se passe rien
Code : Tout sélectionner
Case $ToolBar1 ;$ico_escargot
$i=InputBox("?","Rentrez un coefficent lenteur","1")
$coef_lenteur_machine=number($i)
Comme par exemple, l'aide de _GUICtrlToolbar_Create :
Code : Tout sélectionner
; WM_NOTIFY event handler
Func _WM_NOTIFY($hWndGUI, $iMsgID, $wParam, $lParam)
#forceref $hWndGUI, $iMsgID, $wParam
Local $tNMHDR, $hWndFrom, $iCode, $iNew, $iFlags, $iOld
Local $tNMTBHOTITEM
$tNMHDR = DllStructCreate($tagNMHDR, $lParam)
$hWndFrom = DllStructGetData($tNMHDR, "hWndFrom")
$iCode = DllStructGetData($tNMHDR, "Code")
Switch $hWndFrom
Case $g_hToolbar
Switch $iCode
Case $NM_LDOWN
;----------------------------------------------------------------------------------------------
MemoWrite("$NM_LDOWN: Clicked Item: " & $g_iItem & " at index: " & _GUICtrlToolbar_CommandToIndex($g_hToolbar, $g_iItem))
;----------------------------------------------------------------------------------------------
Case $TBN_HOTITEMCHANGE
$tNMTBHOTITEM = DllStructCreate($tagNMTBHOTITEM, $lParam)
$iOld = DllStructGetData($tNMTBHOTITEM, "idOld")
$iNew = DllStructGetData($tNMTBHOTITEM, "idNew")
$g_iItem = $iNew
$iFlags = DllStructGetData($tNMTBHOTITEM, "dwFlags")
If BitAND($iFlags, $HICF_LEAVING) = $HICF_LEAVING Then
MemoWrite("$HICF_LEAVING: " & $iOld)
Else
Switch $iNew
Case $e_idNew
;----------------------------------------------------------------------------------------------
MemoWrite("$TBN_HOTITEMCHANGE: $e_idNew")
;----------------------------------------------------------------------------------------------
Case $e_idOpen
;----------------------------------------------------------------------------------------------
MemoWrite("$TBN_HOTITEMCHANGE: $e_idOpen")
;----------------------------------------------------------------------------------------------
Case $e_idSave
;----------------------------------------------------------------------------------------------
MemoWrite("$TBN_HOTITEMCHANGE: $e_idSave")
;----------------------------------------------------------------------------------------------
Case $e_idHelp
;----------------------------------------------------------------------------------------------
MemoWrite("$TBN_HOTITEMCHANGE: $idHelp")
;----------------------------------------------------------------------------------------------
EndSwitch
EndIf
EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>_WM_NOTIFY
Comment combiner les switch ?
Il faut juste une fonction a coté ? mais comment est elle appelée ?