home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD83797302000.psc / Module1.bas next >
Encoding:
BASIC Source File  |  2000-07-12  |  6.4 KB  |  154 lines
  1. Attribute VB_Name = "Module1"
  2. Option Explicit
  3.  
  4. Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
  5. Public Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
  6. Public Declare Function SendMessageStr Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
  7. Public Declare Function SendMessageRef Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, wParam As Any, lParam As Any) As Long
  8. Public Const WM_USER = &H400
  9.  
  10. ' /* New masks and effects -- a parenthesized asterisk indicates that
  11. '   the data is stored by RichEdit2.0, but not displayed */
  12.  
  13. Public Const CFM_SMALLCAPS = &H40&                 ' /* (*)  */
  14. Public Const CFM_ALLCAPS = &H80&                   ' /* (*)  */
  15. Public Const CFM_HIDDEN = &H100&                   ' /* (*)  */
  16. Public Const CFM_OUTLINE = &H200&                  ' /* (*)  */
  17. Public Const CFM_SHADOW = &H400&                   ' /* (*)  */
  18. Public Const CFM_EMBOSS = &H800&                   ' /* (*)  */
  19. Public Const CFM_IMPRINT = &H1000&                 ' /* (*)  */
  20. Public Const CFM_DISABLED = &H2000&
  21. Public Const CFM_REVISED = &H4000&
  22.  
  23. Public Const CFM_BACKCOLOR = &H4000000
  24. Public Const CFM_LCID = &H2000000
  25. Public Const CFM_UNDERLINETYPE = &H800000         ' /* (*)  */
  26. Public Const CFM_WEIGHT = &H400000
  27. Public Const CFM_SPACING = &H200000               ' /* (*)  */
  28. Public Const CFM_KERNING = &H100000               ' /* (*)  */
  29. Public Const CFM_STYLE = &H80000                  ' /* (*)  */
  30. Public Const CFM_ANIMATION = &H40000              ' /* (*)  */
  31. Public Const CFM_REVAUTHOR = &H8000&
  32.  
  33. Public Const CFE_SUBSCRIPT = &H10000               ' /* Superscript and subscript are */
  34. Public Const CFE_SUPERSCRIPT = &H20000            ' /*  mutually exclusive           */
  35.  
  36. Public Const CFM_SUBSCRIPT = CFE_SUBSCRIPT Or CFE_SUPERSCRIPT
  37. Public Const CFM_SUPERSCRIPT = CFM_SUBSCRIPT
  38.  
  39. 'Public Const CFM_EFFECTS2 = (CFM_EFFECTS Or CFM_DISABLED Or CFM_SMALLCAPS Or CFM_ALLCAPS _
  40. '                    Or CFM_HIDDEN Or CFM_OUTLINE Or CFM_SHADOW Or CFM_EMBOSS _
  41. '                    Or CFM_IMPRINT Or CFM_DISABLED Or CFM_REVISED _
  42. '                    Or CFM_SUBSCRIPT Or CFM_SUPERSCRIPT Or CFM_BACKCOLOR)
  43.  
  44. 'Public Const CFM_ALL2 = (CFM_ALL Or CFM_EFFECTS2 Or CFM_BACKCOLOR Or CFM_LCID _
  45. '                    Or CFM_UNDERLINETYPE Or CFM_WEIGHT Or CFM_REVAUTHOR _
  46. '                    Or CFM_SPACING Or CFM_KERNING Or CFM_STYLE Or CFM_ANIMATION)
  47.  
  48. Public Const CFE_SMALLCAPS = CFM_SMALLCAPS
  49. Public Const CFE_ALLCAPS = CFM_ALLCAPS
  50. Public Const CFE_HIDDEN = CFM_HIDDEN
  51. Public Const CFE_OUTLINE = CFM_OUTLINE
  52. Public Const CFE_SHADOW = CFM_SHADOW
  53. Public Const CFE_EMBOSS = CFM_EMBOSS
  54. Public Const CFE_IMPRINT = CFM_IMPRINT
  55. Public Const CFE_DISABLED = CFM_DISABLED
  56. Public Const CFE_REVISED = CFM_REVISED
  57.  
  58. ' /* NOTE: CFE_AUTOCOLOR and CFE_AUTOBACKCOLOR correspond to CFM_COLOR and
  59. '   CFM_BACKCOLOR, respectively, which control them */
  60. Public Const CFE_AUTOBACKCOLOR = CFM_BACKCOLOR
  61.  
  62. ' /* Underline types */
  63. Public Const CFU_CF1UNDERLINE = &HFF&      ' /* map charformat's bit underline to CF2.*/
  64. Public Const CFU_INVERT = &HFE&            ' /* For IME composition fake a selection.*/
  65. Public Const CFU_UNDERLINEDOTTED = &H4&    ' /* (*) displayed as ordinary underline  */
  66. Public Const CFU_UNDERLINEDOUBLE = &H3&    ' /* (*) displayed as ordinary underline  */
  67. Public Const CFU_UNDERLINEWORD = &H2&      ' /* (*) displayed as ordinary underline  */
  68. Public Const CFU_UNDERLINE = &H1&
  69. Public Const CFU_UNDERLINENONE = 0&
  70.  
  71. ' /* CHARFORMAT masks */
  72. Public Const CFM_BOLD = &H1
  73. Public Const CFM_ITALIC = &H2
  74. Public Const CFM_UNDERLINE = &H4
  75. Public Const CFM_STRIKEOUT = &H8
  76. Public Const CFM_PROTECTED = &H10
  77. Public Const CFM_LINK = &H20&                  ' /* Exchange hyperlink extension */
  78. Public Const CFM_SIZE = &H80000000
  79. Public Const CFM_COLOR = &H40000000
  80. Public Const CFM_FACE = &H20000000
  81. Public Const CFM_OFFSET = &H10000000
  82. Public Const CFM_CHARSET = &H8000000
  83.  
  84. ' /* CHARFORMAT effects */
  85. Public Const CFE_BOLD = &H1&
  86. Public Const CFE_ITALIC = &H2&
  87. Public Const CFE_UNDERLINE = &H4&
  88. Public Const CFE_STRIKEOUT = &H8&
  89. Public Const CFE_PROTECTED = &H10&
  90. Public Const CFE_LINK = &H20&
  91. Public Const CFE_AUTOCOLOR = &H40000000       ' /* NOTE: this corresponds to */
  92.                                         ' /* CFM_COLOR, which controls it */
  93. Public Const yHeightCharPtsMost = 1638&
  94.  
  95. ' /* RichEdit messages */
  96.  
  97. ' #ifndef WM_CONTEXTMENU
  98. Public Const WM_CONTEXTMENU = &H7B&
  99. ' #End If
  100.  
  101. ' #ifndef WM_PRINTCLIENT
  102. Public Const WM_PRINTCLIENT = &H318&
  103. ' #End If
  104.  
  105. ' #ifndef EM_GETLIMITTEXT
  106. 'public Const EM_GETLIMITTEXT = (WM_USER + 37)
  107. ' #End If
  108.  
  109. ' #ifndef EM_POSFROMCHAR
  110. 'public Const EM_POSFROMCHAR = (WM_USER + 38)
  111. 'public Const EM_CHARFROMPOS = (WM_USER + 39)
  112. ' #End If
  113.  
  114. ' #ifndef EM_SCROLLCARET
  115. 'public Const EM_SCROLLCARET = (WM_USER + 49)
  116. ' #End If
  117. Public Const EM_CANPASTE = (WM_USER + 5yi If
  118. Public wweALIC = &H2&
  119. PubM_USER  N &H10&
  120. Public ublic Const EM_CANPASTE = (WM_USER + 5yi If
  121. PuSCFM_IM_U = &H7B&
  122. ' #End IS7B&
  123. ' Const If
  124. PuSCFM_IM_U = &H7B&
  125. ' #End CFM_Reich RBH7B&&&&d CFM_ReE = (WM_USER + 5yi IfePublic uz6CHAA_Reich RBH7B&&&&d CFM_teE = (WM_USER + 5yi I6nd If
  126.  
  127. ' #f
  128. PAAXT ......   ' /* (*)  */
  129. PublR= (WM_UWEIichR' ubL(WM_USER + 39)
  130. ' #"+ 5yi If
  131. Public wweALEM_SCROLLCARET
  132. 'puwcConst enst EM_CANPAStSTE NPublic Const CFM_h.....   ' /*IfePublm2oU+ 5yi If&H10&
  133. Public ubliceEB.....   ' /*IfePublm2oU8ePublm2oU+ 5yi If&H1      ER + 5yi I6nd I 
  134. Public ubliceEB2st EM_XXT  corAs LonIoY
  135. ' reDmU
  136. PublicpBteSER + 5yi w6nd I 
  137. Punf&fpRgAe COLOCAR'Iaf'T U
  138. P 
  139. e'T EN&&d IdTH7B&&&&d lic ubliCC I 
  140. PaEM_CANPASTE = (WM_USERelsE =lERAf&H10&t/aY'LOCAR'Iaf'T U
  141. P 
  142. e'T Epr w6nvSn(' u6
  143. e'T Epr w6nvSn('  ERA/
  144. PubCANPASTU_INNw6nvSn(' u6
  145. e'T Epr w6Val lParam As Long) As LyCn('  ERnvSnAStSTEParam AsnASt u6
  146. e'T Epr w6Val lParamSt  If&H10&
  147. Public ublicXXT  corAs LonIoY
  148. 'NS= &H8&FE&ENBSteCaramSt rm (*) displayed as ordmSt rm HARI6nvSn(' u6
  149. e'T gR +eParam As Long) As L7UuI6nvSntSA ocdaM_StmSt  If&H10&
  150. PubliliceEB.UuI
  151. ' sblicvSntSA ocdaM_St5v
  152. PubliliY ceEB.UuI
  153. ' sblddtn0&
  154. PubliliceEB.UuISFROANPASTU(uSA ocdaMUSe8' /* Underline typesTSTU(    ER erline tSTU(    ER eRe ubM_USER  N &H1reWn