LoadPicture dauerhaft
20.08.2002 13:47:51
Bernd
ich habe folgendes Problem:
Eine Grafik-Datei soll ausgewählt werden und als Immge 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. 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)
End If
End Sub
Gruß
Bernd
Anzeige