Picturebox

Hej..

* Opret 3 små pictureboxe og giv dem index nummerene 0 1 og 2 med navnet box. (Eks. Box(0).x)

* Opret en stor picturebox som hedder mainbox.
* Opret endnu en picturebox, som skal hede Inside.
* Opret nu en imagebox, inde i inside picture boxen! Sæt dens .Stretch til True.

* Sæt så tre små billeder ind i de tre små pictureboxe.

* Skriv denne kode inde i 'box'.

MainBox.Cls

Image1.Picture = Box(Index).Picture
Image1.Left = 0
Image1.Top = 0
Image1.Height = MainBox.Height
Image1.Width = MainBox.Width
Me.AutoRedraw = True

DoEvents

Inside.Width = Image1.Width
Inside.Height = Image1.Height

DoEvents

MainBox.AutoRedraw = True

For x = 0 To Image1.Width Step 10
    For y = 0 To Image1.Height Step 10
        MainBox.PSet (x, y), Inside.Point(x, y)
    Next y
DoEvents
Next x



Dette er bare en ud af mange muligheder at gøre det på!

/Answer

Tjaa - her et lidt anderledes forslag:

Opret 3 små pictureboxe (evt. som et kontrolarray).
Opret en stor PictureBox "Pic_stor"

På de små pictureboxes _Click-event skriver du:

  Pic_Stor.Picture = LoadPicture(Filnavn)

hvor Filnavn er filnavnet på det billede der er i den lille picturebox du klikker på.

Jeg skriver blot dette for at anskueliggøre, at man kan gøre det uden at bruge PSet(x,y) og andre kommandoer, som du måske har svært ved at gennemskue (ikke at der er noget som helst galt med svaret fra answarmaster - det skal blot ses som et alternativ ;o)

/Martin

Jeg tror nok ud fra hans spm. at billedet også skulle være stort. Men det er rigtigt, man kan gøre det uden pset.

/Answer

answermaster og martin moth
Jeres svar gør kun det at der kommer det samme billede fra de små picturebox til det stor picturebox, men forstørrer ikke billedet.

answermaster din kode forstørrede billedet, men kun en smule den fylder stadig ikke hele det stor vindue.

Sorry - jeg havde tankerne i "Image" i stedet for "PictureBox". Hvis du anvender Image i stedet for PictureBox, kan du sætte egenskaben Stretch til True, og så vil billedet få samme størrelse som selve det image du har tegnet på din form. Og har du tegnet dem med forskellig størrelse, vil billedet der loades få samme størrelse...

Skift Picture ud med Image i min "løsning", så giver den mening.

Stadigvæk skal jeg pointere, at det blot er et atlernativ til Answars løsning, der sikkert er bedre... Fordelen ved "min" løsning er, at jeg kan forstå den ;o) /Martin

martin moth ja nu virker den og answer nu forstår jeg også menningen med din, men din tager tid når den forstørrer billedet.

Martin skriv noget som svar så kan jeg fordele pointerne mellem dig og answer, fordi jeres begge svar var gode, og forresten hvad er STRETCH som jeg sætter til true, hvad gør stretch?

I behøver ikke forklare STRETCH, jeg ved det. Stretch gør billedet så stor som image vinduet.

Her er så et svar;o)

Sjovt nok er egenskaben stretch kun tilgængelig for image, ikke picturebox...

Øhhh - et SVAR, sagde jeg jo :0)