Differenze tra le versioni di "Passare valori e altre risorse da un Form principale a un Form secondario"

Da Gambas-it.org - Wikipedia.
 
Riga 17: Riga 17:
 
   With Form1
 
   With Form1
 
     .Show
 
     .Show
     .PassaPic(PictureBox1.Picture)
+
     .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 PassaPic(pic As Picture)
+
  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