MsgBox ansteuern?

[Grump¥]

Moin,
also ich habe eine Frage zu MsgBoxen. Ich würde nun gern wissen wie ich z.B. bei einer vbYesNoCancel den einzelnen Buttons verschiedene Funktionen zuweisen kann.

Habe diese Frage schoneinmal in einem anderen Forum gestellt allerdings eine sehr unbefriedigende Antwort bekommen. Da mir dieses Board deutlich aktiver und besser erscheint versuche ich mein Glück hier nocheinmal.

Ich hoffe meine Frage ist verständlich gestellt und würde mich über eine Erklärung freuen.

Gruß

GrumpY

 

[wincnc]

Hallo, schau Dir das mal an.

Private Sub Command1_Click()
Dim Antwort As Long

  Antwort = MsgBox("Bla Bla", vbQuestion + vbYesNoCancel, "Frage")
  
  If Antwort = vbYes Then
    ' Hier deine Funktion zu Ja aufrufen
    MsgBox "Sie haben Ja gedrückt"
  ElseIf Antwort = vbNo Then
    ' Hier deine Funktion zu Nein aufrufen
    MsgBox "Sie haben Nein gedrückt"
  ElseIf Antwort = vbCancel Then
    ' Hier deine Funktion zu Abbrechen aufrufen
    MsgBox "Sie haben Abbrechen gedrückt"
  End If
  
End Sub