home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 November / pcwk_11_98a.iso / Wtestowe / SOFTSRC / vtrial15.exe / DATA.1 / Vutil.bas < prev    next >
Encoding:
BASIC Source File  |  1997-10-08  |  5.5 KB  |  186 lines
  1. Attribute VB_Name = "Vutil"
  2. ' (C) Copyright 1997 by SoftSource.  All rights reserved.
  3. ' Useful constants for use with Vdraft
  4.  
  5. ' IUnits::Linear - veLinearUnits
  6. Public Const veLU_Scientific = 1
  7. Public Const veLU_Decimal = 2
  8. Public Const veLU_Engineering = 3
  9. Public Const veLU_Architectural = 4
  10. Public Const veLU_Fractional = 5
  11.  
  12. ' IUnits::Angular - veAngularUnits
  13. Public Const veAU_DecimalDegrees = 0
  14. Public Const veAU_DegMinSec = 1
  15. Public Const veAU_Grads = 2
  16. Public Const veAU_Radians = 3
  17. Public Const veAU_Surveyor = 4
  18.  
  19. ' IDimStyle::Alignment - veDimStyleAlignment
  20. Public Const veDSA_Horizontal = 0
  21. Public Const veDSA_DimLine = 1
  22. Public Const veDSA_Inside = 2
  23. Public Const veDSA_Outside = 3
  24.  
  25. ' IDimStyle::Vertical - veDimStyleVertical
  26. Public Const veDSV_Centered = 0
  27. Public Const veDSV_Above = 1
  28. Public Const veDSV_Relative = 2
  29.  
  30. ' IDimStyle::Horizontal - veDimStyleHorizontal
  31. Public Const veDSH_Default = 0
  32. Public Const veDSH_TextIn = 1
  33. Public Const veDSH_TextArrowsIn = 2
  34.  
  35. ' IDimStyle::Tolerance - veDimStyleTolerance
  36. Public Const veDST_None = 0
  37. Public Const veDST_Variance = 1
  38. Public Const veDST_Limits = 2
  39.  
  40. ' IDimStyle::ArrowsType - veCommonArrowsType
  41. Public Const veCAT_Block = 0
  42. Public Const veCAT_Default = 1
  43. Public Const veCAT_Dot = 2
  44. Public Const veCAT_Tick = 3
  45.  
  46. ' IDimStyle::Arrow1Type
  47. ' IDimStyle::Arrow2Type - veSeparateArrowsType
  48. Public Const veSAT_Block = 0
  49. Public Const veSAT_Default = 1
  50. Public Const veSAT_Dot = 2
  51.  
  52. ' IEntity::Type - veEntityType
  53. Public Const veET_Line = 0
  54. Public Const veET_Point = 1
  55. Public Const veET_Circle = 2
  56. Public Const veET_Shape = 3
  57. Public Const veET_Text = 4
  58. Public Const veET_Arc = 5
  59. Public Const veET_Trace = 6
  60. Public Const veET_Solid = 7
  61. Public Const veET_Insert = 8
  62. Public Const veET_Attdef = 9
  63. Public Const veET_Attrib = 10
  64. Public Const veET_2DPolyline = 11
  65. Public Const veET_3DPolyline = 12
  66. Public Const veET_Polymesh = 13
  67. Public Const veET_Polyface = 14
  68. Public Const veET_2DVertex = 15
  69. Public Const veET_Vertex = 16
  70. Public Const veET_FaceVertex = 17
  71. Public Const veET_3DFace = 18
  72. Public Const veET_HorizontalDim = 19
  73. Public Const veET_VerticalDim = 20
  74. Public Const veET_RotatedDim = 21
  75. Public Const veET_AlignedDim = 22
  76. Public Const veET_Angular4PointDim = 23
  77. Public Const veET_DiameterDim = 24
  78. Public Const veET_RadiusDim = 25
  79. Public Const veET_Angular3PointDim = 26
  80. Public Const veET_OrdinateXDim = 27
  81. Public Const veET_OrdinateYDim = 28
  82. Public Const veET_Viewport = 29
  83.  
  84. ' IXData::Type - veXDataType
  85. Public Const veXDT_Invalid = 0
  86. Public Const veXDT_String = 1
  87. Public Const veXDT_Control = 2
  88. Public Const veXDT_Layer = 3
  89. Public Const veXDT_RawData = 4
  90. Public Const veXDT_Handle = 5
  91. Public Const veXDT_Vector = 6
  92. Public Const veXDT_Double = 7
  93. Public Const veXDT_Short = 8
  94. Public Const veXDT_Long = 9
  95.  
  96. ' IXData::Control - veXDataControl
  97. Public Const veXDC_Start = 0    ' starting brace '{'
  98. Public Const veXDC_End = 1  ' ending brace '}'
  99.  
  100. ' IPolyline::Curve
  101. ' IPolyline::ColumnCurve
  102. ' IPolyline::RowCurve - vePolylineCurve
  103. Public Const vePC_NoCurve = 0
  104. Public Const vePC_Curved = 1
  105. Public Const vePC_Cubic = 2
  106. Public Const vePC_Quadratic = 3
  107.  
  108. ' IText::Horizontal
  109. ' IAttdef::Horizontal
  110. ' IAttribute::Horizontal - veJustifyHorizontal
  111. Public Const veJH_Left = 0
  112. Public Const veJH_Center = 1
  113. Public Const veJH_Right = 2
  114. Public Const veJH_Align = 3
  115. Public Const veJH_Middle = 4
  116. Public Const veJH_Fit = 5
  117.  
  118. ' IText::Vertical
  119. ' IAttdef::Vertical
  120. ' IAttribute::Vertical - veJustifyVertical
  121. Public Const veJV_Baseline = 0
  122. Public Const veJV_Bottom = 1
  123. Public Const veJV_Middle = 2
  124. Public Const veJV_Top = 3
  125.  
  126. ' IBlocks::Add - veBlockDefinitionMethod
  127. Public Const veBDM_EntitiesRemoved = 0
  128. Public Const veBDM_ReplacedByInsert = 1
  129. Public Const veBDM_EntitiesLeft = 2
  130.  
  131. ' IPickEvents::SetCursorTipInfo - veCursorTipInfo
  132. Public Const veCTI_None = 0
  133. Public Const veCTI_Offset = 1
  134. Public Const veCTI_Scale = 2
  135. Public Const veCTI_Angle = 3
  136. Public Const veCTI_LengthAngle = 4
  137. Public Const veCTI_Height = 5
  138. Public Const veCTI_Width = 6
  139. Public Const veCTI_Radius = 7
  140. Public Const veCTI_Length = 8
  141. Public Const veCTI_Diameter = 9
  142.  
  143. ' IPickEvents::TriggerPopup - vePickPopup
  144. Public Const vePP_Done = 0
  145. Public Const vePP_Cancel = 1
  146. Public Const vePP_Properties = 2
  147. Public Const vePP_Undo = 3
  148. Public Const vePP_Help = 4
  149. Public Const vePP_TypeCoordinates = 5
  150.  
  151. ' ILine, I2DPolyline::Fillet and ::Chamfer - veFilletChamfer
  152. Public Const veFC_Success = 0
  153. Public Const veFC_IllegalEntity = 1
  154. Public Const veFC_InInsert = 2
  155. Public Const veFC_DifferentSpace = 3
  156. Public Const veFC_NoIntersection = 4
  157. Public Const veFC_NotLongEnough = 5
  158. Public Const veFC_SameEntity = 6
  159. Public Const veFC_BadEntity = 7
  160. Public Const veFC_ZeroDistance = 8
  161.  
  162. ' IUnits::ScaleMethod - veScaleOptions
  163. Public Const veSO_ScaleBy = 0
  164. Public Const veSO_UnitEquals = 1
  165. Public Const veSO_UnitIsInch = 2
  166.  
  167. ' IUnits::MetricUnits and ::DisplayUnits - veMetricDistance
  168. Public Const veMD_mm = 0
  169. Public Const veMD_cm = 1
  170. Public Const veMD_m = 2
  171. Public Const veMD_km = 3
  172.  
  173. ' function for setting our VB window "always on top"
  174. Declare Sub SetWindowPos Lib "User32" (ByVal hWnd&, ByVal hWndAfter&, ByVal x&, ByVal y&, ByVal cx&, ByVal cy&, ByVal flag&)
  175. ' function for making another window the active window (like the Vdraft window).
  176. Declare Sub SetForegroundWindow Lib "User32" (ByVal hWnd&)
  177.  
  178. Public Sub WindowOnTop(ByVal hWnd&)
  179.     SetWindowPos hWnd, -1, 0, 0, 0, 0, &HB
  180. End Sub
  181.  
  182. Public Sub ActivateWindow(ByVal hWnd&)
  183.     SetForegroundWindow hWnd
  184. End Sub
  185.  
  186.