Differenze tra le versioni di "Passare valori e altre risorse da un Form principale a un Form secondario"
Da Gambas-it.org - Wikipedia.
(Creata pagina con "Per risolvere la questione posta dal titolo di questa pagina, presentiamo un esempio pratico, nel quale si passerà una ''Picture'', mostrata in una ''PictureBox'' posta in un...") |
|||
Riga 12: | Riga 12: | ||
With PictureBox1 = New PictureBox(Me) | With PictureBox1 = New PictureBox(Me) | ||
− | .Picture = Picture.Load("<FONT Color= | + | .Picture = Picture.Load("<FONT Color=darkgreen>/percorso/del/file/immagine</font>") |
End With | End With | ||
Versione delle 12:46, 19 apr 2024
Per risolvere la questione posta dal titolo di questa pagina, presentiamo un esempio pratico, nel quale si passerà una Picture, mostrata in una PictureBox posta in un Form principale, da detto Form principale a un Form secondario.
Il codice per la gestione del Form principale (FMain.class) sarà il seguente:
Public Sub Form_Open() Dim PictureBox1 As PictureBox With Me .Center .Arrangement = Arrange.Fill End With With PictureBox1 = New PictureBox(Me) .Picture = Picture.Load("/percorso/del/file/immagine") End With With Form1 .Show .PassaPic(PictureBox1.Picture) End With End
Mentre il codice per la gestione del Form secondario (che chiameremo: Form1.class) sarà il seguente:
Public Sub PassaPic(pic As Picture) Dim PictureBox1 As PictureBox With PictureBox1 = New PictureBox(Form1) .Picture = pic .Move(0, 0, pic.W, pic.H) End With End