[..] ToolBar

[ValWatt]

Bonjour,

Je voudrais construire une barre 'outils comprenant mespropres icones, la fonction :
_GUICtrlToolbar_AddButton($hToolbar,"", $STD_FILENEW) ...
n'affiche que les icones systèmes.

Quelle est la solution ?
Merci.

[arrkhan]

c'est deja tout fait, y'avais qu'a demandé ^^

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

Global $TBcnt = -1

$h_ToolBar = XSkinToolBarCreate("Float-ToolBar", 200, 200, 324)

$TButton1 = XSkinToolBarButton("", @WindowsDir & "\notepad.exe")

; #1 - Using Icons from a dll ( shell32.dll is default)
XSkinToolBarButton(21)
XSkinToolBarButton(17)
XSkinToolBarButton(44)
XSkinToolBarSeparator()
GUICtrlSetTip(-1, "Drag Me")

; #2 - Using Icons from an exe file

XSkinToolBarButton(22)
XSkinToolBarButton("", @ProgramFilesDir & "\Internet Explorer\iexplore.exe")
XSkinToolBarButton("", @WindowsDir & "\explorer.exe")
XSkinToolBarButton("", @SystemDir & "\calc.exe")
XSkinToolBarSeparator()
GUICtrlSetTip(-1, "Drag Me")

; #3 - Using Icons from an ico file
XSkinToolBarButton("", @ScriptDir & "\Skins\Default-ToolBar\Admin Tools.ico")
XSkinToolBarButton("", @ScriptDir & "\Skins\Default-ToolBar\Control Panel.ico")
XSkinToolBarButton("", @ScriptDir & "\Skins\Default-ToolBar\E-Mail.ico")

; Exit Button
XSkinToolBarSeparator()
GUICtrlSetTip(-1, "Drag Me")
$TButtonLast = XSkinToolBarButton(-132)


GUISetState(@SW_SHOW, $h_ToolBar)

WinSetOnTop($h_ToolBar, "", 1)

While 1
    $msg = GUIGetMsg()

    If $msg = $TButton1 Then Run('notepad.exe')

    If $msg = $TButtonLast Then Exit
WEnd


; ************************ YOUR CODE ENDS HERE *****************************

Func XSkinToolBarCreate($XTitle, $tool_left, $tool_top, $tool_width, $tool_bkcolor = "")
    Local $Xh_ToolBar
    $Xh_ToolBar = GUICreate($XTitle, $tool_width, 24, $tool_left, $tool_top, $WS_POPUP, $WS_CLIPCHILDREN);-1, $WS_EX_STATICEDGE);, $Xh_Gui)
    If $tool_bkcolor <> "" Then GUISetBkColor($tool_bkcolor, $Xh_ToolBar)
    Return $Xh_ToolBar
EndFunc   ;==>XSkinToolBarCreate

Func XSkinToolBarButton($iNumber, $iDLL = "shell32.dll")
    Local $Xhadd, $TBBleft
    $TBcnt = $TBcnt + 1
    $TBBleft = $TBcnt * 24
    $Xhadd = GUICtrlCreateButton("", $TBBleft, 1, 24, 24, $BS_ICON)
    GUICtrlSetImage($Xhadd, $iDLL, $iNumber, 0)
    Return $Xhadd
EndFunc   ;==>XSkinToolBarButton

Func XSkinToolBarSeparator()
    Local $TBBleft
    $TBcnt = $TBcnt + .5
    $TBBleft = $TBcnt * 24
    GUICtrlCreateLabel("", $TBBleft + 17, 2, 2, 22, $SS_ETCHEDVERT, $GUI_WS_EX_PARENTDRAG)
EndFunc   ;==>XSkinToolBarSeparator

[ValWatt]

C'est parfait, Merci.
Cependant j'aimerai une barre d'outil qui soit positionée à uneplace fixe dans le formulaire et donc non flottante.

Re merci.

[arrkhan]

de quel formulaire parles tu ?

un bout de code pourrais peut etre etre pratique pour t aider plus en profondeur

[ValWatt]

Bjr,

Par formulaire il faut entendre le Form, tout simplement :

Code : Tout sélectionner

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 633, 447, 193, 125)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd

Merci

[Tlem]

Vous trouverez un exemple ici.

La barre est en bas mais il vous suffit de modifier les coordonnées pour la mettre en haut.

