home *** CD-ROM | disk | FTP | other *** search
/ Internet Magazine 2003 October / INTERNET108.ISO / pc / software / windows / building / xmlspy / xmlspyentcomplete5.exe / Data1.cab / _3B558FCC5A57454A985716C25B9EF8C7 < prev    next >
Encoding:
Text File  |  2002-08-29  |  804 b   |  28 lines
  1. Attribute VB_Name = "GlobalSubs"
  2. Public nCurrentView As XMLSpyLib.SPYViewModes
  3. Public nRet As Integer
  4. Public objSpy As Application
  5.  
  6. Public Function GetNameOfKind(nKind As SPYXMLDataKind) As String
  7. Select Case nKind
  8.     Case spyXMLDataComment
  9.         GetNameOfKind = "comment"
  10.     Case spyXMLDataElement
  11.         GetNameOfKind = "element"
  12.     Case spyXMLDataAttr
  13.         GetNameOfKind = "attribut"
  14.     Case spyXMLDataCData
  15.         GetNameOfKind = "CDATA"
  16.     Case spyXMLDataDTDDocStruct
  17.         GetNameOfKind = "DTD docstruct"
  18.     Case Else
  19.         GetNameOfKind = "other"
  20. End Select
  21. End Function
  22.  
  23. Public Sub CheckForError()
  24.     If Err.Number <> 0 Then
  25.         a = MsgBox("Error: " & (Err.Number - vbObjectError) & Chr(13) & "Description: " & Err.Description)
  26.     End If
  27. End Sub
  28.