Standard-Meldung, welcher 2 Strings als Parameter übergeben werden, damit diese im Meldungstext ersetzt werden können. Parameter im Meldungstext #1 oder #2

[Visual Basic]
Public Function show_standardmessage_ReplaceText( _ 
   ByVal i As Integer, _ 
   ByVal typ As MsgBoxStyle, _ 
   ByVal Text1 As String, _ 
   ByVal Text2 As String _ 
) As Integer

Parameter

i

typ

Text1

Text2

Quellcode

[Visual Basic]
        Public Function show_standardmessage_ReplaceText(ByVal i As Integer, ByVal typ As MsgBoxStyle, ByVal Text1 As String, ByVal Text2 As String) As Integer 
            Dim s As String 
            s = Get_Meldungstext(i) 
            s = s.Replace("#1", Text1) 
            s = s.Replace("#2", Text2) 
            Return Me.ShowMyDialog(s, typ, MsgBoxStyle.OkOnly) 
            '            MsgBox(s, typ) 
        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