nn so usare MSGBOX AIUTATEMI

[drago]

ho un problea col msgbox. Ho fatto una function che riceve questo parametro Optional Buttons As VbMsgBoxStyle = vbOKOnly
Come faccio a sapere il tipo di messaggio che mi arriva cioe
vbCritical, vbInformation etc..

ho fatto:
If Buttons And vbInformation Then

msgbox "......", vbexclamation
end if
if e cosi via per tutti e quatro ma a volte funziona a volte no

grazie

:sgrat:

[lufo5]

ehm.. ti giuro che non ho capito.:master:

[drago]

ti spego meglio:
Ho questa functio
Function MsgBox(prompt As String, Optional Buttons As VbMsgBoxStyle = vbOKOnly, Optional Title, Optional HelpFile, Optional Context) As VbMsgBoxResult
e la richiamo da un form per creare un msgbox
dentro il button ce il tipo di msg cioe vbCritical ..... ma anche vbOkonly, vbOKno e cosi via
quando richiamo il msgbox nn so cosa ho scelto.
in quel Buttons sono le informazioni ma nn so come tirarle fuori.
ho fatto:
If Buttons And vbInformation Then
msgbox "..." vbInformation
end if
If Buttons And vbCritical Then
msgbox "..." vbCriticalend if
end if
ma nn funziona sempre per che ci sono anche le informazioni relative ai pulsanti vbok, vbokcancel .....
quindi devo stampare l'immagine giusta ma nn funziona bene
grazie

questo e il richiamo
MsgBox "prompt", vbExclamation + vbAbortRetryIgnore, "titol", "helpfile", "context"
MsgBox e la mia function

[lufo5]

msgbox è già una funzione intrinseca di visual basic. Non mi sembra il caso di crearne un'altra, con lo stesso nome.

[drago]

lo so ma sono al lavoro e devo fare quel che mi dicono, il nome e quasi lo stesso MessageBox cmq cambia poco