Oppure

Loading
04/02/08 18:31
moet
Ho dato la possibilita da menu di caricare come sfondo del programma un immagine.

inserendo un img sul form la carico cosi:


Private Sub mnuinserisci_Click()


CommonDialog1.ShowOpen
Image13.Picture = LoadPicture(CommonDialog1.filename)

End Sub




domanda 1) per far si che possa dimensionarsi al form ?

domanda 2) Per rimuoverla ?

:D grazie
aaa
04/02/08 18:41
gantonio
Per rimuovere l'immagine, dove ti serve

Image13.Picture = Nothing


Per ridimensionarla, nell'evento Resize del form

Private Sub Form_Resize()
    With Image13
        .Stretch = True
        .Left = 0
        .Top = 0
        .Width = Me.Width
        .Height = Me.Height
    End With
End Sub

Ultima modifica effettuata da gantonio 04/02/08 18:42
aaa
04/02/08 18:46
moet
Grazie perfetto
aaa