home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 January / PCWorld_2001-01_cd.bin / Software / Topware / xmlspy / xmlspy35.exe / Main / GlobalSubs.bas < prev    next >
Encoding:
BASIC Source File  |  2000-11-20  |  795 b   |  28 lines
  1. Attribute VB_Name = "GlobalSubs"
  2. Public nRet As Integer
  3. Public objSpyProj As XMLSpyPrj
  4. Public objSpy As XMLSpyApplication
  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.