LoadPicture dauerhaft (2)
21.08.2002 07:50:04
Bernd
ich habe folgendes Problem (s. auch Beitrag 20.08.02 13:47:51)
Eine Grafik-Datei soll ausgewählt werden und als Image hinterlegt werden. Das funktioniert auch sehr gut (s.Code). Allerdings lade ich das Bild wohl nur, wenn ich alles schließe ist das Image wieder weg.
Wie lautet der Befehl (syntax), damit ich das Image abspeichern kann. Wenn ich über die Eigenschaften gehe ist das Bild dauerhaft drin.
Könnt ihr evtl. den Code ergänzen.
Private Sub Button_Dr_KundenBild_Click()
Dim kundenbild
kundenbild = Application.GetOpenFilename("Grafikformat(*.jpg), *.jpg")
'kundenbild
If kundenbild <> Falsch Then
Image_Kunde.Picture = LoadPicture(kundenbild)
'Er zeigt das Bild an,wenn ich aber die XLS-Datei schließe ist 'auch das Bild weg.
'muß hier ein Speicherbefehl hin?
End If
End Sub
Gruß
Bernd