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. |