Differenze tra le versioni di "Creare un Form trasparente"

Da Gambas-it.org - Wikipedia.
 
(5 versioni intermedie di uno stesso utente non sono mostrate)
Riga 1: Riga 1:
Per creare o rendere un ''Form'' (o anche una finestra della Classe ''Window'') completamente trasparente, si possono adottare alcune modalità.
+
Per creare o rendere un ''Form'' (o anche una finestra della Classe ''Window'') completamente trasparente, si possono adottare almeno un paio di modalità.
  
 
==Agendo sulle Proprietà ".Transparent" e ".Border" dell'Oggetto ''Form''==
 
==Agendo sulle Proprietà ".Transparent" e ".Border" dell'Oggetto ''Form''==
Riga 10: Riga 10:
 
  End
 
  End
  
==Agendo sulla Proprietà ".Opacity":==
+
==Agendo sulle Proprietà ".Opacity" e ".Border" dell'Oggetto ''Form''==
 
  Public Sub Form_Open()
 
  Public Sub Form_Open()
 
   
 
   
Riga 19: Riga 19:
 
  End
 
  End
  
==Usando una immagine trasparente==
+
==Individuare il ''Form'' trasparente sulla Scrivania==
Si potrà infine anche assegnare al ''Form'' (o alla Finestra) un'immagine trasparente appositamente creata.
+
Un ''Form'' completamente trasparente e privo di bordi non è facilmente individuabile, soprattutto se di piccole dimensioni. Pertanto, ai precedenti codici si può aggiungere la seguente riga:
Public Sub Form_Open()
+
  Me.Mouse = 25  <FONT Color=gray>' ''oppure un altro valore''</font>
+
Passando con il puntatore del mouse sul ''Form'' trasparente, il puntatore cambierà aspetto.
  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
 

Versione attuale delle 04:46, 23 giu 2023

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

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

Public Sub Form_Open()

 Me.Transparent = True

 Me.Border = False

End

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

Public Sub Form_Open()

 Me.Opacity = 0

 Me.Border = False

End

Individuare il Form trasparente sulla Scrivania

Un Form completamente trasparente e privo di bordi non è facilmente individuabile, soprattutto se di piccole dimensioni. Pertanto, ai precedenti codici si può aggiungere la seguente riga:

Me.Mouse = 25  ' oppure un altro valore

Passando con il puntatore del mouse sul Form trasparente, il puntatore cambierà aspetto.