Bild proportional Verkleinern und speichern, fast alles geht...

  • VB6

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von alecsoft.

    Bild proportional Verkleinern und speichern, fast alles geht...

    Hi, ich hab hier folgenden Code:

    Visual Basic-Quellcode

    1. Public Sub ResizePictureAndSave(ByVal oPicBox As PictureBox, _
    2. ByVal sFile As String, ByVal sNewFile As String, _
    3. ByVal nWidth As Long, ByVal nHeight As Long)
    5. With oPicBox
    6. ' kein Rahmen
    7. .BorderStyle = 0
    9. ' ScaleMode auf Pixel festlegen
    10. .ScaleMode = vbPixels
    12. ' PictureBox auf gewünschte Größe bringen
    13. .Width = .Parent.ScaleX(nWidth, vbPixels, .Parent.ScaleMode)
    14. .Height = .Parent.ScaleY(nHeight, vbPixels, .Parent.ScaleMode)
    16. ' Inhalt löschen
    19. ' Bild in gewünschter Größe anzeigen
    20. .AutoRedraw = True
    21. .PaintPicture LoadPicture(sFile), 0, 0, nWidth, nHeight
    23. ' Bild speichern
    24. 'SavePicture .Image, sNewFile
    26. .AutoRedraw = False
    27. End With


    das ganze wird mit folgendem aufgerufen, aber leider nicht proportional... wie kann des gehen ???

    Visual Basic-Quellcode

    1. Picture1.Picture = LoadPicture(Text1.text)
    3. ResizePictureAndSave Picture1, CommonDialog1.filename, "c:\test.bmp", 500, 328
    5. Dim IMG_Container As New StdPicture
    7. Set IMG_Container = Picture1.Image
    8. Save_JPG IMG_Container, "C:\02.jpg", 100


    danke
    holger

Facebook
Telefonspende