home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 November / Pcwk1197.iso / LOTUS / Eng-ins / ACROREAD / SUITE / DW09_S4.LSS < prev    next >
Encoding:
Text File  |  1996-07-09  |  3.0 KB  |  73 lines
  1. ' This example contains two examples, one 
  2. '  opens the clip art browser, the other, a variation
  3. ' on the first, opens the diagram browser.
  4.  
  5.  
  6. ' Script to launch clip art browser with a
  7. ' specified clip art file.  
  8. ' This script consists of two subs.  The first is
  9. ' LaunchSymBrowser, the primary sub that actually 
  10. ' opens the clip art browser.  The second
  11. ' sub is the sub that calls LaunchSymBrowser with a parameter
  12. ' indicating whether the sub should open the clip art 
  13. ' browser.
  14. ' There are two complete examples each
  15. ' containing two subs.  One example opens the clip art, 
  16. ' browser, the other opens the diagram browser.
  17. ' Once the browser is open, the user 
  18. ' selects which item to place on the page.
  19. ' The sub, LaunchSymBrowser, looks for an existing
  20. ' placement block (a SymbolPlacementBlock in this case)
  21. ' on the current page and then opens the
  22. ' clip art browser so that the user can select clip art 
  23. ' for that placement block.
  24. Private Sub LaunchSymBrowser(SymbolFile As String)
  25.     Dim SymPB As DrawObject
  26. ' The following line locates the placement block named
  27. ' SymbolPlacementBlock1 on the current page and 
  28. ' then assigns it to the object variable, SymPB.
  29. ' To do this, you have to know the name of 
  30. ' the placement block.
  31.     Set SymPB = _ 
  32.     CurrentPage.FindObject("SymbolPlacementBlock1")
  33. ' The next line uses the BrowseSymbols method of the 
  34. ' PlacementBlock class to open the symbol browser
  35. ' with the name of the clip art file that 
  36. ' has been passed to this sub.  Note the use of
  37. ' the TemplateDir property to indicate the path of
  38. ' the file.
  39.     SymPB.PlacementBlock.BrowseSymbols CurrentApplication._
  40.     Preferences.TemplateDir + SymbolFile
  41. ' Note: you could write a variation on this sub that first
  42. ' creates the placement block, positions it on the page,
  43. ' and then opens the symbol browser.
  44. End Sub
  45. ' The following sub, PeopleSymbol, calls the 
  46. ' LanuchSymBrowser sub with the name of the clip art file
  47. ' that it will use.
  48. Sub PeopleSymbol()
  49.     LaunchSymBrowser("people.sym")
  50. End Sub
  51. ' Launching the diagram browser
  52. ' The following sub, LaunchDgmBrowser, does the same thing as was ' described in the previous example. However, in this case, the 
  53. ' sub opens the diagram browser.
  54. ' The sub, LaunchDgmBrowser, looks for an existing diagram
  55. ' placement block on the current page, then opens the diagram
  56. ' browser so that the user's selection will go into that
  57. ' placement block.
  58. Private Sub LaunchDgmBrowser(DiagramFile As String)
  59.     Dim DgmPB As DrawObject
  60.     Set DgmPB = _
  61.     CurrentPage.FindObject("DiagramPlacementBlock1")
  62. ' The next line uses the BrowseDiagrams method of the 
  63. ' PlacementBlock class to open the diagram browser.
  64.     DgmPB.PlacementBlock.BrowseDiagrams CurrentApplication. _
  65.     Preferences.TemplateDir + DiagramFile
  66. End Sub
  67. ' The following sub, GanttDiagram, calls the 
  68. ' LaunchDgmBrowser sub with the name of the file that
  69. ' contains the diagram that is used in this example.
  70. Sub GanttDiagram()
  71.     LaunchDgmBrowser("gantt.dgm")
  72. End Sub
  73.