home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PROG_BAS / OLEDEMO.ZIP / MAIN.FRM (.txt) < prev    next >
Visual Basic Form  |  1994-01-26  |  7KB  |  204 lines
  1. frmMain
  2. Save and Load Ole Objects
  3. Form15
  4. Frame2
  5. Object Loaded
  6. LabelUnsaved
  7. LabelFormat
  8. LabelFormat
  9. LabelLoaded
  10. LabelLoaded
  11. Frame1
  12. Objects in Database
  13. ListObject
  14.     mnuRecord
  15. &Record
  16. mnuRecordLoad
  17. &Load
  18. mnuRecordSave
  19. &Save...
  20. mnuRecordDelete
  21. &Delete
  22. mnuRecordSep1
  23. mnuRecordExit
  24. &Exit
  25.     mnuObject
  26. &Object
  27. mnuObjectInsert
  28. &Insert...
  29. mnuObjectDelete
  30. &Delete
  31. mnuObjectEdit
  32. &Edit
  33. mnuObjectVerb
  34. List1_Click
  35.     Form_Load
  36. DATABASE_NAME
  37. CONNECT_STRING
  38. mnuObjectExit_Click
  39. mnuObjectNew_Click
  40. mnuObjectLoad_Click
  41. mnuObjectSave_Click:
  42. OleDirty
  43.     OleLoaded
  44. OleActivated
  45. ListObject_Click_
  46. LoadListObject
  47. ListObject
  48. Dynasetg
  49. Snapshot6
  50. TextObject
  51. mnuObject_Click
  52. mnuObjectLoad
  53. Enabled
  54. mnuObjectDelete
  55. mnuObjectSave
  56. Text'
  57. CopyFieldToOleE
  58. Field
  59. Ole1A
  60. CopyOleToField_
  61. LabelLoaded
  62. Captionm
  63. mnuObjectDelete_Click
  64. LoadListObjects
  65. mnuObjectInsert_Clicku
  66. mnuObjectActivate_Click$
  67. LargestCurrentVerb
  68. Action
  69. OLE_FETCH_VERBS]
  70. ObjectVerbsCountz
  71. MDIfrmg
  72. ActiveForm
  73. OLEType[
  74. OLE_NONE)
  75. mnuVerbs4
  76. ObjectVerbsP
  77. Visible
  78. VerbMax
  79. PasteOK
  80. mnuPaste
  81. mnuSpecial
  82. mnuFileExit_Click
  83. mnuFileLoad_Click
  84. mnuFileSave_Click:
  85. mnuFile_Click
  86. mnuFileLoad
  87. mnuFileDeleteZ
  88. mnuFileSavej
  89. mnuObjectVerb_
  90. NewObjectCreatedQ
  91. NewOleObject
  92. OLE_MAX_VERBS
  93. mnuObjectVerb_Click
  94. index
  95. OLE_ACTIVATE
  96. OLE_MAX_VERB5
  97. OLE_INSERT_OBJ_DLG
  98. mnuObjectInsert
  99. mnuObjectEditG
  100. mnuFileDelete_Click;
  101. OLE_DELETE
  102. MousePointer
  103. ListObject_DblClick
  104. mnuFileLoad_Clicked
  105.     ListIndex
  106. Listr
  107. sName
  108. Enddo
  109. Elser
  110. CopyAccessOleToField
  111. CopyFieldToAccessOle
  112. HostName
  113. OLE1_Updated
  114. Code*
  115.     mnuRecordJ
  116. Click
  117. mnuRecord_Click
  118. mnuRecordDelete_Click
  119. mnuRecordExit_Click
  120. mnuRecordLoad_Click
  121. mnuRecordSave_Click
  122. mnuRecordLoadN
  123. mnuRecordDeleteo
  124. mnuRecordSave
  125. Image1_ClickG
  126. LabelLoaded_Click
  127. sDocumentName
  128. frmDocumentNameW
  129. TextDocument
  130. TextDocumentName0
  131. iDocumentType
  132. OptionDocumentType
  133. Value
  134. DOCUMENT_TYPE_ACCESS1X
  135. CopyFieldToAccess1xOle!
  136. CopyAccess1xOleToField|
  137. Frame1_DragDropw
  138. Source
  139. Controlt
  140. Frame2_DragDrop
  141. DOCUMENT_TYPE_DEFAULT
  142. DOCUMENT_TYPE_ACCESS1XOLE}
  143. DOCUMENT_TYPE_OLE2
  144.  DOCUMENT_TYPE_ACCESS1XPAINTBRUSH
  145. MeEnd
  146. Form_Unload
  147. Cancel
  148. CopyOle2ToField
  149. CopyFieldToOle2
  150. Label1_Click
  151. DocumentFormatDescription
  152. iType
  153. LabelFormat
  154. DisplayType
  155. LabelUnsaved
  156. OLE_CHANGED
  157. DocumentFormatDescription
  158. 0 Access 1.x Ole
  159. 1 Ole2
  160. 2 Access 1.x Paintbrush
  161. Form_Load
  162. Form_Unload
  163. ListObject_DblClick
  164. LoadListObject
  165. Clear list of items
  166. Create dynaset
  167. select DocumentName from Document
  168.  order by DocumentName
  169. DocumentName
  170. mnuObject_Click
  171. mnuObjectDelete_Click
  172. mnuObjectInsert_Click
  173. Delete Current Object?
  174. Untitled
  175. mnuObjectVerb_Click
  176. mnuRecord_Click
  177. mnuRecordDelete_Click
  178. Delete Object 
  179.  from Database?
  180. delete from Document
  181.  where DocumentName = "
  182. mnuRecordExit_Click
  183. mnuRecordLoad_Click
  184. Create dynaset
  185. select DocumentType, DocumentOle from Document
  186.  where DocumentName = "
  187. Could not find 
  188. DocumentType
  189. DocumentOle
  190. DocumentOle
  191. mnuRecordSave_Click
  192. Set form controlsv
  193. Test global for good name
  194. select DocumentName, DocumentType, DocumentOle from Document
  195.  where DocumentName = "
  196. DocumentName
  197. DocumentType
  198. DocumentOle
  199. DocumentOle
  200. Reload list of objects
  201. Call DoEvents so Updated event for Ole control is triggered)
  202. NewOleObject
  203. OLE1_Updated
  204.