Originariamente inviato da xonica
ho una listview (view: 0 - IvwIcon) in cui ho caricato delle immagini di grandezza 200x200 che provengono da una Imagelist che riempio da codice.
Devo fare in modo che alcune immagini abbiano una cornice (x esempio rossa) ed altre no quando vengono visualizzate nella listview.
La mia idea è di caricare in un controllo Image un quadrato rosso di grandezza 210x210 e poi ci appiccicarci la mia foto perfettamente al centro. dopodichè il contenuto del controllo Image deve essere inviato nella ImageList...
Potrebbe essere una soluzione?
Il problema è che non ho idea di come si possa fare a inserire un quadrato in un Image e poi appiccicarci la foto!
Attendo un vostro consiglio... grazie mille!
Inserisci su un form 2 controlli picturebox, entrambi impostati con scalemode a pixel e la proprietà autoredraw = true
Il secondo controllo picturebox nascondilo e metti questo codice in un pulsante.
codice:
Private Sub Command1_Click()
Dim myX As Single
Dim myY As Single
Picture1.BackColor = vbRed
Set Picture2.Picture = LoadPicture(PathMiaImmagine)
Picture1.ScaleHeight = Picture2.ScaleHeight + 20
Picture1.ScaleWidth = Picture2.ScaleWidth + 20
myX = (Picture1.ScaleWidth - Picture2.ScaleWidth)
myY = (Picture1.ScaleHeight - Picture2.ScaleHeight)
Picture1.Width = Picture1.ScaleWidth * Screen.TwipsPerPixelX
Picture1.Height = Picture1.ScaleHeight * Screen.TwipsPerPixelX
Picture1.PaintPicture Picture2.Picture, myX, myY
Set Picture1.Picture = Picture1.Image
End Sub
Sicuramente si poteva fare meglio, ma di getto mi è venuto così 
!
Rispondi quotando
