auxmoney - Geld leihen für das Studiumauxmoney - Geld leihen für das Studium

auxmoney - Geld leihen für den Umzugauxmoney - Geld leihen für den Umzug

Mehrzeilige MsgBox mit Hilfe der Access-Eval-Funktion

Mehrzeilige MsgBox mit Hilfe der Access-Eval-Funktion
Mit Hilfe der nur in Access vorkommenden Eval-Funktion lassen sich in VB nicht nur mathematische Berechnungen
durchführen, sondern auch Nachrichten in Message-Boxen mehrzeilig darstellen:
Private Sub cmdHelp_Click()
Call Dreizeilige_MsgBox("Achtung!@Fehlerhafte Anwendung!@Bitte informieren Sie Ihren Support! ", _
vbOKOnly & vbExclamation, "Hinweis...")
End Sub
Function Dreizeilige_MsgBox(Prompt As String, _
Optional Buttons As VbMsgBoxStyle = vbOKOnly, _
Optional Title As String = vbNullString, _
Optional HelpFile As Variant, _
Optional Context As Variant) As VbMsgBoxResult
If IsMissing(HelpFile) Or IsMissing(Context) Then
Dreizeilige_MsgBox = Eval("MsgBox(""" & Prompt & """, " & _
Buttons & ", """ & Title & """)")
Else
Dreizeilige_MsgBox = Eval("MsgBox(""" & Prompt & """, " & _
Buttons & ", """ & Title & """, """ & HelpFile & """, " & Context & ")")
End If
End Function
Dies funktioniert in VB oder VBA natürlich nur, wenn man einen entsprechenden Verweis auf die installierte
Access-Library im Projekt einträgt. So lassen sich Nachrichten mit maximal drei Zeilen darstellen.

Mehr Tipps: Balken-Diagramm einfach

Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt