Gå til innhold

Hvordan endre størrelse på et bilde?


Anbefalte innlegg

Hei jeg holder på og lage et enkelt lite program som laster inn et bilde og legger noen streker oppå det. Dette bruker jeg til å se om bilder jeg har tatt er i det gyldne snitt.

Dette fungerer veldig bra ved små bilder.

 

Men jeg har støtt på et lite problem.. dersom bildene er for store for skjermen går alt helt over styr. Derfor lurer jeg på om noen har en kode for å forminske bilder som er i pictureboxer

(UTEN at bildene mister ratioen sin altså at de ikke blir strukket og forvrengt i lengre og bredde, da mister hele programmet meningen.)

Lenke til kommentar
Videoannonse
Annonse

Se på denne koden:

Option Explicit

Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long

Private Sub Command1_Click()

Dim x, y, color, forskjell

Picture1.Cls

forskjell = VScroll1.Value / 10

For x = 0 To (Source.ScaleWidth * forskjell) - 1

   For y = 0 To (Source.ScaleHeight * forskjell) - 1
   
       color = GetPixel(Source.hdc, Val(x / forskjell), Val(y / forskjell))
       
       SetPixel Picture1.hdc, x, y, color
   
   Next y
   
Next x

End Sub

Private Sub Form_Load()
VScroll1.Min = 1
VScroll1.Max = 10
VScroll1.Value = 5
End Sub

Hvis den ikke gjør noe særlig mening kan jeg laste opp prosjektet ;)

Lenke til kommentar

Bli med i samtalen

Du kan publisere innhold nå og registrere deg senere. Hvis du har en konto, logg inn nå for å poste med kontoen din.

Gjest
Skriv svar til emnet...

×   Du har limt inn tekst med formatering.   Lim inn uten formatering i stedet

  Du kan kun bruke opp til 75 smilefjes.

×   Lenken din har blitt bygget inn på siden automatisk.   Vis som en ordinær lenke i stedet

×   Tidligere tekst har blitt gjenopprettet.   Tøm tekstverktøy

×   Du kan ikke lime inn bilder direkte. Last opp eller legg inn bilder fra URL.

Laster...
  • Hvem er aktive   0 medlemmer

    • Ingen innloggede medlemmer aktive
×
×
  • Opprett ny...