Creare un'immagine senza avere un file immagine
Da Gambas-it.org - Wikipedia.
Versione del 2 set 2014 alle 05:18 di Vuott (Discussione | contributi) (Creata pagina con '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...')
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 ' mediante il metodo "Resize()" ed il colore con il metodo "Fill()": With i = New Image .Resize(100, 100) .Fill(Color.Red) End With ' 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