Resample a lá BitBlt / StrechBlt

du kan bruge PaintPicture()

Option Explicit

Private Sub Form_Load()
Dim intWidth As Integer
Dim intHeight As Integer

  intWidth = 150
  intHeight = 120

  With Picture1
      .Picture = LoadPicture("C:\bla\bla\billede.jpg")
      .AutoRedraw = True
      .ScaleMode = 3
      .PaintPicture .Picture, 0, 0, intWidth, intHeight, 0, 0, .ScaleWidth, .ScaleHeight
      .Width = (intWidth * Screen.TwipsPerPixelX)
      .Height = (intHeight * Screen.TwipsPerPixelY)
  End With
End Sub

jeg sagde resample.... ikke resize, det kan jeg selv finde ud af

det er for at undgå de "grove" firkanter nar man laver thumb's af store billeder

"grove" firkanter?? er det ikke det den gør da??

problemet er vel at den normal vil lave "grove" firkanter.. når man resize et billede.. men ved brug af PaintPicture() resize så skulle den ikke gøre det..

skulle også lige ha .AutoSize = True på..

Private Sub Form_Load()
Dim intWidth As Integer
Dim intHeight As Integer

  intWidth = 150
  intHeight = 120

  With Picture1
      .AutoRedraw = True
      .ScaleMode = 3
      .AutoSize = True
      .Picture = LoadPicture("C:\bla\bla\billede.jpg")
      .PaintPicture .Picture, 0, 0, intWidth, intHeight, 0, 0, .ScaleWidth, .ScaleHeight
      .Width = (intWidth * Screen.TwipsPerPixelX)
      .Height = (intHeight * Screen.TwipsPerPixelY)
  End With
End Sub

Nej kan godt se den ikke gør det.. så er der nok kun API tilbage.. men det er da også hurtiger at gøre det med API..

hvis du ikke har set den så er der en her som kan.. http://www.vbaccelerator.com/home/VB/Code/vbMedia/DIB_Sections/Resampling_With_Alpha/VB6_Alpha_Resample_Demo.asp

den bruger kun 2 classmoduler :D  (5135135 - 2) så kan du spare 5135133 modules :D

javel-ja... API frem for DLL... det virker!

ved du om der er nogen mulighed for at "smoothe" billedet noget mere?

læg lige et svar for point... du fortjener kun 149 point da jeg kun sparer 5135133 classes :P

:D ha ha

Jeg ved det faktis ikke.. man du kan se om du kan finde noget mere her
http://www.vbaccelerator.com/home/VB/Code/vbMedia/index.asp
http://www.vbaccelerator.com/home/VB/Code/vbMedia/Image_Processing/index.asp
http://www.vbaccelerator.com/home/VB/Code/vbMedia/DIB_Sections/index.asp

Hvis du ikke alerede har set deres websted gennem ;)