home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_1 / DDE_VB / DDE_VB.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1992-07-02  |  13.9 KB  |  319 lines
  1. DDE_VB
  2. DDE_VB
  3. Form1
  4. cmQuit
  5. txApplication
  6. Application
  7. txTopic
  8. Topic
  9. txItem
  10.     cbDDE_App
  11. cbDDE_Topic
  12. cbDDE_Item
  13.     cmRequest
  14. Request
  15. tbError
  16. cmDisconnect
  17. Disconnect
  18.     cbExecute
  19.     cmExecute
  20. Execute
  21. cbPoke
  22. cmPoke
  23. tbText
  24. tbDDE
  25. cmClipboard
  26.     Clipboard
  27. tbStatus
  28. mnFile
  29. &File
  30. miFileEdit
  31. &Edit INI File
  32. miFileExit
  33. E&xit
  34. mnSave
  35. &Save
  36. m    miSaveApp
  37. &Application
  38. miSaveTopic
  39. &Topic
  40. miSaveItem
  41. &Item
  42. miBar1
  43. miSaveExecute
  44. &Execute
  45. miBar2
  46. miSavePoke
  47. &Poke
  48. mnHelp
  49. &Help
  50. miHelpAbout
  51. &About
  52. NO_APP/
  53. MULTIPLE_APPSh
  54. WRONG_DATA_TYPE\
  55. WM_USER
  56. LB_RESETCONTENT
  57. CB_RESETCONTENT
  58. DDEApp'
  59. DDETopic
  60. DDEItemo
  61.     ValidLink
  62. execk
  63. TopicJ
  64. clipnameP
  65. INIFILE
  66. INI_APPS\
  67. HelpFilePath
  68. cmExecute_Click
  69. cmExecuteError
  70. tbError
  71. text'
  72. tbDDEQ
  73.     cbExecute
  74.     DDE_Error
  75. MakeLink
  76. Window
  77. handle[
  78. ErrCon
  79. MakeLinkError
  80. GetModuleHandle
  81. MB_ICONQUESTION
  82. MB_OKCANCELO
  83. USER_CANCELED
  84.     LinkTopict
  85. LinkItem
  86. LinkMode]
  87. COLD*
  88. StuffBox
  89. tbText%
  90. TRUE[
  91. CmRequest_Click
  92. ErrReq{
  93. cmRequestError
  94.     cmRequest
  95. CaptionQ
  96.     cbDDE_App
  97. cbDDE_Topic
  98. cbDDE_Item
  99. FALSE$
  100. cmDisconnect
  101. VisibleG
  102.     cmExecute!
  103. Enabledz
  104. cmPoke
  105. cbPoke|
  106. CmQuit_Click
  107. MousePointer
  108. cmQuitErrorf
  109. DDE_VB
  110.     Form_Load
  111. Initialize
  112. FilePathk
  113. hModule
  114. GetClassWord
  115. hWnd>
  116. GCW_HMODULEI
  117. zBuff`
  118. GetModuleFileName8
  119. sBuff
  120. cbDDE_Item_DropDown
  121. ClearComboBox
  122. Count2h
  123. GetPrivateProfileIntv
  124. arItems
  125. GetPrivateProfileString
  126. cbDDE_Topic_DropDown
  127. arTopics
  128. cbDDE_App_DropDownC
  129. Count
  130.     arIniApps
  131. AppName
  132. cbDDE_App_GotFocusz
  133. tbStatus6
  134. cbDDE_Topic_GotFocusM
  135. cbDDE_App_LostFocus
  136. cbDDE_Topic_LostFocus
  137. cbDDE_App_Change
  138. cmDisconnect_click
  139. cbDDE_Topic_Change
  140. cmDisconnectError
  141. cbDDE_Item_GotFocus
  142. cbDDE_Item_LostFocus
  143. cbExecute_DropDown
  144. arExecutesH
  145. Instruction6
  146. errValu
  147. DecodeErrorF
  148. hWndOld
  149. GetFocus
  150. hWindow
  151.     GetParent
  152. SendMessagec
  153. PutFocus
  154. ClearListBox
  155. cmReqSave_Click
  156. action
  157. WritePrivateProfileString
  158. cbPoke_DropDown
  159. arPokes
  160. cmClipboard_Click
  161. OpenClipboard
  162. CountClipboardFormats
  163. EnumClipboardFormats
  164. GetClipboardFormatName
  165. CloseClipboard
  166. cmPoke_Click
  167. cmPokeError
  168. miHelpAbout_Click
  169.     AboutForm
  170. miSaveApp_Click
  171. miSaveTopic_Click    
  172. miSaveItem_Click 
  173. miSaveExecute_Click4
  174. miSavePoke_ClickO
  175. miFileEdit_Click
  176. miFileExit_Click
  177. miFileExitErrorr
  178. DDE_VB.INI
  179. Applications
  180. cmExecute_Click
  181. MakeLink
  182. No application responded to DDE initiate.  Attempt to start 
  183. While GetModuleUsage(handle) > 1
  184.  Multiple apps running
  185. Select Case ValidLink
  186.  Case SUCCESSi
  187.  CmConnect.Caption = "&Disconnect"
  188.  ValidLink = Truen
  189.  tbDDE.Visible = True"
  190.  tbDDE.LinkRequest
  191.  Case USER_CANCELED, NO_APP, MULTIPLE_APPS
  192.  BreakLink
  193.  Exit Subk
  194.  Case Else
  195.  Stop 
  196. End Select
  197. CmRequest_Click
  198. Connect"&
  199. Request"
  200. Request"&
  201. CmQuit_Click
  202. Form_Load
  203. Connect"
  204. cbDDE_Item_DropDown
  205. Items"
  206. cbDDE_Topic_DropDown
  207. Topics
  208. Topic"
  209. cbDDE_App_DropDown
  210. Applications
  211. Applications
  212. StuffBox
  213. cbDDE_App_GotFocus
  214. Select / Enter Application name to connect to...
  215. cbDDE_Topic_GotFocus
  216. Select / Enter Topic name (e.g. SYSTEM)...
  217. cbDDE_App_LostFocus
  218. cbDDE_Topic_LostFocus
  219. cbDDE_App_Change
  220. cbDDE_Topic_Change
  221. cmDisconnect_click
  222. Connect"
  223. cbDDE_Item_GotFocus
  224. Select / Enter the Item to get (cannot be blank)..."
  225. cbDDE_Item_LostFocus
  226. cbExecute_DropDown
  227. Executes
  228. Execute"
  229. DDE_Error
  230. ClearComboBox
  231. ClearListBox
  232. cmReqSave_Click
  233.  Check for valid link first
  234.  If App doesn't exist in array then
  235.  Add to Apps
  236.  If Topic doesn't exist in array then
  237.  Add to Topics
  238.  If Item doesn't exist in array then
  239.  Add to Itemsn
  240. Applications
  241. Applications
  242. Applications
  243. Applications
  244. Topics
  245. Topic"
  246. cbPoke_DropDown
  247. Pokes"
  248. cmClipboard_Click
  249. CountClipboardFormats ="
  250.  "Private" formats &H200 to &H2FF
  251. (Private)"
  252.  "GDIOBJ" formats  &H300 to &H3FF
  253. (GDIOBJ)
  254.  CF_TEXT
  255. (Built In)
  256. CF_TEXT"
  257.  CF_BITMAP
  258. (Built In)
  259. CF_BITMAP"
  260.  CF_METAFILE
  261. (Built In)
  262. CF_METAFILE"
  263.  CF_SYLK
  264. (Built In)
  265. CF_SYLK"
  266.  CF_DIF)
  267. (Built In)
  268. CF_DIF
  269.  CF_TIFF
  270. (Built In)
  271. CF_TIFF"
  272.  CF_OEMTEXT
  273. (Built In)
  274. CF_OEMTEXT
  275.  CF_DIB)
  276. (Built In)
  277. CF_DIB
  278.  CF_PALETTE
  279. (Built In)
  280. CF_DIB
  281.  CF_OWNERDISPLAY = &H80D
  282. (Built In)
  283. CF_OWNERDISPLAY"
  284.  CF_DSPTEXT = &H81
  285. (Built In)
  286. CF_DSPTEXT
  287.  CF_DSPBITMAP = &H82
  288. (Built In)
  289. CF_DSPBITMAP
  290.  CF_DSPMETAFILEPICT = &H83
  291. (Built In)
  292. CF_DSPMETAFILEPICT
  293. (Unknown)"
  294. Initialize
  295.  Set general constants that cannot be declared:
  296. cmPoke_Click
  297. miHelpAbout_Click
  298. miSaveApp_Click
  299. Applications
  300. Applications
  301. Applications
  302. miSaveTopic_Click
  303. Topics
  304. Topics
  305. Topic"
  306. miSaveItem_Click
  307. Items"
  308. Items"
  309. miSaveExecute_Click
  310. Executes
  311. Executes
  312. Execute"
  313. miSavePoke_Click
  314. Pokes"
  315. Pokes"
  316. miFileEdit_Click
  317. NOTEPAD C:\WINDOWS\DDE_VB.INI"
  318. miFileExit_Click
  319.