Ausgabe der Meldung, welche übergeben wird. Als Option können 2 Texte zum Ersetzen übergeben werden. Parameter im Meldungstext #1 oder #2

[Visual Basic]
Public Function ReplaceTextinMSG( _ 
   ByVal OrgText As String, _ 
   ByVal Text1 As String, _ 
   ByVal Text2 As String _ 
) As String

Parameter

OrgText

Meldungstext

Text1

erster Text zum ersetzen

Text2

zweiter Text zum ersetzen

Quellcode

[Visual Basic]
        Public Function ReplaceTextinMSG(ByVal OrgText As String, ByVal Text1 As String, ByVal Text2 As String) As String 
            OrgText = OrgText.Replace("#1", Text1) 
            OrgText = OrgText.Replace("#2", Text2) 
            ReplaceTextinMSG = OrgText 
        End Function

Forderungen

Plattformen: Windows 98, Windows 2000 SP4, Windows Millennium Edition, Windows Server 2003, Windows XP Media Center Edition, Windows XP Professional x64 Edition, Windows XP SP2, Windows XP Starter Edition

Siehe auch

MyMessage