Creare un Form trasparente: differenze tra le versioni

Da Gambas-it.org - Wikipedia.
Vai alla navigazione Vai alla ricerca
Nessun oggetto della modifica
Nessun oggetto della modifica
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 03: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