home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_code2 / string / global.bas < prev    next >
BASIC Source File  |  1994-07-15  |  803b  |  20 lines
  1. Option Explicit
  2.  
  3.  
  4. Global Const DLG_CAPTION = "STRING.DLL Template"
  5.  
  6. 'variables
  7. Global lpstrDATA As String * 65000
  8. Global iChar As Integer
  9.  
  10. 'String DLL functions
  11. Declare Function STRINGVer Lib "STRING.DLL" (ByVal hwnd As Integer) As Integer
  12. Declare Function ReverseStr Lib "STRING.DLL" (ByVal lpstrDATA As String) As Integer
  13. Declare Function FindRightChar Lib "STRING.DLL" (ByVal lpstrDATA As String, ByVal iChar As Integer) As Integer
  14. Declare Function FindFirstNIS Lib "STRING.DLL" (ByVal lpstrDATA As String, ByVal lpstrSUBSET As String) As Integer
  15. Declare Function LexSortStr Lib "STRING.DLL" (ByVal lpstrSTRING1 As String, ByVal lpstrSTRING2 As String, ByVal iNofC As Integer, ByVal iCase As Integer) As Integer
  16.  
  17. 'user declares
  18. Declare Function GetTickCount Lib "user" () As Long
  19.  
  20.