home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 November / pcwk_11_98a.iso / Wtestowe / Vistdtk / Install / Data.Z / VBSamples.FRM < prev    next >
Text File  |  1997-06-25  |  6KB  |  145 lines
  1. VERSION 4.00
  2. Begin VB.Form frmVBSamples 
  3.    Caption         =   "VB Samples"
  4.    ClientHeight    =   3735
  5.    ClientLeft      =   1140
  6.    ClientTop       =   2445
  7.    ClientWidth     =   4455
  8.    Height          =   4140
  9.    Left            =   1080
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   3735
  12.    ScaleWidth      =   4455
  13.    Top             =   2100
  14.    Width           =   4575
  15.    Begin VB.CommandButton cmdCancel 
  16.       Caption         =   "Cancel"
  17.       Height          =   375
  18.       Left            =   2280
  19.       TabIndex        =   3
  20.       Top             =   3120
  21.       Width           =   1575
  22.    End
  23.    Begin VB.CommandButton cmdExecute 
  24.       Caption         =   "Execute"
  25.       Height          =   375
  26.       Left            =   600
  27.       TabIndex        =   2
  28.       Top             =   3120
  29.       Width           =   1575
  30.    End
  31.    Begin VB.ListBox lstProcs 
  32.       Height          =   2400
  33.       Left            =   480
  34.       TabIndex        =   0
  35.       Top             =   480
  36.       Width           =   3495
  37.    End
  38.    Begin VB.Label Label1 
  39.       Caption         =   "Select the sample program to execute"
  40.       Height          =   255
  41.       Left            =   480
  42.       TabIndex        =   1
  43.       Top             =   240
  44.       Width           =   3495
  45.    End
  46. End
  47. Attribute VB_Name = "frmVBSamples"
  48. Attribute VB_Creatable = False
  49. Attribute VB_Exposed = False
  50. ' -----------------------------------------------------------------------------
  51. ' Copyright (C) 1997 Visio Corporation. All rights reserved.
  52. '
  53. ' You have a royalty-free right to use, modify, reproduce and distribute
  54. ' the Sample Application Files (and/or any modified version) in any way
  55. ' you find useful, provided that you agree that Visio has no warranty,
  56. ' obligations or liability for any Sample Application Files.
  57. ' -----------------------------------------------------------------------------
  58. Option Explicit
  59.  
  60. Private Sub cmdCancel_Click()
  61.     Unload Me
  62. End Sub
  63.  
  64. Private Sub cmdExecute_Click()
  65.     Dim SelectedProc As String
  66.     If lstProcs.ListIndex <> -1 Then
  67.         SelectedProc = lstProcs.List(lstProcs.ListIndex)
  68.         Select Case SelectedProc
  69.             Case "AddGeometry": AddGeometry
  70.             Case "AddMenu": AddMenu
  71.             Case "AddMenuItem": AddMenuItem
  72.             Case "AddShortcutMenuItem": AddShortcutMenuItem
  73.             Case "AddToolbarButton": AddToolbarButton
  74.             Case "ChangeToolbarButtonIcon": ChangeToolbarButtonIcon
  75.             Case "ChangeToolbarButtonPriority": ChangeToolbarButtonPriority
  76.             Case "DeleteAccelItem": DeleteAccelItem
  77.             Case "DeleteHierarchicalMenuItem": DeleteHierarchicalMenuItem
  78.             Case "DeleteMenu": DeleteMenu
  79.             Case "DeleteMenuItem": DeleteMenuItem
  80.             Case "DeleteToolbarButton": DeleteToolbarButton
  81.             Case "DropManyShapes": DropManyShapes
  82.             Case "ExtractCustomProperties": ExtractCustomProperties
  83.             Case "GetAllDocNames": GetAllDocNames
  84.             Case "GetDocName": GetDocName
  85.             Case "GetFormulaResults": GetFormulaResults
  86.             Case "GetSelectedShapes": GetSelectedShapes
  87.             Case "GetTheFormulas": GetTheFormulas
  88.             Case "GlueControlHandle": GlueControlHandle
  89.             Case "GlueSelectionHandle": GlueSelectionHandle
  90.             Case "GlueToGuide": GlueToGuide
  91.             Case "HelloWorld": HelloWorld
  92.             Case "IterateGeometry": IterateGeometry
  93.             Case "IteratePages": IteratePages
  94.             Case "ListLayers": ListLayers
  95.             Case "ListStyles": ListStyles
  96.             Case "NoVisioUI": NoVisioUI
  97.             Case "RestoreBuiltInUI": RestoreBuiltInUI
  98.             Case "SetTheFormulas": SetTheFormulas
  99.             Case "ShapeCounter": ShapeCounter
  100.             Case "ShowPageConnections": ShowPageConnections
  101.             Case "TurnOffGrid": TurnOffGrid
  102.             Case "TurnOffRulers": TurnOffRulers
  103.         End Select
  104.     End If
  105.  
  106. End Sub
  107.  
  108. Private Sub Form_Load()
  109.     lstProcs.AddItem ("AddGeometry")
  110.     lstProcs.AddItem ("AddMenu")
  111.     lstProcs.AddItem ("AddMenuItem")
  112.     lstProcs.AddItem ("AddShortcutMenuItem")
  113.     lstProcs.AddItem ("AddToolbarButton")
  114.     lstProcs.AddItem ("ChangeToolbarButtonIcon")
  115.     lstProcs.AddItem ("ChangeToolbarButtonPriority")
  116.     lstProcs.AddItem ("DeleteAccelItem")
  117.     lstProcs.AddItem ("DeleteHierarchicalMenuItem")
  118.     lstProcs.AddItem ("DeleteMenu")
  119.     lstProcs.AddItem ("DeleteMenuItem")
  120.     lstProcs.AddItem ("DeleteToolbarButton")
  121.     lstProcs.AddItem ("DropManyShapes")
  122.     lstProcs.AddItem ("ExtractCustomProperties")
  123.     lstProcs.AddItem ("GetAllDocNames")
  124.     lstProcs.AddItem ("GetDocName")
  125.     lstProcs.AddItem ("GetFormulaResults")
  126.     lstProcs.AddItem ("GetSelectedShapes")
  127.     lstProcs.AddItem ("GetTheFormulas")
  128.     lstProcs.AddItem ("GlueControlHandle")
  129.     lstProcs.AddItem ("GlueSelectionHandle")
  130.     lstProcs.AddItem ("GlueToGuide")
  131.     lstProcs.AddItem ("HelloWorld")
  132.     lstProcs.AddItem ("IterateGeometry")
  133.     lstProcs.AddItem ("IteratePages")
  134.     lstProcs.AddItem ("ListLayers")
  135.     lstProcs.AddItem ("ListStyles")
  136.     lstProcs.AddItem ("NoVisioUI")
  137.     lstProcs.AddItem ("RestoreBuiltInUI")
  138.     lstProcs.AddItem ("SetTheFormulas")
  139.     lstProcs.AddItem ("ShapeCounter")
  140.     lstProcs.AddItem ("ShowPageConnections")
  141.     lstProcs.AddItem ("TurnOffGrid")
  142.     lstProcs.AddItem ("TurnOffRulers")
  143.  
  144. End Sub
  145.