Keskustelu: Ohjelmointikysymykset: VB6: Kuvanpaikka

Mitenkäs sais MDIformissa kuvan keskelle formia, kun siihen ei saa tota image objektia, ja pictureboxi suuger, ja miten saisi kuvan venymään näyön kokoiseksi.
Kielenä VB 6.0 kiitos!

Lyhyellä Googletuksella löytyi tälläinen.

Pistä sille MDIFormille PictureBox sen päälle Image objekti ja sit MDIFormin Resize tapahtumaan seuraava koodi:

Picture1.Height = Me.Height - 350
Image1.Left = 0: Image1.Top = 0
Image1.Width = Picture1.Width
Image1.Height = Picture1.Height

Entäs sitten ku haluaa että mdi chilidit avautuu sen kuvan päälle?

Käytä tuota googlettamaani koodia, niin kuva on tosiaankin sen MDIFormin taustakuva, jolloin lapset leikkii kiltisti sen kuvan päällä.

Jos Nean tapaa käytät, niin tuo formit ZOrder-komennolla päällimmäisiksi.

Form1.ZOrder 0 'nollan voi jättää pois, jos haluaa formin päällimmäiseksi, sillä se on oletus

en meinaa saaha toimiin tota sun linkin tyyliä :/

Kopioitko pelkästään koodin sivulta vai imutitko koko esimerkin (Download-linkki koodin alapuolella.)? Jos yrität pelkästään kopioimalla koodin, lisää MDIFormille picturebox (Visible=False), jonka sisällä on kaksi muuta pictureboxia nimeltään picStretched ja picOriginal. picOrginal sisältää alkuperäisen kuvan, jota käytetään taustakuvana ja on asetettu AutoSize=true. MDIFormin koodin alusta puuttuu esittelyt RECT -tyypille sekä käytetyille funktioille.

Option Explicit

Private Declare Function GetClientRect Lib "user32" _
                  (ByVal hwnd As Long, _
                         lpRect As RECT) As Long
Private Declare Function FindWindowEx Lib "user32" _
                  Alias "FindWindowExA" _
                  (ByVal hWnd1 As Long, _
                   ByVal hWnd2 As Long, _
                   ByVal lpsz1 As String, _
                   ByVal lpsz2 As String) As Long
Private Declare Function InvalidateRect Lib "user32" _
                  (ByVal hwnd As Long, _
                         lpRect As RECT, _
                   ByVal bErase As Long) As Long

Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

Sain jo toimii sori ku en sanonut siitä mitään, juu kyllä mie hoksasin muutin tota vähäsen