[Tlem]

Voici encore mieux sur ce lien : http://www.autoitscript.com/forum/index ... t&p=562500

[minoui]

Heuu j'ai une question : qqun sais se servir de _GUICtrlToolbar_Create
et des autres commande en relation avec celle ci (GuiToolbar Management) ?

Si non comment rendre les toolbarres des scripts précédents déplaçable ?

[EDIT]
J'ai essayer ce code qui marche très bien MAIS
1) Comment remplacer les boutons par des icônes
2) Comment ajouter plusieurs toolbares différentes
3) Comment ajouter un champ texte dans un toolbarre
4) Comment faire pour qu'une toolbar puisse être déplacer

► Afficher le texteCode

Code : Tout sélectionner

#include <GuiToolbar.au3>
#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Constants.au3>

Opt('MustDeclareVars', 1)

$Debug_TB = False ; Check ClassName being passed to functions, set to True and use a handle to another control to see it work

_Main()

Func _Main()
    Local $hGUI, $hToolbar, $aStrings[4]
    Local Enum $idNew = 1000, $idOpen, $idSave, $idHelp

    ; Create GUI
    $hGUI = GUICreate("Toolbar", 400, 300)
    $hToolbar = _GUICtrlToolbar_Create ($hGUI)
    GUISetState()

    ; Add standard system bitmaps
    _GUICtrlToolbar_AddBitmap ($hToolbar, 1, -1, $IDB_STD_LARGE_COLOR)

    ; Add strings
    $aStrings[0] = _GUICtrlToolbar_AddString ($hToolbar, "&New")
    $aStrings[1] = _GUICtrlToolbar_AddString ($hToolbar, "&Open")
    $aStrings[2] = _GUICtrlToolbar_AddString ($hToolbar, "&Save")
    $aStrings[3] = _GUICtrlToolbar_AddString ($hToolbar, "&Help")

    ; Add buttons
    _GUICtrlToolbar_AddButton ($hToolbar, $idNew, $STD_FILENEW, $aStrings[0])
    _GUICtrlToolbar_AddButton ($hToolbar, $idOpen, $STD_FILEOPEN, $aStrings[1])
    _GUICtrlToolbar_AddButton ($hToolbar, $idSave, $STD_FILESAVE, $aStrings[2])
    _GUICtrlToolbar_AddButtonSep ($hToolbar)
    _GUICtrlToolbar_AddButton ($hToolbar, $idHelp, $STD_HELP, $aStrings[3])

    ; Loop until user exits
    Do
    Until GUIGetMsg() = $GUI_EVENT_CLOSE

EndFunc   ;==>_Main

Merci
[/EDIT]

[ani]

Sinon, comment rendre les toolbar des scripts (précédents) déplaçable ?

il faut pour cela regarder dans Rebar et non toolbar (barre d'outil).

[minoui]

Bon finalement j'ai regarder pour Rebar mais je comprend pas plus
Vu la taille de l'exemple j'y arriverais pas seul
donc les même question qu'au dessus :
1) Comment remplacer les boutons par des icônes
2) Comment ajouter plusieurs toolbares différentes
3) Comment ajouter un champ texte dans un toolbarre
4) Comment faire pour qu'une toolbar puisse être déplacer

Merci

[ani]

loool je sais que les exemples dans cette partie sont un peu plus poussé, mais tout est comprenhensible , mettre en surbrillance un mot et appuyer sur F1 pour obtenir l'aide de celui-ci


1.les icones (le format ico ?) d'après mes souvenir ne sont utilisé que pour le systray et celle qui se trouve sur l'interface, la plupart du temp se sont des format bmp/jpeg meme png.

2.ajouter plusieur barre d'outil ? faut juste créer plusieur rebar.

3. _GUICtrlReBar_AddBand regarde le 5ieme paramètre

4. déjà répondu, regarde a rebar (teste un exemple genre addband),


je reli le chapitre rebar/toobar

[minoui]

Merciiii Aniiiiiii
1) Mais alors comment on fait si s'est en .jpg .png ou autre ?


