Español
Fuente/ Codesnippets

Großen Icons Toolbar Windows

 

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!!!

 
21.12.2008  
 




Rolf
Koch
Vista zeigt folgende Icons

8 kB
Hochgeladen:21.12.2008
Ladeanzahl353
Descargar
 
21.12.2008  
 




E.T.
Büdde...

20 kB
Hochgeladen:21.12.2008
Ladeanzahl290
Descargar
 
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
 
21.12.2008  
 




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...
 
21.12.2008  
 



Zum Quelltext


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

7.875 Views

Untitledvor 0 min.
H.Brill01.10.2023
Normann Strübli01.02.2023
Peter Max Müller05.11.2017
Michael Borowiak20.02.2017
Más...

Themeninformationen



Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Yo möchte no Cookie