[VB6]immagine di sfondo fu una MDI

[alexinside83]

ciao a tutti...
ho una form di tipo MDI che mi si apre all'avvio del programma...
per renderla un po piu "piacevole" ho pensato di mettere un immagine di sfondo...
ma non ho idea di come si faccia...

O meglio ho visto la proprieta PICTURE ma non so gestirla al meglio...nel senso che evvero che mi carica l'immagine, ma io avrei bisogno che si espandesse e si contraesse se l'utente allarga o stringe la finesra del programma...
e se questo non fosse possibile, cosa mi consogliate di fare?
grazie a tutti.

ale :metallica :metallica

[junx]

ma allora potresti avere un'immagine stretchata? Secondo me non è bello da vedere....

[alexinside83]

ma tu come faresti?

[junx]

Io mi limiterei ad insereire un'immagine di sfondo sena però farla ridimensionare assieme alla form.

[alexinside83]

ma di che imensioni la devo fare??

ma non esiste la possibilità (come avviene per lo sfondo di una pagina web) che ripete l'immgine per tutta la grandezza della finestra??

[junx]

Ok. Questo codice ti consente di fare quello che tu hai chiesto.
Fammi sapere se hai problemi.

Option Explicit
Private Sub MDIForm_Activate()
    MDIForm_Resize
End Sub
Private Sub MDIForm_Load()
    picNascosta.Visible = False
    picNascosta.AutoRedraw = True
End Sub

Private Sub MDIForm_Resize()
    picNascosta.Move 0, 0, Width, Height
End Sub

Private Sub picnascosta_Resize()
Dim X As Single
Dim Y As Single
    Y = 0
    Do While Y <= picNascosta.ScaleHeight
        X = 0
        Do While X <= picNascosta.ScaleWidth
            picNascosta.PaintPicture picSfondo.Picture, X, Y, _
                picSfondo.ScaleWidth, picSfondo.ScaleHeight
            X = X + picSfondo.ScaleWidth
        Loop
        Y = Y + picSfondo.ScaleHeight
    Loop

    Picture = picNascosta.Image
End Sub

[Teflo]

Purtroppo per inserire un'immagine in un form MDI non è proprio una cretinata, per poterlo ottenere devi scrivere un bel pò di codice partendo dall'ereditare la nativewindow e dopo implementare :

 Implements IDisposable ' API Declares
    Delegate Function WndEnumProc(ByVal hWnd As IntPtr, ByVal param As Int32) As Boolean
    Declare Function EnumChildWindows Lib "user32" Alias "EnumChildWindows" (ByVal hWndParent As IntPtr, ByVal lpEnumFunc As WndEnumProc, ByVal lParam As Long) As Long
    Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As IntPtr, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long 'Fields 
    Dim mChildMDI As IntPtr

se ti interessa fammi sapere anche perchè è abbastanza palloso....

[junx]

Purtroppo per inserire un'immagine in un form MDI non è proprio una cretinata

Non c'è bisogno, nessuno ti vieta di inserire una normale picturebox...basta poi saper gestire il tutto...

[alexinside83]

ma quindi metto una picture box...carico una immagine ma di che dimensioni?
Nel senso, se non voglio usare tanto codice, potrei caricare una immagine in 800x600.
Ma cosa succede se un utente utilizza un 1024x748 o superiore?

[junx]

Ma allora non mi sono spiegato.
Col codice che io ti ho inviato puoi mettere qualsiasi immagine, poi il codice farà il 'Tile'. Esempio se metti un'immagine di sfondo 30x30, avrai che l'immagine verrà ripetura tante volte quante bastano per riempire lo sfondo della forma MDI.
Capito?