Billeder

Public Sub NewSize(Oldpic As PictureBox, Newpic As PictureBox, lWidth As Integer, lHeight As Integer)
Newpic.AutoRedraw = True
  Newpic.PaintPicture Oldpic.Picture, 0, 0, lWidth * 15, lHeight * 15, 0, 0, Oldpic.ScaleWidth, Oldpic.ScaleHeight
End Sub

Private Sub Form_Load()
  Picture1.Picture = LoadPicture("C:\Oldpic.bmp") 'Load pic
  Call NewSize(Picture1, Picture2, 150, 150) 'Resize pic
  Call SavePicture(Picture2.Image, "C:\Newpic.bmp") 'Save pic
End Sub

Når jeg kører scriptet siger den "ByRef argument type mismatch" og markerer Picture1 i linien
  Call NewSize(Picture1, Picture2, 150, 150) 'Resize pic
Jeg er rimelig sikker på at stien til billedet er rigtig.

Kommer der et billede når du bruger:

Picture1.Picture = LoadPicture("C:\Oldpic.bmp") 'Load pic

jeg havde glemt at oprette billedfelter til Picture1 og 2 da jeg havde gjort det kom den nu med en nu fejl i
  Call SavePicture(Picture2.Image, "C:\Newpic.bmp") 'Save pic
Den markerer Image og siger "Method or data not found"


Skal dette:
Public Sub NewSize(Oldpic As PictureBox, Newpic As PictureBox, lWidth As Integer, lHeight As Integer)
Newpic.AutoRedraw = True
  Newpic.PaintPicture Oldpic.Picture, 0, 0, lWidth * 15, lHeight * 15, 0, 0, Oldpic.ScaleWidth, Oldpic.ScaleHeight
End Sub

Forresten lægge i et modul?

Men ja, der kommer et billede ved
Picture1.Picture = LoadPicture("C:\Oldpic.bmp") 'Load pic

Jeg har fundet fejlen, jeg havde taget sådan en alm. image-ting i stedet for en picturebox. Nu har jeg så et andet spørgsmål:
Behøves de der boxe at være der for at få billedet resized?
Hvordan sørger jeg for at pictureboxene altid har samme mål som billedet man loader, og det nye billede?

du kan bare sette dem Picture1.Visible = False så kan man ikke se dem

Når jeg gemmer kommer der en grå kant med, selvom at rammen ikke kan ses, hvordan fjernes den?

Derudover ændrer det ikke på at hvis billedet er større end rammen, så kommer hele billedet ikke med.

Du skriver bare:

Picture1.Autosize = True

/KantoraZa

Mange tak, jeg prøver det i morgen.

du må også gerne lægge et svar, så får du nok også nogle point...

Jeg har lige et spørgsmål til (jeg skla nok sætte flere point af hvis i synes...):
Hvordan komprimerer jeg så når jeg vil gemme som fx gif eller jpg?

jpg se her:
http://hjem.get2net.dk/sjh/eksperten/jpeg_shot.zip

Tak :)

Kantoraza -> hvis du vil have ti point, så sig lige til... Så opretter jeg et nyt spørgsmål til dig...

Er det også muligt at få forklaret helt præcist hvordan jpg-tingen virker?