CommonDialog, Cancel-Abfrage

Computer: Software & Programmierung Visual Basic
#1

Hallo!

Ich verwende einen CommonDialog in VB6Pro. Gibt es eine Möglichkeit das „Ok“ bzw das „Cancel“-Klick abzufragen?

So in der Art:

If Ok-Klick Then
'mach #1
Else
'mach #2
End If

Vielen Dank,
Lugi

#2

Hi Lugi,

so ähnlich, Du mußt ‚On Error‘ verwenden.

Private Sub Command1\_Click()
 On Error GoTo Fehler
 CommonDialog1.CancelError = True
 CommonDialog1.ShowOpen
 Exit Sub
Fehler:
 Me.Caption = Err.Description
End Sub

Gruß, Rainer