Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: VBA und Open File...
Autor: Tobiwan
Datum: 07.03.02 15:52
Ich mach das immer mit dem Windows Common Dialog. Du findest ihn unter den Komponenten. Er müßte eigentlich Standardmäßig installiert sein. Es gibt Sechs Standarddialoge, die du in deinen Programmen verwenden kannst: Farbe .ShowColor Schriftart .ShowFont Datei öffnen .ShowOpen Drucken .ShowPrinter Datei speichern .ShowSave Öffnet Windows-Hilfe mit der angegebenen Datei und dem Thema .ShowHelp Die Eigenschaft Flags Der Wert der Flags Eigenschaft setzt sich aus Long - Integer Werten zusammen, die du zur Kombination der Attribute einfach aufaddierst. Die Werte kannst du als Integer Zahlen angeben oder auf die moderne Art als Konstanten. Die letzte Lösung ist auch die beste, weil so aus dem Programmcode schnellklar wird, was du willst. Im Objektkatalog findest du die vordfinierten Konstanten, die es gibt. Zum Beispiel bewirkt CommonDialog1.Flags = cdlOFNOverWritePrompt + _ cdlOFNPathMustExist + cdlOFNHelpButton CommonDialog.ShowOpen das Öffnen des Speichern-Dialogs mit einer Hilfe Schaltfläche. Dieser Dialog erzeugt eine Warnung, falls der Anwender eine Datei wählt die bereits existiert. Außerdem verhindert der Dialog, daß der Benutzer einen nicht vorhandenen Pfad eingibt. Die Eigenschaft Filter Die Eigenschaft Filter bestimmt den Inhalt des Listenfeldes Dateityp, die in den Dialogen um Speichern und Öffnen erscheint. Sie ist ein wichtiger Bestandteil der Funktionalität des Standarddialogs - und die Syntax ist recht umständlich. Und so gehts: Wenn zum Beispiel Bitmap Dateien geladen werden sollen müsste der Filter heißen: FString = "Bitmaps (*.bmp)|*bmp|Alle Dateien (*.*)|*.*" CommonDialog.Filter = FString Die Beschreibungen können alles enthalten, was du willst; du mußt beispielsweise nicht in Klammern die Angaben für den Dateifilter beinhalten. Das Zeichen | (ASCII Code 124) trennt die einzelnen Bestandteile voneinander. Die eigentlichen Filter folgen der DOS Syntax, etwa: *.txt, *.doc und so weiter. Und jetzt der wichtige Punkt: Zwischen den Filterangaben und den senkrechten Strichen dürfen keine Leerzeichen stehen! Abbruch feststellen Wenn du einen Stabdardielog einsetzt möchtestdu normalerweise wissen, ob der Anwender den Dialog mit OK oder mit Abbrechen verlassen hat. Die Abfrage realisierst du folgendermaßen: Bevor du irgendein Dialog öffnest, setzt du die Eigenschaft CancelError auf True. Wenn diese Eigenschaft auf wahr gesetzt ist, löst ein Abbruch einen Fehler aus, cdlCancel (&H7FF3&). Füge einen Fehlerbehandlungszweig direkt hinter der CancelError Anweisung ein: CommonDialog1.CancelError = True On Error Goto ErrHandle Zum Abschluß fügst du den Code ein der die Fehlerbehandlung übernimmt: ErrHandle: If Err = cdlCancel then MsgBox "Abbrechen gedrückt!" End If End Sub Die Eigenschaft FileName Die Eigenschaft FileName gibt den gewählten Pfad zurück. Zum Beispiel imgBox.Picture = CommonDialog1.FileName Und zum Abschluß.. Viel Spaß

VBA und Open File...	54	Acid Rain	07.03.02 12:37
Re: VBA und Open File...	368	Dieter	07.03.02 12:40
weiter hilfe von nöten	35	Acid Rain	07.03.02 12:46
Re: VBA und Open File...	44	Tobiwan	07.03.02 15:52

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