Hi, ich hab hier folgenden Code:
das ganze wird mit folgendem aufgerufen, aber leider nicht proportional... wie kann des gehen ???
danke
holger
Visual Basic-Quellcode
- Public Sub ResizePictureAndSave(ByVal oPicBox As PictureBox, _
- ByVal sFile As String, ByVal sNewFile As String, _
- ByVal nWidth As Long, ByVal nHeight As Long)
- With oPicBox
- ' kein Rahmen
- .BorderStyle = 0
- ' ScaleMode auf Pixel festlegen
- .ScaleMode = vbPixels
- ' PictureBox auf gewünschte Größe bringen
- .Width = .Parent.ScaleX(nWidth, vbPixels, .Parent.ScaleMode)
- .Height = .Parent.ScaleY(nHeight, vbPixels, .Parent.ScaleMode)
- ' Inhalt löschen
- ' Bild in gewünschter Größe anzeigen
- .AutoRedraw = True
- .PaintPicture LoadPicture(sFile), 0, 0, nWidth, nHeight
- ' Bild speichern
- 'SavePicture .Image, sNewFile
- .AutoRedraw = False
- End With
das ganze wird mit folgendem aufgerufen, aber leider nicht proportional... wie kann des gehen ???
danke
holger