home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 February / Chip_2001-02_cd1.bin / sharewar / vecad / examples / vb / editor / Strings.bas < prev    next >
Encoding:
BASIC Source File  |  2000-09-01  |  763 b   |  26 lines
  1. Attribute VB_Name = "Module3"
  2. '-------------------------------------------------------------------
  3. '  Overwrite VeCAD strings
  4. '  Used to localize VeCAD to other languages
  5. '-------------------------------------------------------------------
  6. Function LoadString(ByVal Id As Long) As Long
  7.   Dim str As String
  8.   LoadString = 1
  9.   ' assign new string according to string's identifier
  10.   Select Case Id
  11.     Case VS_PRINT_TITLE
  12.       str = "Print2"
  13.     Case VS_ENTPROP_TITLE
  14.       str = "Objects properties 2"
  15.     Case VS_LINE_TITLE
  16.       str = "Line2"
  17.     Case Else
  18.       LoadString = 0  ' string will not overwritten
  19.   End Select
  20.   ' pass new string to VeCAD
  21.   If (LoadString = 1) Then
  22.     vlPropPut VD_DWG_STRING, 0, str
  23.   End If
  24. End Function
  25.  
  26.