home *** CD-ROM | disk | FTP | other *** search
/ Dan Appleman's Visual Bas…s Guide to the Win32 API / Dan.Applmans.Visual.Basic.5.0.Programmers.Guide.To.The.Win32.API.1997.Ziff-Davis.Press.CD / VB5PG32.mdf / articles / vbdev / source / dtxt1.bas < prev    next >
Encoding:
BASIC Source File  |  1996-02-22  |  4.8 KB  |  105 lines
  1. Attribute VB_Name = "DTXT11"
  2. Option Explicit
  3.  
  4.  
  5. '**********************************
  6. '**  Type Definitions:
  7.  
  8. #If Win32 Then
  9. Public Type RECT
  10.     left As Long
  11.     top As Long
  12.     right As Long
  13.     bottom As Long
  14. End Type
  15. #Else
  16. Public Type RECT
  17.     left As Integer
  18.     top As Integer
  19.     right As Integer
  20.     bottom As Integer
  21. End Type
  22.  
  23. #End If 'WIN32 Types
  24.  
  25.  
  26. '**********************************
  27. '**  Type Definitions:
  28.  
  29. #If Win32 Then
  30. Public Type SIZE
  31.     cx As Long
  32.     cy As Long
  33. End Type
  34.  
  35. #End If 'WIN32 Types
  36.  
  37. ''  Text Alignment Options
  38. Public Const TA_NOUPDATECP = 0
  39. Public Const TA_UPDATECP = 1
  40.  
  41. Public Const TA_LEFT = 0
  42. Public Const TA_RIGHT = 2
  43. Public Const TA_CENTER = 6
  44.  
  45. Public Const TA_TOP = 0
  46. Public Const TA_BOTTOM = 8
  47. Public Const TA_BASELINE = 24
  48.  
  49. '' ExtTextOut flags
  50. Public Const ETO_GRAYED = 1
  51. Public Const ETO_OPAQUE = 2
  52. Public Const ETO_CLIPPED = 4
  53.  
  54. ''  DrawText() Format Flags
  55. Public Const DT_TOP = &H0
  56. Public Const DT_LEFT = &H0
  57. Public Const DT_CENTER = &H1
  58. Public Const DT_RIGHT = &H2
  59. Public Const DT_VCENTER = &H4
  60. Public Const DT_BOTTOM = &H8
  61. Public Const DT_WORDBREAK = &H10
  62. Public Const DT_SINGLELINE = &H20
  63. Public Const DT_EXPANDTABS = &H40
  64. Public Const DT_TABSTOP = &H80
  65. Public Const DT_NOCLIP = &H100
  66. Public Const DT_EXTERNALLEADING = &H200
  67. Public Const DT_CALCRECT = &H400
  68. Public Const DT_NOPREFIX = &H800
  69. Public Const DT_INTERNAL = &H1000
  70.  
  71.  
  72. '**********************************
  73. '**  Function Declarations:
  74.  
  75. #If Win32 Then
  76. Public Declare Function DrawText& Lib "user32" Alias "DrawTextA" (ByVal hDC As Long, ByVal lpStr As String, ByVal nCount As Long, lpRect As RECT, ByVal wFormat As Long)
  77. Public Declare Function ExtTextOut& Lib "gdi32" Alias "ExtTextOutA" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long, ByVal wOptions As Long, lpRect As RECT, ByVal lpString As String, ByVal nCount As Long, lpDx As Long)
  78. Public Declare Function GetTabbedTextExtent& Lib "user32" Alias "GetTabbedTextExtentA" (ByVal hDC As Long, ByVal lpString As String, ByVal nCount As Long, ByVal nTabPositions As Long, lpnTabStopPositions As Long)
  79. Public Declare Function GetTextAlign& Lib "gdi32" (ByVal hDC As Long)
  80. Public Declare Function GetTextCharacterExtra& Lib "gdi32" (ByVal hDC As Long)
  81. Public Declare Function GetTextExtentPoint32& Lib "gdi32" Alias "GetTextExtentPoint32A" (ByVal hDC As Long, ByVal lpsz As String, ByVal cbString As Long, lpSize As SIZE)
  82. Public Declare Function InflateRect& Lib "user32" (lpRect As RECT, ByVal X As Long, ByVal Y As Long)
  83. Public Declare Function SetTextAlign& Lib "gdi32" (ByVal hDC As Long, ByVal wFlags As Long)
  84. Public Declare Function SetTextColor& Lib "gdi32" (ByVal hDC As Long, ByVal crColor As Long)
  85. Public Declare Function SetTextJustification& Lib "gdi32" (ByVal hDC As Long, ByVal nBreakExtra As Long, ByVal nBreakCount As Long)
  86. Public Declare Function TabbedTextOut& Lib "user32" Alias "TabbedTextOutA" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long, ByVal lpString As String, ByVal nCount As Long, ByVal nTabPositions As Long, lpnTabStopPositions As Long, ByVal nTabOrigin As Long)
  87. Public Declare Function TextOut& Lib "gdi32" Alias "TextOutA" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long, ByVal lpString As String, ByVal nCount As Long)
  88. #Else
  89. Declare Function DrawText% Lib "user" (ByVal hDC%, ByVal lpStr$, ByVal nCount%, lpRect As RECT, ByVal wFormat%)
  90. Declare Function ExtTextOut% Lib "gdi" (ByVal hDC%, ByVal X%, ByVal Y%, ByVal wOptions%, lpRect As Any, ByVal lpString$, ByVal nCount%, lpDx As Any)
  91. Declare Function ExtTextOutBynum% Lib "gdi" Alias "ExtTextOut" (ByVal hDC%, ByVal X%, ByVal Y%, ByVal wOptions%, ByVal lpRect&, ByVal lpString$, ByVal nCount%, ByVal lpDx&)
  92. Declare Function ExtTextOutByrect% Lib "gdi" Alias "ExtTextOut" (ByVal hDC%, ByVal X%, ByVal Y%, ByVal wOptions%, lpRect As RECT, ByVal lpString$, ByVal nCount%, ByVal lpDx&)
  93. Declare Function GetTabbedTextExtent& Lib "gdi" (ByVal hDC%, ByVal lpString$, ByVal nCount%, ByVal nTabPositions%, lpnTabStopPositions%)
  94. Declare Function GetTextAlign% Lib "gdi" (ByVal hDC%)
  95. Declare Function GetTextCharacterExtra% Lib "gdi" (ByVal hDC%)
  96. Declare Function GetTextExtent& Lib "gdi" (ByVal hDC%, ByVal lpString$, ByVal nCount%)
  97. Declare Sub InflateRect Lib "user" (lpRect As RECT, ByVal X%, ByVal Y%)
  98. Declare Function SetTextAlign% Lib "gdi" (ByVal hDC%, ByVal wFlags%)
  99. Declare Function SetTextColor& Lib "gdi" (ByVal hDC%, ByVal crColor&)
  100. Declare Function SetTextJustification% Lib "gdi" (ByVal hDC%, ByVal nBreakExtra%, ByVal nBreakCount%)
  101. Declare Function TabbedTextOut& Lib "user" (ByVal hDC%, ByVal X%, ByVal Y%, ByVal lpString$, ByVal nCount%, ByVal nTabPositions%, lpnTabStopPositions%, ByVal nTabOrigin%)
  102. Declare Function TextOut% Lib "gdi" (ByVal hDC%, ByVal X%, ByVal Y%, ByVal lpString$, ByVal nCount%)
  103. #End If 'WIN32
  104.  
  105.