Hur gör man om man har två bilder, där man har valt en färg (t. ex. rosa) och man vill ersätta det rosa med den andra bilden. På så sätt kunna skapa egna transparenta bilder. Måste man använda en picturebox och leta upp alla rosa punkter med Point, och sedan byta ut den med den färg som ska varadär? Vill du göra en s.k. "skraplott?Transparenta bilder
Sv: Transparenta bilder
Gör så här (har fått detta utmärkta tips från annat håll):
Det är inte så svårt som det kan tyckas.
Testa nedanstående kod med en Picturebox
som heter Picture1.
Lägg in en fin bild i Picture1.
Starta sedan och dra musmarkören över bilden
samtidigt som du trycker på vänstra musknappen.
Private Sub Form_Load()
Picture1.AutoRedraw = True
picture1.Line (0, 0)-(Picture1.ScaleWidth, Picture1.ScaleHeight), vbBlack, BF
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
If Button = 1 Then
Picture1.PaintPicture Picture1.Picture, X, Y, 100, 100, X, Y, 100, 100
End If
End Sub