Differenze tra le versioni di "Modi di caricare un'immagine di tipo ''Picture''"

Da Gambas-it.org - Wikipedia.
Riga 33: Riga 33:
 
  '''Public''' Sub Button1_Click()
 
  '''Public''' Sub Button1_Click()
 
   
 
   
   Button1.Picture = Picture<FONT Color=#B22222>.Load().Load(User.Home &/ "trunk/comp/src/gb.form.stock/stock/22/apply.png")</font>
+
   Button1.Picture = Picture<FONT Color=#B22222>.Load(User.Home &/ "trunk/comp/src/gb.form.stock/stock/22/apply.png")</font>
 
   
 
   
 
  '''End'''
 
  '''End'''

Versione delle 12:50, 5 ott 2014

In questa pagina si cercherà di rispondere alla domanda: " In quanti e quali modi è possibile caricare un'immagine di tipo Picture ? ".


Vedremo le soluzioni applicandole all'oggetto PictureBox:


in modo diretto

PictureBox1.Picture = Picture["/percorso/del/file/immagine"]


PictureBox1.Picture = Picture.Load("/percorso/del/file/immagine")


mediante una variabile di tipo Picture

Dim p As New Picture

 PictureBox1.Picture = p.Load("/percorso/del/file/immagine")


mediante il caricamento di un'immagine convertita da tipo Image in tipo Picture

PictureBox1.Picture = Image.Load("/percorso/del/file/immagine").Picture


Caricare le icone messe a disposizione da Gambas

Per caricare in un oggetto le icone messe a disposizione da Gambas, si potranno adottare almeno tre modalità.


1) Usando il metodo Picture.Load() ed individuando precisamente il percorso ove sono contenute le icone di Gambas.

Esempio:

Public Sub Button1_Click()

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

End


2) - Usando la Classe Picture[ ], ponendo fra le parentsi quadre la parola "icon:" seguita dalla cartella, avente il nome della dimensione delle icone in essa contenuta, ed il nome dell'icona privo dell'estensione.

Esempio:

Public Sub Button1_Click()

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

End


3) Usando la Classe Stock[ ], ponendo fra le parentsi quadre il nome della cartella, avente il nome della dimensione delle icone in essa contenuta, ed il nome dell'icona privo dell'estensione.

Esempio:

Public Sub Button1_Click()

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

End