home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_1 / DDE_VB / DDE_VB.BAS < prev    next >
Encoding:
BASIC Source File  |  1992-04-02  |  8.6 KB  |  222 lines
  1. DefInt A-Z
  2. Declare Function GetModuleHandle Lib "Kernel" (ByVal lpModuleName As String)
  3. Declare Function GetModuleUsage Lib "Kernel" (ByVal hModule As Integer)
  4.  
  5. ' User Profile Routines (provided by the Microsoft Windows Kernel DLL)
  6. Declare Function GetProfileInt% Lib "Kernel" (ByVal lpAppName$, ByVal lpKeyName$, ByVal nDefault%)
  7. Declare Function GetProfileString% Lib "Kernel" (ByVal lpAppName$, ByVal lpKeyName$, ByVal lpDefault$, ByVal lpReturnedString$, ByVal nSize%)
  8. Declare Function WriteProfileString% Lib "Kernel" (ByVal lpApplicationName$, ByVal lpKeyName$, ByVal lpString$)
  9. Declare Function GetPrivateProfileInt% Lib "Kernel" (ByVal lpApplicationName$, ByVal lpKeyName$, ByVal nDefault%, ByVal lpFilename$)
  10. Declare Function GetPrivateProfileString% Lib "Kernel" (ByVal lpApplicationName$, ByVal lpKeyName$, ByVal lpDefault$, ByVal lpReturnedString$, ByVal nSize%, ByVal lpFilename$)
  11. Declare Function WritePrivateProfileString% Lib "Kernel" (ByVal lpApplicationName$, ByVal lpKeyName$, ByVal lpString$, ByVal lpFilename$)
  12. Declare Function GetWindowsDirectory% Lib "Kernel" (ByVal lpBuffer$, ByVal nSize%)
  13. Declare Function GetSystemDirectory% Lib "Kernel" (ByVal lpBuffer$, ByVal nSize%)
  14.  
  15. ' Functions to get own filename
  16. Global Const GCW_HMODULE = -16
  17. Declare Function GetClassWord% Lib "User" (ByVal hModule%, ByVal nIndex%)
  18. Declare Function GetModuleFileName% Lib "Kernel" (ByVal hModule%, ByVal lpFilename$, ByVal nSize%)
  19.  
  20. ' Function to clear ListBox
  21. Declare Function SendMessage% Lib "user" (ByVal hWnd%, ByVal wMsg%, ByVal wParam%, ByVal lParam&)
  22. Declare Function GetParent Lib "User" (ByVal hWnd As Integer)
  23. Declare Function GetFocus% Lib "user" ()
  24. Declare Function PutFocus% Lib "user" Alias "SetFocus" (ByVal hWnd%)
  25. Declare Function SetCapture% Lib "User" (ByVal hWnd As Integer)
  26. Declare Function GetCapture Lib "User" () As Integer
  27. Declare Sub ReleaseCapture Lib "User" ()
  28.  
  29. ' ClipBoard functions
  30. Declare Function OpenClipboard Lib "User" (ByVal hWnd)
  31. Declare Function CountClipboardFormats Lib "User" ()
  32. Declare Function EnumClipboardFormats Lib "User" (ByVal wFormat)
  33. Declare Function GetClipboardFormatName Lib "User" (ByVal wFormat, ByVal lpString As String, ByVal nMaxCount)
  34. Declare Function CloseClipboard Lib "User" ()
  35.  
  36. ' Booleans
  37. Global Const TRUE = -1
  38. Global Const FALSE = 0
  39.  
  40. ' DDE LinkModes
  41. Global Const NONE = 0
  42. Global Const HOT = 1
  43. Global Const COLD = 2
  44.  
  45. ' Clipboard Formats
  46. Global Const CF_TEXT = 1
  47. Global Const CF_BITMAP = 2
  48. Global Const CF_METAFILE = 3
  49. Global Const CF_SYLK = 4
  50. Global Const CF_DIF = 5
  51. Global Const CF_TIFF = 6
  52. Global Const CF_OEMTEXT = 7
  53. Global Const CF_DIB = 8
  54. Global Const CF_PALETTE = 9
  55.  
  56. Global Const CF_OWNERDISPLAY = &H80
  57. Global Const CF_DSPTEXT = &H81
  58. Global Const CF_DSPBITMAP = &H82
  59. Global Const CF_DSPMETAFILEPICT = &H83
  60.  
  61. ' "Private" formats don't get GlobalFree()'d
  62. Global Const CF_PRIVATEFIRST = &H200
  63. Global Const CF_PRIVATELAST = &H2FF
  64.  
  65. ' "GDIOBJ" formats do get DeleteObject()'d
  66. Global Const CF_GDIOBJFIRST = &H300
  67. Global Const CF_GDIOBJLAST = &H3FF
  68.  
  69. ' MsgBox parameters
  70. Global Const MB_OK = 0                 ' OK button only
  71. Global Const MB_OKCANCEL = 1           ' OK and Cancel buttons
  72. Global Const MB_ABORTRETRYIGNORE = 2   ' Abort, Retry, and Ignore buttons
  73. Global Const MB_YESNOCANCEL = 3        ' Yes, No, and Cancel buttons
  74. Global Const MB_YESNO = 4              ' Yes and No buttons
  75. Global Const MB_RETRYCANCEL = 5        ' Retry and Cancel buttons
  76.  
  77. Global Const MB_ICONSTOP = 16          ' Critical message
  78. Global Const MB_ICONQUESTION = 32      ' Warning query
  79. Global Const MB_ICONEXCLAMATION = 48   ' Warning message
  80. Global Const MB_ICONINFORMATION = 64   ' Information message
  81.  
  82. Global Const MB_DEFBUTTON1 = 0         ' First button is default
  83. Global Const MB_DEFBUTTON2 = 256       ' Second button is default
  84. Global Const MB_DEFBUTTON3 = 512       ' Third button is default
  85.  
  86. ' MsgBox return values
  87. Global Const IDOK = 1                  ' OK button pressed
  88. Global Const IDCANCEL = 2              ' Cancel button pressed
  89. Global Const IDABORT = 3               ' Abort button pressed
  90. Global Const IDRETRY = 4               ' Retry button pressed
  91. Global Const IDIGNORE = 5              ' Ignore button pressed
  92. Global Const IDYES = 6                 ' Yes button pressed
  93. Global Const IDNO = 7                  ' No button pressed
  94.  
  95. ' ErrNum (LinkError)
  96. Global Const USER_CANCELED = -100
  97. Global Const RETURN_WITHOUT_GOSUB = 3
  98. Global Const ILLEGAL_FUNCTION_CALL = 5
  99. Global Const Overflow = 6
  100. Global Const OUT_OF_MEMORY = 7
  101. Global Const SUBSCRIPT_OUT_OF_RANGE = 9
  102. Global Const DUPLICATE_DEFINITION = 10
  103. Global Const DIVISION_BY_ZERO = 11
  104. Global Const TYPE_MISMATCH = 13
  105. Global Const OUT_OF_STRING_SPACE = 14
  106. Global Const STRING_FORMULA_TOO_COMPLEX = 16
  107. Global Const CANT_CONTINUE = 17
  108. Global Const NO_RESUME = 19
  109. Global Const RESUME_WITHOUT_ERROR = 20
  110. Global Const OUT_OF_STACK_SPACE = 28
  111. Global Const SUB_OR_FUNCTION_NOT_DEFINED = 35
  112.  
  113. Global Const ERROR_IN_LOADING_DLL = 48
  114. Global Const INTERNAL_ERROR = 51
  115. Global Const BAD_FILE_NAME_OR_NUMBER = 52
  116. Global Const FILE_NOT_FOUND = 53
  117. Global Const BAD_FILE_MODE = 54
  118. Global Const FILE_ALREADY_OPEN = 55
  119. Global Const DEVICE_IO_ERROR = 57
  120. Global Const FILE_ALREADY_EXISTS = 58
  121. Global Const BAD_RECORD_LENGTH = 59
  122. Global Const DISK_FULL = 61
  123. Global Const INPUT_PAST_END_OF_FILE = 62
  124. Global Const BAD_RECORD_NUMBER = 63
  125. Global Const BAD_FILE_NAME = 64
  126. Global Const TOO_MANY_FILES = 67
  127. Global Const DEVICE_UNAVAILABLE = 68
  128. Global Const PERMISSION_DENIED = 70
  129.  
  130. Global Const DISK_NOT_READY = 71
  131. Global Const RENAME_WITH_DIFFERENT_DRIVE = 74
  132. Global Const PATHFILE_ACCESS_ERROR = 75
  133. Global Const PATH_NOT_FOUND = 76
  134.  
  135. '  DDE Error Constants
  136. Global Const NO_TIMER_AVAILABLE = 260
  137. Global Const DDE_CHANNEL_NOT_CLOSED = 280
  138. Global Const NO_MORE_DDE_CHANNELS = 281
  139. Global Const NO_APPS_RESPONDED = 282
  140. Global Const MULTIPLE_APPS_RESPONDED = 283
  141. Global Const DDE_CHANNEL_LOCKED = 284
  142. Global Const WRONG_DATA_TYPE = 285
  143. Global Const DDE_TIMEOUT = 286
  144. Global Const PRESSED_ALT_KEY_DURING_DDE = 287
  145. Global Const DESTINATION_IS_BUSY = 288
  146. Global Const DDE_DATA_NOT_PROVIDED = 289
  147. Global Const DATA_IN_WRONG_FORMAT = 290
  148. Global Const FOREIGN_APPLICATION_QUIT = 291
  149. Global Const DDE_CLOSED_OR_CHANGED = 292
  150. Global Const NO_CHANNEL_OPEN = 293
  151. Global Const INVALID_DDE_LINK_FORMAT = 294
  152. Global Const MESSAGE_QUEUE_FILLED = 295
  153. Global Const PASTELINK_ALREADY_ACTIVE = 296
  154. Global Const INVALID_LINKTOPIC = 297
  155. Global Const DEVICE_NAMES_IN_FILENAMES = 320
  156. Global Const INVALID_FILE_FORMAT = 321
  157.  
  158. Global Const INVALID_CONTROL_ARRAY_ELEMENT_ITEM = 340
  159. Global Const INVALID_OBJECT_ARRAY_INDEX = 341
  160. Global Const NO_ROOM_CONTROL_ARRAY_ITEM = 342
  161. Global Const OBJECT_NOT_AN_ARRAY = 343
  162. Global Const MUST_SPECIFY_ARRAY_INDEX = 344
  163. Global Const CONTROL_LIMIT = 345
  164. Global Const OBJECT_ALREADY_LOADED = 360
  165. Global Const CANT_LOAD_OR_UNLOAD_THIS_OBJECT = 361
  166. Global Const CANT_UNLOAD_CONTROL = 362
  167. Global Const CUSTOM_CONTROL_ITEM_NOT_FOUND = 363
  168. Global Const OBJECT_WAS_UNLOADED = 364
  169. Global Const UNABLE_TO_UNLOAD = 365
  170. Global Const INVALID_PROPERTY_VALUE = 380
  171.  
  172. Global Const INVALID_PROPERTY_ARRAY_INDEX = 381
  173. Global Const PROPERTY_CANT_BE_SET_AT_RUN_TIME = 382
  174. Global Const ITEM_PROPERTY_IS_READ_ONLY = 383
  175. Global Const FORM_IS_MINIMIZED_OR_MAXIMIZED = 384
  176. Global Const PROPERTY_ARRAY_WITHOUT_INDEX = 385
  177. Global Const PROPERTY_NOT_AVAILABLE_AT_RUN_TIME = 386
  178. Global Const PROPERTY_CANT_BE_SET_ON_THIS_CONTROL = 387
  179. Global Const CANT_SET_VISIBLE_FROM_PARENT_MENU = 388
  180. Global Const FORM_ALREADY_DISPLAYED = 400
  181. Global Const MODAL_FORM_OPEN = 401
  182. Global Const MODAL_FORM_ON_TOP = 402
  183. Global Const INVALID_OBJECT_REFERENCE = 420
  184.  
  185. Global Const METHOD_NOT_APPLICABLE = 421
  186. Global Const PROPERTY_ITEM_NOT_FOUND = 422
  187. Global Const PROPERTY_OR_CONTROL_ITEM_NOT_FOUND = 423
  188. Global Const OBJECT_REQUIRED = 424
  189. Global Const INVALID_OBJECT_USE = 425
  190. Global Const NO_CURRENTLY_ACTIVE_CONTROL = 430
  191. Global Const NO_CURRENTLY_ACTIVE_FORM = 431
  192. Global Const INVALID_CLIPBOARD_FORMAT = 460
  193. Global Const NON_MATCHING_DATA_FORMAT = 461
  194. Global Const CANT_CREATE_AUTOREDRAW_IMAGE = 480
  195. Global Const INVALID_PICTURE = 481
  196. Global Const PRINTER_ERROR = 482
  197. Global Const CANT_EMPTY_CLIPBOARD = 520
  198. Global Const CANT_OPEN_CLIPBOARD = 521
  199.  
  200. Type IniAppType
  201.        AppName As String
  202. End Type
  203.  
  204. Type IniTopicsType
  205.        Topic As String
  206. End Type
  207.  
  208. Type IniItemsType
  209.        item As String
  210. End Type
  211.  
  212. Type IniExecuteType
  213.        Instruction As String
  214. End Type
  215.  
  216. Global arIniApps()  As IniAppType
  217. Global arExecutes() As IniExecuteType
  218. Global arTopics() As IniTopicsType
  219. Global arItems() As IniItemsType
  220. Global arPokes() As IniExecuteType
  221.  
  222.