Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

SavePicture und AutoRedraw
Autor: JakeD
Datum: 20.04.06 23:24
Moin, ich hab da mal ne simple Frage: In meinem kleinen Programm speichere und lade ich mit VB6 erstellte Grafiken (z.B. Funktionskurven). Das ganze funktioniert aber nur, wenn ich .AutoRedraw = True setze. Wieso muß das so sein??? Anbei ein simples Code Beispiel: Option Explicit Dim picname$ Private Sub cmdstart_Click() pic.AutoRedraw = True pic.DrawWidth = 1 'Strichstärke pic.ScaleMode = 3 'Pixel=kleinste auf dem Screen und Drucker darstellbarer Punkt pic.Scale (-11, 11)-(11, -11) 'Koordinaten oben links und unten rechts pic.Line (-8, 8)-(8, -8), vbRed, BF pic.Line (-11, 0)-(11, 0), vbGreen pic.Line (0, 11)-(0, -11), vbCyan End Sub Private Sub cmdSave_Click() cdbSave.Flags = cdlOFNNoChangeDir ' Verzeichniswahl cdbSave.Flags = cdlOFNOverwritePrompt ' Überschreibwarnung cdbSave.Filter = "jpg Dateien (*.jpg)|*.jpg" 'Speichert Grafik als .jpg-Datei cdbSave.ShowSave ' Dialog Fenster wird geöffnet picname$ = cdbSave.FileTitle SavePicture pic.Image, picname$ End Sub Private Sub cmdLoad_Click() cdbLoad.Filter = "jpg Dateien (*.jpg)|*.jpg" 'Lädt Grafik als .jpg-Datei cdbLoad.Flags = cdlOFNFileMustExist 'Die Datei muß vorhanden sein cdbLoad.DialogTitle = "Datei öffen :" 'Beschriftung DialogfeldLeiste cdbLoad.ShowOpen 'Öffnen einer Datei picname$ = cdbLoad.FileTitle 'Das ist der Dateiname pic.Picture = LoadPicture(picname$) 'Die gewählte Datei wird geladen End Sub Private Sub cmdEnd_Click() End End Sub Thx für Tips

SavePicture und AutoRedraw	684	JakeD	20.04.06 23:24
Re: SavePicture und AutoRedraw	532	Dieter	21.04.06 07:29
Re: SavePicture und AutoRedraw	405	JakeD	21.04.06 20:12

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