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...") |
|||
(Una versione intermedia di uno stesso utente non è mostrata) | |||
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 | ||
With Form1 | With Form1 | ||
.Show | .Show | ||
− | . | + | .RicevePic(PictureBox1.Picture) |
End With | End With | ||
End | End | ||
Mentre il codice per la gestione del ''Form'' <SPAN Style="text-decoration:underline">secondario</span> (che chiameremo: Form1.class) sarà il seguente: | Mentre il codice per la gestione del ''Form'' <SPAN Style="text-decoration:underline">secondario</span> (che chiameremo: Form1.class) sarà il seguente: | ||
− | Public Sub | + | Public Sub RicevePic(pic As Picture) |
Dim PictureBox1 As PictureBox | Dim PictureBox1 As PictureBox |
Versione attuale delle 12:47, 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 .RicevePic(PictureBox1.Picture) End With End
Mentre il codice per la gestione del Form secondario (che chiameremo: Form1.class) sarà il seguente:
Public Sub RicevePic(pic As Picture) Dim PictureBox1 As PictureBox With PictureBox1 = New PictureBox(Form1) .Picture = pic .Move(0, 0, pic.W, pic.H) End With End