Vise bilder med samme størrelse

[MikkelRev]

Jeg har 100 bilder i en mappe som hver vises i en picturebox etter behov. Men hvert bilde har forskjellige dimensjoner. I HTML kan man enkelt og greit bruke <img src="bilde.jpg" height="300"> og alle bildene blir like høye, og bredden justeres automatisk deretter. Hvordan gjør du det i VB? Bruker VB 2008 Express.

[brgr]

Du skal kunne sette strech alternativ for pictureboxen som gjør att bildet blir skalert til rett dimesjon for pictureboxen. Men hvis du vil att bredden skal kunne endre seg etter forhold på bredde og høyde så må du nok innom System.Drawing classen.

 

 

 

Dim wantedSize As Size = New Size(0, 300) ' gir høyde til å være 300

'Dim wantedSize As Size = New Size(0, Picturebox1.Size.Height)

 

Dim myFile As String = "c:\mittbilde.png"

Dim SrcImage As New System.Drawing.Bitmap(myFile)

Dim scale As Long = SrcImage.Size.Width / SrcImage.Size.Height

 

Dim OutImage As New System.Drawing.Bitmap(SrcImage, New Size(IIf(wantedSize.Width > 0, wantedSize.Width, wantedSize.Height * scale), wantedSize.Height))

PictureBox1.Image = OutImage

SrcImage.Dispose()

OutImage.Dispose()

 

 

 

Det kan være att måten å regne ut scale ikke stemmer, dette ble gjort i hodet. Og kan være feil utregning. For guds skyld, klokken er 0705.