Mega Code Archive

 

Categories / VB.Net / XML

 

AddressOf ValidationCallbackOne

Option Explicit On Option Strict On Imports System Imports System.Xml Imports System.Xml.Schema Class XMLSchemaExamples     Public Shared Sub Main()         Dim schema As New XmlSchema()         Dim schemaSet As New XmlSchemaSet()         AddHandler schemaSet.ValidationEventHandler, AddressOf ValidationCallbackOne         schemaSet.Add(schema)         schemaSet.Compile()     End Sub      Public Shared Sub ValidationCallbackOne(ByVal sender As Object, ByVal args As ValidationEventArgs)         Console.WriteLine(args.Message)     End Sub  End Class