Moin moin,
> Private Sub CommandButton1_Click()
>
> Dim ret As Integer
>
> ret = MessageBox(0, \"Achtung, wichtige Nachfrage\", Application.Name,
> MB_YESNO)
>
> MsgBox ret
>
> End Sub
danke.
Diese Messages gehen auch ohne die Konstanten:
Dim ret As Integer
ret = MsgBox(\"Achtung, wichtige Nachfrage\", vbYesNo + vbExclamation)
MsgBox ret
Nein, im Ernst: Es geht um diesen Dialog:
(Archivposting - keine Anzeige)
Leider wird mir aber auch da nichts weiter übrig bleiben, als den selbst zu erstellen, so dass der wenigstens einen Rückgabewert liefert.
Ich finde das so idiotisch, dass der Originaldialog den Rückgabewert bereits beim Öffnen des Dialogs liefert. Was sich MS dabei gedacht haben mag …
Archiv