J'ai un problème,
lorsque je redimensionne (Agrandissement) ma fenêtre la Rebar ne se redimensionne pas.
Alors j'ai tester qqch , démarrer le prog en grand et la OUIIII sa marche ...
Mais Mais mais lorsque je le réduis la barre est hors de la fenêtre
Le seul moyen que j'ai c'est de déplacer la barre manuellement et la magie la barre ne sort plus de la fenêtre mais lorsque je réagrandi la fenêtre même probléme qu'au début la Rebar reste petite . HELP

► Afficher le texteCode

Code : Tout sélectionner

#include <GuiStatusBar.au3>
#include <GuiToolbar.au3>
#include <Constants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <GuiRebar.au3>

Opt('MustDeclareVars', 0)

$Debug_TB = False ; Check ClassName being passed to functions, set to True and use a handle to another control to see it work
Local $aParts[4] = [75, 150, 175,-1]
    Local $hGUI, $hToolbar, $aStrings[4], $statusbarc, $mousepos, $text, $rebar1
    Global $aUtil_MinMax[4]
    Local Enum $idNew = 1000, $idOpen, $idSave, $idHelp
    Local $aText[4] = ["Left Justified", @TAB & "Centered", @TAB & @TAB & "Right Justified"]
    Local $clientsize, $clientsize2, $clientsize1
Global $hStatus

InitMinMax(200,200,@DesktopWidth,@DesktopHeight)
$Debug_SB = False ; Check ClassName being passed to functions, set to True and use a handle to another control to see it work

    Local $hGUI
    
    ; Create GUI
    $hGUI = GUICreate("StatusBar Resize", 400, 300, -1, -1, $WS_MAXIMIZEBOX + $WS_MINIMIZEBOX + $WS_SIZEBOX)
    
    $lblAdresse = GUICtrlCreateLabel(" Adresse : ",6,38)
    $txtAdresse = GUICtrlCreateInput("",58,35,692)
    
    $rebar1 = _GUICtrlRebar_Create($hGUI, $RBS_AUTOSIZE+$RBS_DBLCLKTOGGLE)
    $tool1 = _GUICtrlReBar_AddBand($rebar1,$lblAdresse,"50","20")
    $tool2 = _GUICtrlReBar_AddBand($rebar1,$txtAdresse,"50","20","Adresse:")

    $hStatus = _GUICtrlStatusBar_Create ($hGUI, $aParts, $aText)
    

    GUIRegisterMsg($WM_SIZE, "WM_SIZE")
    GUISetState()
    ; Loop until user exits

; Resize the status bar when GUI size changes
Func WM_SIZE($hWnd, $iMsg, $iwParam, $ilParam)
    _GUICtrlStatusBar_Resize ($hStatus)
    Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_SIZE

While 1
    $clientsize = WinGetClientSize("StatusBar Resize")
    $clientsize1 = $clientsize[0]
    $clientsize2 = $clientsize[1]
    $mousepos = GUIGetCursorInfo($hGUI)
    _GUICtrlStatusBar_SetText ($hStatus, $mousepos[0], 0)
    _GUICtrlStatusBar_SetText ($hStatus, $mousepos[1], 1)
    _GUICtrlStatusBar_SetText ($hStatus, $mousepos[2], 2)
    _GUICtrlStatusBar_SetText ($hStatus, $mousepos[3], 3)
    If GUIGetMsg() = $GUI_EVENT_CLOSE Then
        Exit
    EndIf
WEnd

Func InitMinMax($x0,$y0,$x1,$y1)
    Local Const $WM_GETMINMAXINFO = 0x24
    $aUtil_MinMax[0]=$x0
    $aUtil_MinMax[1]=$y0
    $aUtil_MinMax[2]=$x1
    $aUtil_MinMax[3]=$y1
    GUIRegisterMsg($WM_GETMINMAXINFO,'MY_WM_GETMINMAXINFO')
EndFunc

Func MY_WM_GETMINMAXINFO($hWnd, $Msg, $wParam, $lParam)
    Local $minmaxinfo = DllStructCreate('int;int;int;int;int;int;int;int;int;int',$lParam)
    DllStructSetData($minmaxinfo,7,$aUtil_MinMax[0]); min X
    DllStructSetData($minmaxinfo,8,$aUtil_MinMax[1]); min Y
    DllStructSetData($minmaxinfo,9,$aUtil_MinMax[2]); max X
    DllStructSetData($minmaxinfo,10,$aUtil_MinMax[3]); max Y
    Return $GUI_RUNDEFMSG
EndFunc