Yes-No-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_MessageYesNo_ReplaceText( _ 
   ByVal i As Integer, _ 
   ByVal Text1 As String, _ 
   ByVal Text2 As String _ 
) As MsgBoxResult

Parameter

i

MeldungsNr

Text1

erster Text zum ersetzen

Text2

zweiter Text zum ersetzen

Quellcode

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