Cambiare picture a un Button

[kicco]

Ho un Button nel form al quale ho associato una picture (dall'ide).
Quando premo il Button vorrei cambiare la picture associata.

Esempio: nell'ide ho selezionato picture=icon:/22/warning (è un'icona rossa)

nel codice pensavo di scrivere:
 Button1.picture = ("icon:/22/apply") (apply è un'icona verde)
ma non funziona.

anche se scrivo:
dim p as picture
p=load.picture("icon:/22/apply")
Button1.picture=p

non cambia niente, non funziona!

Sto sbagliando strada?

[vuott]

Sto sbagliando strada?

Sì, poiché nel caso tu voglia impostare da codice l'icona, devi individuare con precisione il percorso dell'icona da mostrare nel Button.

Le icone sono posizionate nelle sub-cartelle presenti nel seguente indirizzo (...almeno per Ubuntu):
 /usr/share/icons


Così ad esempio avremo:

Codice: gambas [Seleziona]

Public Sub Form_Open()

  Button1.Picture = Picture.Load("/usr/share/icons/HighContrast/22x22/devices/printer.png")

End

[kicco]

Grazie Vuott!
Ho cercato anch'io le icone nella directory che hai indicato, ma quelle standard che Gambas mette a disposizione, non le ho trovate. Forse fanno parte di una libreria particolare che non sono riuscito a trovare!

 

[vuott]

ma quelle standard che Gambas mette a disposizione, non le ho trovate. Forse fanno parte di una libreria particolare che non sono riuscito a trovare!

...qualcosa c'è in questa cartella:

/home/..../trunk/app/src/gambas3/img   

[vuott]

Allora, ho trovato: le icone, messe a disposizione da Gambas, come quelle due che tu avevi individuato dall'IDE, sono nelle sub-cartelle di questo percorso:

  /home/......./trunk/comp/src/gb.form.stock/stock

[milio]

Button1.Picture = Picture["icon:/22/apply"]

 

[vuott]

...ed anche usando la Classe "Stock":

Codice: gambas [Seleziona]

Button1.Picture = Stock["22/apply"]

[vuott]

...riassuntino: 

Codice: gambas [Seleziona]

Public Sub Button1_Click()

  Button1.Picture = Picture["icon:/22/apply"]

  Wait 1

  Button1.Picture = Stock["22/audio"]

  Wait 1

  Button1.Picture = Picture.Load(User.Home &/ "trunk/comp/src/gb.form.stock/stock/22/battery.png")

End

[kicco]

Fantastico!!!

grazie a tutti

[vuott]

  Button1.Picture = Picture.Load(User.Home &/ "trunk/comp/src/gb.form.stock/stock/22/battery.png")

Da precisare, però, che la soluzione avente il percorso con trunk è valida se l'installazione e l'aggiornamento di Gambas avviene tramite SVN.