Differenze tra le versioni di "Creare un'immagine senza avere un file immagine"
Da Gambas-it.org - Wikipedia.
| Riga 11: | Riga 11: | ||
<FONT color=gray>' ''Istanziamo l'oggetto "Image", attribuendogli la dimensione in pixel ed un colore":''</font> | <FONT color=gray>' ''Istanziamo l'oggetto "Image", attribuendogli la dimensione in pixel ed un colore":''</font> | ||
| − | i = New Image(100, 100, Color.Red) | + | i = <FONT Color=#B22222>New Image(100, 100, Color.Red)</font> |
Versione delle 09:24, 2 set 2014
Il caso considerato in questa pagina è quello in cui viene realizzata direttamente un'immagine, da mostrare in una PictureBox, senza che sia prelevata da un file immagine preesistente.
Immagine monocolore
Per generare da codice una immagine monocolore potremo utilizzare il seguente codice:
Public Sub Form_Open()
Dim i As Image
Dim pc As Picture
' Istanziamo l'oggetto "Image", attribuendogli la dimensione in pixel ed un colore":
i = New Image(100, 100, Color.Red)
' Trasformiamo l'oggetto "Image" in una "Picture",
' al fine di poterla mostrare con la "PictureBox":
pc = i.Picture
' Dimensioniamo la "PictureBox" come la nuova "Picture",
' e carichiamo la "Picture" nella "PictureBox":
With PictureBox1
.W = i.W
.H = i.H
.Picture = pc
End With
End
