Problème avec l'objet toolbar.

Nombre de messages : 1596 Date d'inscription : 19/01/2014

Bonjour.

@Klaus.

Je rencontre un petit problème avec l'objet Toolbar.
En effet, l'objet ne remplit pas entièrement la largeur de la fenêtre, ce qui n'est pas très esthétique.

Peut-être est-ce dû au fait que la form contient une image de fond !

Merci de ton aide.

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

C'est une question réservée à Klaus ???

C'est sûrement parce que tu changes la taille de ta form après avoir créé la TooBar. Il y a le code 2 de ModifyToolbar pour ajuster la largeur de la ToolBar à la largeur de la fenêtre. Lance le code suivant, agrandis la fenêtre, puis clique le bouton:

Code:: dim res%, nb%
label click_toolbar, ajuster

dll_on "KGF.dll"

edit 777 : hide 777 : on_change 777,click_toolbar
res% = dll_call4("CreateToolbar",handle(0),handle(777),0,0)
res% = dll_call4("ModifyToolbar",1,255,255,0)

button 1 : top 1,100 : left 1,100 : caption 1,"Ajuster" : on_click 1,ajuster

end

click_toolbar:
nb% = val(text$(777))
message "Clic sur le bouton "+str$(nb%)
return

ajuster:
res% = dll_call4("ModifyToolbar",2,0,0,0)
return

Nombre de messages : 1596 Date d'inscription : 19/01/2014

Bonjour.

Voici le code que j'utilise:

Code:: res%=dll_call4("CreateToolbar",handle(0),handle(323),0,0)
res%=dll_call4("ModifyToolbar",1,255,255,255) : ' fond blanc
res%=dll_call4("ModifyToolbar",2,0,0,0) : ' ajuster à la largeur de la fenêtre
res%=dll_call4("ModifyToolbar",7,32,0,0) : ' icônes 32x32

Malgré tout, un espace subsiste entre la fin de la toolbar et le bord droit de la fenêtre.

Merci de ton aide.

J'ai mis tes lignes dans mon petit code, et je ne constate rien d'anormal. Essaie:

Code:: dim res%, nb%
label click_toolbar, ajuster

dll_on "KGF.dll"

edit 777 : hide 777 : on_change 777,click_toolbar
edit 323 : hide 323 : on_change 323,click_toolbar
' res% = dll_call4("CreateToolbar",handle(0),handle(777),0,0)
' res% = dll_call4("ModifyToolbar",1,255,255,0)
res%=dll_call4("CreateToolbar",handle(0),handle(323),0,0)
res%=dll_call4("ModifyToolbar",1,255,255,255) : ' fond blanc
res%=dll_call4("ModifyToolbar",2,0,0,0) : ' ajuster à la largeur de la fenêtre
res%=dll_call4("ModifyToolbar",7,32,0,0) : ' icônes 32x32

button 1 : top 1,100 : left 1,100 : caption 1,"Ajuster" : on_click 1,ajuster

end

click_toolbar:
nb% = val(text$(777))
message "Clic sur le bouton "+str$(nb%)
return

ajuster:
res% = dll_call4("ModifyToolbar",2,0,0,0)
return

Nombre de messages : 1596 Date d'inscription : 19/01/2014

Bonjour.

Merci Klaus.

J'ai enfin résolu le problème simplement en ajoutant la ligne suivante:

maximize 0

» Problème avec l'objet Toolbar
» Problème avec GetWindowsVersion.
» Problème avec select case Probleme réglé merci
» Problème avec SearchStringList.
» Problème avec KGF.DLL.