LeoMeldungContainer

Erstellt eine Meldung aus mehreren Zeichenketten nach meinem üblichen Muster.

Stammnamespace
leopoldnet.LeoMeldungContainer

Speicherort
Vb-Projekte Mai 2011; Asus

Beispiel

1.  
2. Imports leo = leopoldnet.LeoMeldungContainer
3.  
4. Public Class Class1
5.     Sub muster()
6.         Dim oMeldung As New _
7.          leo.LeoMeldungContainer(leo.DarstellungTyp.HtmlListe)
8.         With oMeldung
9.             .addMeldung("Fehler im Muster" )
10.             .addMeldung("SQL: " & "Select * From x" )
11.             .addMeldung("Meldung: " & "ex.Message" )
12.         End With
13.          MsgBox("Meldung" , MsgBoxStyle.OkOnly, oMeldung.zeigeMeldungen)
14.     End Sub
15.  End Class