Msgbox
 

Χαιρετώ όλους τους φίλους στο φόρουμ,

Έχω γράψει το πιο κάτω μήνυμα το οποίο εμφανίζεται σε κάποιο Event μιας φόρμας, και θέλω να έχει την φορμή Information Style. Δυστυχώς δεν μπορώ να βρώ την λύση στην διαμορφωση του κωδικα έτσι ώστε εκτός απο το Yes/No να έχω και το information icon..

Θα εκτιμήσω αν κάποος φίλος θα μπορούσε να με βοηθήσει.

Dim StrMsg As String

StrMsg = "This is a welcome message place"
StrMsg = StrMsg & vbCrLf & vbCrLf & "For more information regarding this......bla..bla.."

MsgBox (StrMsg), vbYesNo, "Welcome Administrator"

Καλησπέρα

Γιώργο, με όνομα MsgBox έχουμε και διαδικασία και συνάρτηση:

1) Η διαδικασία απλά εμφανίζει ένα μήνυμα.

Παράδειγμα:

MsgBox StrMsg, vbYesNo+vbInformation, "Welcome Administrator"

2) Η συνάρτηση εμφανίζει ένα μήνυμα και επιπλέον επιστρέφει μία τιμή ανάλογα με το κουμπί που πατήσαμε για να κλείσουμε το μήνυμα.

Παράδειγμα:

IF MsgBox(StrMsg, vbYesNo+vbInformation, "Welcome Administrator")=vbYes Then

Διάφορες εντολές

End IF

Φιλικά/Γιώργος

Καλησπέρα Γιώργο και Καλή Χρονιά,

Σε ευχαριστώ πολύ για τις πληροφορίες και την βοήθεια..! Πραγματικά όπως πάντα εύστοχος και καθόλα επιφορφωτικός.

Νάσαι καλά