Qualcuno di voi mi può spiegare come funziona la funzione color.setalpha?
dalla documentazione leggo:
Static Function SetAlpha ( Color As Integer, Alpha As Integer ) As Integer
l'ho provata ad usare(da quel che ho capito mi dovrebbe ritornare un colore quasi trasparente) ma non sono riuscito a capire cosa è "alpha as integer", ho provato così, ma non funge, mi dà solo il colore rosso:
PictureBox3.Background = Color.setAlpha(Color.red, 50)
c'è qualcuno di voi che può darmi una risposta?
grazie mille :ciao:
Io...... proverei a caricare un file con un'immagine tutta di colore, ad esempio, rossa, e vi applicherei questo codice....
Public Sub Button1_Click()
Dim p As New Picture
Dim i As New Image
p = p.Load("mia_immagine_tutta_rossa.png")
i = p.Image
i = i.PaintRect(100, 100, 30, 30, Color.SetAlpha(Color.Yellow, 100))
p = i.Picture
PictureBox1.Picture = p
End
...mo' il mio amico sotema mi fa secco un'altra volta. :-X
Si deve utilizzare la funzione .Opacity della Classe Image.
Esempio.
Abbiamo due immagini poste in due PictureBox una posta sotto l'altra. L'obiettivo, se non ho capito male ;D , è di rendere semi-trasparente l'immagine superiore, in modo tale che si riesca a vedere anche l'immagine sottostante:
Private i As New Image
Private p As Picture
Public Sub Form_Open()
PictureBox2.Picture = Picture.Load("immagine_sottostante.xxx")
With i = i.Load("immagine_da_rendere_semitrasparente.xxx")
i = .Opacity(0.5) ' La funzione vuole un valore di tipo Float tra 0 ed 1
End With
End
Public Sub Button1_Click()
p = i.Picture
PictureBox1.Picture = p
End