vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Erstellen von dynamischen Kontextmen?s - wann immer Sie sie brauchen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Allgemeine Diskussionen
Re: Speichern??? 
Autor: Stefan
Datum: 19.07.02 01:36
Ich würd es so machen:

Function GetComment(sFileName as String)
Dim sFileComment as String
Picture1=LoadPicture(sFilename) '<< musst halt ersetzen
On Error resume next
again:
Open sFileName+ ".comment" for Input as #1
If err <> 0 then Open sFilename + ".comment" for Output as #2: Close#2: goto again
Input #1, sFileComment
Msgbox "Zu " + sFilename + " wurde folgender kommentar hinterlassen:" + vbcrlf + sFileComment, vbinformation, "Kommentar anzeige"
Close #1
End Function

Aufruf dann so:
GetComment("Auto.bmp")

Wenns sein muss kann ich dir noch ein Beispiel für Speichern schicken aber das wird wohl KEIN Problem sein... oder?


(PS: Nicht getestet)
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Speichern???81Sniper-K17.07.02 18:14
Re: Speichern???51Stefan19.07.02 01:36
Re: Speichern???120Sniper-K19.07.02 12:00

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übersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel