Differenze tra le versioni di "Creare un'immagine senza avere un file immagine"
Da Gambas-it.org - Wikipedia.
Riga 2: | Riga 2: | ||
− | + | ==Immagine monocolore== | |
− | Per generare da codice una immagine monocolore potremo utilizzare | + | Per generare da codice una immagine monocolore potremo utilizzare sia la Classe ''Image'' che la Classe ''Picture''. |
+ | |||
+ | |||
+ | ===Uso della Classe ''Image''=== | ||
'''Public''' Sub Form_Open() | '''Public''' Sub Form_Open() | ||
Riga 24: | Riga 27: | ||
.W = i.W | .W = i.W | ||
.H = i.H | .H = i.H | ||
+ | .Picture = pc | ||
+ | End With | ||
+ | |||
+ | '''End''' | ||
+ | |||
+ | |||
+ | ===Uso della Classe ''Picure''=== | ||
+ | '''Public''' Sub Form_Open() | ||
+ | |||
+ | Dim pc As Picture | ||
+ | |||
+ | |||
+ | <FONT color=gray>' ''Istanziamo l'oggetto "Picture", attribuendogli la dimensione in pixel ed un colore":''</font> | ||
+ | With pc = <FONT Color=#B22222>New Picture(100, 100) | ||
+ | .Fill(Color.Red)</font> | ||
+ | End With | ||
+ | |||
+ | |||
+ | <FONT color=gray>' ''Dimensioniamo la "PictureBox" come la "Picture"; e carichiamo la "Picture" nella "PictureBox":''</font> | ||
+ | With PictureBox1 | ||
+ | .W = pc.W | ||
+ | .H = pc.H | ||
.Picture = pc | .Picture = pc | ||
End With | End With | ||
'''End''' | '''End''' |
Versione delle 04:36, 5 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 sia la Classe Image che la Classe Picture.
Uso della Classe Image
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 "Image", che avrà ovviamente ' anche le medesime dimensioni della nuova "Picture"; e carichiamo la "Picture" nella "PictureBox": With PictureBox1 .W = i.W .H = i.H .Picture = pc End With End
Uso della Classe Picure
Public Sub Form_Open() Dim pc As Picture ' Istanziamo l'oggetto "Picture", attribuendogli la dimensione in pixel ed un colore": With pc = New Picture(100, 100) .Fill(Color.Red) End With ' Dimensioniamo la "PictureBox" come la "Picture"; e carichiamo la "Picture" nella "PictureBox": With PictureBox1 .W = pc.W .H = pc.H .Picture = pc End With End