Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Bild aus PictureBox speichern
Autor: Manfred44
Datum: 29.11.16 15:28
Ich bekomme nach dem Speichern nur ein leeres Bild. Woran könnte es liegen? Danke im Voraus für eure Bemühungen... Dim PaintNow As Integer Dim freihand Sub Form_Load() Picture1.DrawWidth = 3 ' Dickeren Pinsel verwenden. Picture1.ForeColor = RGB(255, 0, 0) ' Zeichenfarbe setzen. End Sub Private Sub cmdFreihand_Click() freihand = True End Sub Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) PaintNow = True End Sub Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If freihand = True Then If PaintNow Then Picture1.PSet (X, Y) End If End If End Sub Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) PaintNow = False End Sub Private Sub cmdSpeichern_Click() On Error GoTo SpeichernFehler With CommonDialog1 .Filter = "(*.bmp)|*.bmp|" .Filter = .Filter & "(*.jpg)|*.jpg" CommonDialog1.Flags = cdlOFNOverwritePrompt + cdlOFNHideReadOnly CommonDialog1.DialogTitle = "Bild-Datei speichern" CommonDialog1.DefaultExt = "JPG" CommonDialog1.ShowSave 'Speichern Prozedur aufrufen SavePicture Picture1.Image, CommonDialog1.FileName 'Aktuellen Dateinamen anzeigen Form1.Caption = CommonDialog1.FileName End With SpeichernFehler: End Sub

Bild aus PictureBox speichern	1.741	Manfred44	29.11.16 15:28
Re: Bild aus PictureBox speichern	934	Blackbox	29.11.16 17:49
Re: Bild aus PictureBox speichern	902	Zardoz	29.11.16 20:05
Re: Bild aus PictureBox speichern	923	Manfred44	30.11.16 14:06
Ergänzender Hinweis	873	Manfred X	01.12.16 18:47

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen