| |
| |
|
Frank
Abbing |
(w) Franco Abbing
Declarar newlist&,largeicon&,smallicon&,tbar&
Def ExtractIconEx(5) !"shell32","ExtractIconEx"
Cls
newlist&=Crear("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&=Crear("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 ","")
Mientras que 1
WaitInput
Case %key=2:Romper
Endwhile
End
Könnt ihr veces Por favor, una Screenshot de el Ventana hacer? Bin no sicher, si todos Icons überall disponible son...
Gracias!!! |
 |
| |
| |
| |
|
|
Rolf
Koch | | Vista zeigt folgende Icons |
|
| |
| |
| |
|
|
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 | | En me el gleichen como en Rolf |
|
| |
| |
| |
|
|
Frank
Abbing | Ok, danke!
Reicht me ya en a sehen, dass lo así no va. Bajo el verschiedenen Windowsversionen wurde el Reihenfolge el Icons por desgracia, no eingehalten...  |
|
| |
| |
| |
|
(848)
Deutsch
English
Français
Español
Italia
