Differenze tra le versioni di "Creare un Form trasparente"

Da Gambas-it.org - Wikipedia.
Riga 1: Riga 1:
Per creare un ''Form'' (o anche una finestra della Classe ''Window'') completamente trasparente, è possibile agire sulle Proprietà ".Transparent" e ".Border" dell'Oggetto ''Form'':
+
Per creare o rendere un ''Form'' (o anche una finestra della Classe ''Window'') completamente trasparente, si possono adottare alcune modalità.
 +
 
 +
==Agendo sulle Proprietà ".Transparent" e ".Border" dell'Oggetto ''Form''==
 
  Public Sub Form_Open()
 
  Public Sub Form_Open()
 
   
 
   
Riga 7: Riga 9:
 
   
 
   
 
  End
 
  End
oppure sulla Proprietà ".Opacity":
+
 
 +
==Agendo sulla Proprietà ".Opacity":==
 
  Public Sub Form_Open()
 
  Public Sub Form_Open()
 
   
 
   
Riga 13: Riga 16:
 
   
 
   
 
   Me<FONT Color=#B22222>.Border</font> = '''False'''
 
   Me<FONT Color=#B22222>.Border</font> = '''False'''
 +
 +
End
 +
 +
==Usando una immagine trasparente==
 +
Si potrà infine anche assegnare al ''Form'' (o alla Finestra) un'immagine trasparente appositamente creata.
 +
Public Sub Form_Open()
 +
 +
  Dim im As Image
 +
 +
  im = New Image(Me.W, Me.H, Color.Transparent, Image.Standard)
 +
 +
  With Me
 +
    .Picture = im.Picture
 +
    .Border = False
 +
    .Transparent = True
 +
  End With
 
   
 
   
 
  End
 
  End

Versione delle 02:49, 23 giu 2023

Per creare o rendere un Form (o anche una finestra della Classe Window) completamente trasparente, si possono adottare alcune modalità.

Agendo sulle Proprietà ".Transparent" e ".Border" dell'Oggetto Form

Public Sub Form_Open()

 Me.Transparent = True

 Me.Border = False

End

Agendo sulla Proprietà ".Opacity":

Public Sub Form_Open()

 Me.Opacity = 0

 Me.Border = False

End

Usando una immagine trasparente

Si potrà infine anche assegnare al Form (o alla Finestra) un'immagine trasparente appositamente creata.

Public Sub Form_Open()

 Dim im As Image

 im = New Image(Me.W, Me.H, Color.Transparent, Image.Standard)

 With Me
   .Picture = im.Picture
   .Border = False
   .Transparent = True
 End With

End