VB-Homepage Tipp 114
Auswerten,
ob nach dem Aufruf -CommonDialog-, der Abbruchbutton gewählt wurde
Mitunter werden Sie nicht umhin kommen, das CommonDialog Steuerelement in Ihrem ( Farben , Schriftart oder Druckermenü bzw. Datei öffnen )
Programm zu nutzen.

Was ist aber, wenn der "dumme" Benutzer Ihres Programms einfach Abbruch drückt, dann muß Ihr Programm dies ja wissen um entsprechend zu reagieren.
Genau das soll dieser Tipp machen.

Dazu erstellen Sie sich ein neues VB4-Projekt und fügen ein Command-Objekt hinzu. Dieses soll später die Aktion auslösen.
Dafür bekommt der CommandButton nachfolgenden Code in die Click Aktion.

Private Sub Command1_Click()
'Damit es auch bei einem Fehler weiter geht
On Error Resume Next

'...Datei öffnen Auswahl
CommonDialog1.ShowOpen

If Err <> 32755 Then 'Fehlernummer für Abbrechen
MsgBox Err
Else
MsgBox "Es wurde auf Abbrechen geklickt."
End If

Damit das ganz auch läuft, müssen Sie Ihrer Form noch das CommonDialog Steuerelement hinzufügen (COMDLG32.OCX) und die Eigenschaft des Steuerelements CancelError auf True stellen.
Auch unter VB3 ist der Rückgabewert der selbe, lediglich der Aufruf des Steuerelements wäre zu modifizieren.
Tipp-Download
Quelle : J. Anke (BasicWorld)
Zurück zur Übersichtsseite