Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
 
RegistrierenRegistrieren  LoginLogin

Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten
Autor
Nachricht
codeknacker
Newbie
Newbie

Anmeldedatum: 28.12.2009
Beiträge: 16

Bild der Picturebox anpassen
Verfasst am: 29.12.2009, 17:18

Ja was mein problem ist steht ja schon im titel. Smile
ich möchte das bild wenn es mit 400x500 pixeln kommt auch so wieder speichern können, nur halt im format 350x200 anzeigen lassen. Laughing
_________________
 
christopher.g
Überflieger
Überflieger

Anmeldedatum: 03.05.2008
Beiträge: 536


Verfasst am: 29.12.2009, 18:07

Code:

Private Sub Command1_Click()
höhe = 100
breite = 200

Image1.Height = höhe * Screen.TwipsPerPixelX
Image1.Width = breite * Screen.TwipsPerPixelY

Picture1.Picture = LoadPicture("")
With Picture1
  .BorderStyle = 0
  .Width = Image1.Width
  .Height = Image1.Height
 
  ' Wichtig: AutoRedraw = True
  .AutoRedraw = True
 
  ' Bild aus ImageBox übertragen
  .PaintPicture Image1.Picture, 0, 0, _
    Image1.Width, Image1.Height
 
  ' Bild abspeichern
  SavePicture .Image, "c:\speicherpfad\jpg.jpg"
 
End With

End Sub


mit dem solltest was anfangen können
dein foto lädst du in die image1
und definierst höhe und breite
lg
 
codeknacker
Newbie
Newbie

Anmeldedatum: 28.12.2009
Beiträge: 16


Verfasst am: 29.12.2009, 18:47

Ok hat funktioniert vielen dank.
_________________


 
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten

Tags: anpassen, bild, picturebox, anzeigen, speichern

 
 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Timer für paar sekunden schlafen lassen ohne sleep 347 05.11.2007, 14:59
Keine neuen Beiträge txt mit Computernamen erstellen lassen 360 16.10.2007, 21:09
Keine neuen Beiträge Windows abstürzen lassen 755 16.10.2007, 19:18
Keine neuen Beiträge lokale ip anzeigen lassen 1332 09.10.2007, 18:54
Keine neuen Beiträge IP anzeigen lassen 502 27.09.2007, 12:06
 



[ Time: 0.1723s ][ Queries: 89 (0.0213s) ][ GZIP on - Debug on ]