Application Form (SAX Validator)

To get started, create a new project and then reference Microsoft XML Core Services (MSXML) 5.0 for Microsoft Office.

To create a new project

• Open Microsoft® Visual Basic® 6.0. In the New Project dialog box, double-click Standard EXE.

To create a reference to MSXML 5.0

1. On the Project menu, click References.
2. In the Available References list, select Microsoft XML,v5.0, and then click OK.

Add Controls to the Form

Now build the user interface for the SAX validator application. Add the following controls to the form.

• Three text boxes: one for entering the XML file input to be validated; one for entering the XSD file to use to validate the input file; and one for displaying search results.
• Labels for each of the three text boxes
• Two command buttons.

For your application form to work with the sample code provided in the next section, you must set the properties in the following table.

After you modify the property settings, resize the controls and arrange them on the form until your user interface looks like the following:

Add Code to the Form

The following shows the complete code for the form. To run the code as you read, select all the text, then copy it and paste it into the form of your own Microsoft® Visual Basic® project.

Option Explicit

Private Sub cmdExit_Click()
  Unload Me
End Sub

Private Sub cmdValidate_Click()
  'Clear the results window.
  txtResults = ""
  'Create a SAX reader.
  Dim oReader As New Msxml2.SAXXMLReader50
  'Create an XML schema cache.
  Dim oSC As New Msxml2.XMLSchemaCache50
  'Create a class module for implementing content handler,
  'the error handler, and the locator interfaces.
  Dim oValidator As New MyValidator
  'Add the schema file to the schema cache.
  oSC.Add "", txtSchemaFile
  'Configure the SAX reader.
  oReader.putFeature "schema-validation", True
  oReader.putProperty "schemas", oSC
  oReader.putProperty "schema-declaration-handler", oValidator
  Set oReader.contentHandler = oValidator
  Set oReader.errorHandler = oValidator
  'Parse and validate the file.
  On Error Resume Next
  oReader.parseURL txtInputFile
  On Error GoTo 0
End Sub

Private Sub Form_Load()
  txtInputFile.Text = App.Path + txtInputFile.Text
  txtSchemaFile.Text = App.Path + txtSchemaFile.Text
End Sub

See Also

Validate Documents Using SAX | Overview of the SAX Validator Application | Sample XSD Schema File (SAX Validator) | MyValidator Class (SAX Validator) | Run the Application (SAX Validator) | How the SAX Validator Application Works