home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1999 January / pcwk_01_1999.iso / Wtestowe / Vistdstd / Install / Data.Z / VBSamples.FRM (.txt) < prev    next >
Visual Basic Form  |  1997-06-25  |  6KB  |  138 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. Attribute VB_Name = "frmVBSamples"
  47. Attribute VB_Creatable = False
  48. Attribute VB_Exposed = False
  49. ' -----------------------------------------------------------------------------
  50. ' Copyright (C) 1997 Visio Corporation. All rights reserved.
  51. ' You have a royalty-free right to use, modify, reproduce and distribute
  52. ' the Sample Application Files (and/or any modified version) in any way
  53. ' you find useful, provided that you agree that Visio has no warranty,
  54. ' obligations or liability for any Sample Application Files.
  55. ' -----------------------------------------------------------------------------
  56. Option Explicit
  57. Private Sub cmdCancel_Click()
  58.     Unload Me
  59. End Sub
  60. Private Sub cmdExecute_Click()
  61.     Dim SelectedProc As String
  62.     If lstProcs.ListIndex <> -1 Then
  63.         SelectedProc = lstProcs.List(lstProcs.ListIndex)
  64.         Select Case SelectedProc
  65.             Case "AddGeometry": AddGeometry
  66.             Case "AddMenu": AddMenu
  67.             Case "AddMenuItem": AddMenuItem
  68.             Case "AddShortcutMenuItem": AddShortcutMenuItem
  69.             Case "AddToolbarButton": AddToolbarButton
  70.             Case "ChangeToolbarButtonIcon": ChangeToolbarButtonIcon
  71.             Case "ChangeToolbarButtonPriority": ChangeToolbarButtonPriority
  72.             Case "DeleteAccelItem": DeleteAccelItem
  73.             Case "DeleteHierarchicalMenuItem": DeleteHierarchicalMenuItem
  74.             Case "DeleteMenu": DeleteMenu
  75.             Case "DeleteMenuItem": DeleteMenuItem
  76.             Case "DeleteToolbarButton": DeleteToolbarButton
  77.             Case "DropManyShapes": DropManyShapes
  78.             Case "ExtractCustomProperties": ExtractCustomProperties
  79.             Case "GetAllDocNames": GetAllDocNames
  80.             Case "GetDocName": GetDocName
  81.             Case "GetFormulaResults": GetFormulaResults
  82.             Case "GetSelectedShapes": GetSelectedShapes
  83.             Case "GetTheFormulas": GetTheFormulas
  84.             Case "GlueControlHandle": GlueControlHandle
  85.             Case "GlueSelectionHandle": GlueSelectionHandle
  86.             Case "GlueToGuide": GlueToGuide
  87.             Case "HelloWorld": HelloWorld
  88.             Case "IterateGeometry": IterateGeometry
  89.             Case "IteratePages": IteratePages
  90.             Case "ListLayers": ListLayers
  91.             Case "ListStyles": ListStyles
  92.             Case "NoVisioUI": NoVisioUI
  93.             Case "RestoreBuiltInUI": RestoreBuiltInUI
  94.             Case "SetTheFormulas": SetTheFormulas
  95.             Case "ShapeCounter": ShapeCounter
  96.             Case "ShowPageConnections": ShowPageConnections
  97.             Case "TurnOffGrid": TurnOffGrid
  98.             Case "TurnOffRulers": TurnOffRulers
  99.         End Select
  100.     End If
  101. End Sub
  102. Private Sub Form_Load()
  103.     lstProcs.AddItem ("AddGeometry")
  104.     lstProcs.AddItem ("AddMenu")
  105.     lstProcs.AddItem ("AddMenuItem")
  106.     lstProcs.AddItem ("AddShortcutMenuItem")
  107.     lstProcs.AddItem ("AddToolbarButton")
  108.     lstProcs.AddItem ("ChangeToolbarButtonIcon")
  109.     lstProcs.AddItem ("ChangeToolbarButtonPriority")
  110.     lstProcs.AddItem ("DeleteAccelItem")
  111.     lstProcs.AddItem ("DeleteHierarchicalMenuItem")
  112.     lstProcs.AddItem ("DeleteMenu")
  113.     lstProcs.AddItem ("DeleteMenuItem")
  114.     lstProcs.AddItem ("DeleteToolbarButton")
  115.     lstProcs.AddItem ("DropManyShapes")
  116.     lstProcs.AddItem ("ExtractCustomProperties")
  117.     lstProcs.AddItem ("GetAllDocNames")
  118.     lstProcs.AddItem ("GetDocName")
  119.     lstProcs.AddItem ("GetFormulaResults")
  120.     lstProcs.AddItem ("GetSelectedShapes")
  121.     lstProcs.AddItem ("GetTheFormulas")
  122.     lstProcs.AddItem ("GlueControlHandle")
  123.     lstProcs.AddItem ("GlueSelectionHandle")
  124.     lstProcs.AddItem ("GlueToGuide")
  125.     lstProcs.AddItem ("HelloWorld")
  126.     lstProcs.AddItem ("IterateGeometry")
  127.     lstProcs.AddItem ("IteratePages")
  128.     lstProcs.AddItem ("ListLayers")
  129.     lstProcs.AddItem ("ListStyles")
  130.     lstProcs.AddItem ("NoVisioUI")
  131.     lstProcs.AddItem ("RestoreBuiltInUI")
  132.     lstProcs.AddItem ("SetTheFormulas")
  133.     lstProcs.AddItem ("ShapeCounter")
  134.     lstProcs.AddItem ("ShowPageConnections")
  135.     lstProcs.AddItem ("TurnOffGrid")
  136.     lstProcs.AddItem ("TurnOffRulers")
  137. End Sub
  138.