| |
| |
|
Frank
Abbing |
(w) Frank Abbing
Déclarer newlist&,largeicon&,smallicon&,tbar&
Def ExtractIconEx(5) !"shell32","ExtractIconEx"
Cls
newlist&=Créer("ImageList", 32, 32)
ExtractIconEx("setupapi.dll",1,Addr(LargeIcon&),Addr(SmallIcon&),1)
ImageList("AddIcon", newlist&, largeicon&)
ExtractIconEx("inetcpl.cpl",8,Addr(LargeIcon&),Addr(SmallIcon&),1)
ImageList("AddIcon", newlist&, largeicon&)
ExtractIconEx("main.cpl",11,Addr(LargeIcon&),Addr(SmallIcon&),1)
ImageList("AddIcon", newlist&, largeicon&)
ExtractIconEx("inetcpl.cpl",22,Addr(LargeIcon&),Addr(SmallIcon&),1)
ImageList("AddIcon", newlist&, largeicon&)
ExtractIconEx("inetcpl.cpl",21,Addr(LargeIcon&),Addr(SmallIcon&),1)
ImageList("AddIcon", newlist&, largeicon&)
tbar&=Créer("Toolbar",%hwnd,newlist&,0,0,3000,1)
Toolbar("AddTextButton",tbar&,0,4000," Icon 1 ",»)
Toolbar("AddTextButton",tbar&,1,4001," Icon 2 ",»)
Toolbar("AddTextButton",tbar&,2,4002," Icon 3 ",»)
Toolbar("AddTextButton",tbar&,4,3000," Icon 4 ",»)
Toolbar("AddTextButton",tbar&,3,3001," Icon 5 ",»)
Tandis que 1
WaitInput
Cas %clé=2:Pause
Endwhile
Fin
pouvez son la fois s'il te plaît une Screenshot de dem la fenêtre faire? suis pas sûrement, si alle Icônes überall vorhanden sommes...
merci!!! |
 |
| |
| |
| |
|
|
Rolf
Koch | | Vue zeigt folgende Icônes |
|
| |
| |
| |
|
|
E.T. | Büdde...  |
|
| |
| Grüße aus Sachsen... Mario  WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte... | 21.12.2008 ▲ |
|
| |
|
|
Paul
Glatz | | chez mir qui gleichen comment chez Rolf |
|
| |
| |
| |
|
|
Frank
Abbing | Ok, merci!
Reicht mir déjà afin de voyons, dass es so pas allez. sous den verschiedenen Windowsversionen wurde qui Reihenfolge qui Icônes malheureusement pas eingehalten...  |
|
| |
| |
| |
|
(1.116)
Deutsch
English
Français
Español
Italia
