Riposizione controlli

di
danieleabc
il
1 risposte
D
danieleabc
Pochi posts
Iscritto da
ott, 2009
Messaggi:
1

Riposizione controlli

Salve a tutti, avrei bisogno di un piccolo aiuto
ho un Form dove carico un file Bitmap con
Form1.Picture = LoadPicture(percorso & "\disegni\file.bmp")
che rappresenta un viso,sulla form al posto degli occhi ci sono
due caselle Image dove carico altri file immagine.Ora io vorrei che
ridimensionando il Form questi due controlli si riposizionino automaticamente
nella posizione degli occhi della foto ridimensionata. Grazie a chi volesse aiutarmi.

1 Risposte

  • G
    Gecsi
    Pochi posts
    Iscritto da
    ott, 2009
    Messaggi:
    22

    Re: Riposizione controlli

    Non so come tu faccia a fare ridimensionare l'immagine con quella tecnica;
    io la risolverei così:
    Option Explicit
Dim Y1 As Single, X1 As Single
Dim Y2 As Single, X2 As Single

Private Sub Form_Load()
imgBase.Picture = LoadPicture("F:\Sviluppo\Images\faccia.bmp")
Image1.Picture = LoadPicture("F:\Sviluppo\Images\OcchioDx.bmp")
Image2.Picture = LoadPicture("F:\Sviluppo\Images\OcchioSx.bmp")
'rapporto rispetto la dimensione della Form delle coordinate
X1 = 0.29       'coordinata X OcchioDx
Y1 = 0.45       'coordinata Y OcchioDx
X2 = 0.55       'coordinata X OcchioSx
Y2 = 0.38       'coordinata Y OcchioSx
End Sub

Private Sub Form_Resize()
With Me
    imgBase.Move 0, 0, .ScaleWidth, .ScaleHeight
    Image1.Move .ScaleWidth * X1, .ScaleHeight * Y1, .ScaleWidth / 10, .ScaleHeight / 10
    Image2.Move .ScaleWidth * X2, .ScaleHeight * Y2, .ScaleWidth / 10, .ScaleHeight / 10
End With
End Sub
    Buon divertimento
Devi accedere o registrarti per scrivere nel forum
1 risposte