home *** CD-ROM | disk | FTP | other *** search
/ ActiveX Programming Unleashed CD / AXU.iso / componen / vsocx / demo / menu.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-02-16  |  15.4 KB  |  410 lines
  1. VERSION 2.00
  2. Begin Form fMenu 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Resize me!"
  5.    ClientHeight    =   5820
  6.    ClientLeft      =   690
  7.    ClientTop       =   810
  8.    ClientWidth     =   7845
  9.    Height          =   6285
  10.    Icon            =   MENU.FRX:0000
  11.    Left            =   600
  12.    LinkTopic       =   "Form2"
  13.    ScaleHeight     =   5820
  14.    ScaleWidth      =   7845
  15.    Top             =   435
  16.    Width           =   8025
  17.    Begin VideoSoftElastic elaMain 
  18.       Align           =   5  'Fill Container
  19.       AutoSizeChildren=   2  'Uneven Horizontal
  20.       BevelInner      =   0  'None
  21.       BevelOuter      =   1  'Raised
  22.       BevelOuterWidth =   1
  23.       BorderWidth     =   12
  24.       ConvInfo        =   MENU.FRX:0302
  25.       Height          =   4170
  26.       IntBkg          =   &H00C0C0C0&
  27.       Left            =   0
  28.       TabIndex        =   2
  29.       Top             =   1140
  30.       Width           =   7845
  31.       Begin VideoSoftIndexTab VSIndexTab1 
  32.          BackSheets      =   0  'None
  33.          BorderWidth     =   12
  34.          Caption         =   "VSVBX 5.0|Elastic|IndexTab|Awk"
  35.          ConvInfo        =   MENU.FRX:030D
  36.          FontBold        =   0   'False
  37.          FontItalic      =   0   'False
  38.          FontName        =   "Arial"
  39.          FontSize        =   9.75
  40.          FontStrikethru  =   0   'False
  41.          FontUnderline   =   0   'False
  42.          FrontTabColor   =   &H00C0C0C0&
  43.          FrontTabForeColor=   &H00800000&
  44.          Height          =   3810
  45.          Left            =   180
  46.          MultiRowOffset  =   0
  47.          New3D           =   -1  'True
  48.          Position        =   0  'Top
  49.          ShowFocusRect   =   0   'False
  50.          Style           =   5  'Chamfered 3D
  51.          TabIndex        =   3
  52.          TabsPerPage     =   4
  53.          Top             =   180
  54.          Width           =   5925
  55.          Begin VideoSoftElastic elaPage 
  56.             AutoSizeChildren=   1  'Even Horizontal
  57.             BevelChildren   =   2  'No Elastics
  58.             BevelOuter      =   8  'Raised New Look
  59.             BorderWidth     =   12
  60.             ConvInfo        =   MENU.FRX:0318
  61.             Height          =   3060
  62.             Index           =   1
  63.             IntBkg          =   &H00C0C0C0&
  64.             Left            =   10110
  65.             TabIndex        =   5
  66.             Top             =   540
  67.             Width           =   5505
  68.             Begin ListBox List1 
  69.                FontBold        =   0   'False
  70.                FontItalic      =   0   'False
  71.                FontName        =   "Arial"
  72.                FontSize        =   9.75
  73.                FontStrikethru  =   0   'False
  74.                FontUnderline   =   0   'False
  75.                Height          =   2670
  76.                Index           =   1
  77.                Left            =   180
  78.                TabIndex        =   9
  79.                Top             =   180
  80.                Width           =   5145
  81.             End
  82.          End
  83.          Begin VideoSoftElastic elaPage 
  84.             AutoSizeChildren=   1  'Even Horizontal
  85.             BevelChildren   =   2  'No Elastics
  86.             BevelOuter      =   8  'Raised New Look
  87.             BorderWidth     =   12
  88.             ConvInfo        =   MENU.FRX:0323
  89.             Height          =   3060
  90.             Index           =   3
  91.             IntBkg          =   &H00C0C0C0&
  92.             Left            =   10260
  93.             TabIndex        =   7
  94.             Top             =   540
  95.             Width           =   5505
  96.             Begin ListBox List1 
  97.                FontBold        =   0   'False
  98.                FontItalic      =   0   'False
  99.                FontName        =   "Arial"
  100.                FontSize        =   9.75
  101.                FontStrikethru  =   0   'False
  102.                FontUnderline   =   0   'False
  103.                Height          =   2670
  104.                Index           =   3
  105.                Left            =   180
  106.                TabIndex        =   11
  107.                Top             =   180
  108.                Width           =   5145
  109.             End
  110.          End
  111.          Begin VideoSoftElastic elaPage 
  112.             AutoSizeChildren=   1  'Even Horizontal
  113.             BevelChildren   =   2  'No Elastics
  114.             BevelOuter      =   8  'Raised New Look
  115.             BorderWidth     =   12
  116.             ConvInfo        =   MENU.FRX:032E
  117.             Height          =   3060
  118.             Index           =   2
  119.             IntBkg          =   &H00C0C0C0&
  120.             Left            =   10185
  121.             TabIndex        =   6
  122.             Top             =   540
  123.             Width           =   5505
  124.             Begin ListBox List1 
  125.                FontBold        =   0   'False
  126.                FontItalic      =   0   'False
  127.                FontName        =   "Arial"
  128.                FontSize        =   9.75
  129.                FontStrikethru  =   0   'False
  130.                FontUnderline   =   0   'False
  131.                Height          =   2670
  132.                Index           =   2
  133.                Left            =   180
  134.                TabIndex        =   10
  135.                Top             =   180
  136.                Width           =   5145
  137.             End
  138.          End
  139.          Begin VideoSoftElastic elaPage 
  140.             AutoSizeChildren=   1  'Even Horizontal
  141.             BevelChildren   =   2  'No Elastics
  142.             BevelOuter      =   8  'Raised New Look
  143.             BorderWidth     =   12
  144.             ConvInfo        =   MENU.FRX:0339
  145.             Height          =   3060
  146.             Index           =   0
  147.             IntBkg          =   &H00C0C0C0&
  148.             Left            =   210
  149.             TabIndex        =   4
  150.             Top             =   540
  151.             Width           =   5505
  152.             Begin ListBox List1 
  153.                FontBold        =   0   'False
  154.                FontItalic      =   0   'False
  155.                FontName        =   "Arial"
  156.                FontSize        =   9.75
  157.                FontStrikethru  =   0   'False
  158.                FontUnderline   =   0   'False
  159.                Height          =   2670
  160.                Index           =   0
  161.                Left            =   180
  162.                TabIndex        =   8
  163.                Top             =   180
  164.                Width           =   5145
  165.             End
  166.          End
  167.       End
  168.       Begin VideoSoftElastic VSElastic3 
  169.          BevelInner      =   0  'None
  170.          BevelOuter      =   0  'None
  171.          ConvInfo        =   MENU.FRX:0344
  172.          Height          =   3810
  173.          Index           =   0
  174.          IntBkg          =   &H00C0C0C0&
  175.          Left            =   6195
  176.          TabIndex        =   12
  177.          Top             =   180
  178.          Width           =   1470
  179.          Begin VideoSoftElastic elaButton 
  180.             BevelInner      =   0  'None
  181.             BevelOuter      =   8  'Raised New Look
  182.             Caption         =   "See Demo.."
  183.             CaptionPos      =   5  'Center Bottom
  184.             ConvInfo        =   MENU.FRX:034F
  185.             CornerColor     =   &H00C0C0C0&
  186.             FontBold        =   0   'False
  187.             FontItalic      =   0   'False
  188.             FontName        =   "MS Sans Serif"
  189.             FontSize        =   8.25
  190.             FontStrikethru  =   0   'False
  191.             FontUnderline   =   0   'False
  192.             Height          =   900
  193.             IntBkg          =   &H00C0C0C0&
  194.             Left            =   105
  195.             Picture         =   MENU.FRX:035A
  196.             PicturePos      =   3  'Center Top
  197.             ShowFocusRect   =   -1  'True
  198.             Style           =   3  'Command Button
  199.             TabIndex        =   14
  200.             Top             =   480
  201.             Width           =   1185
  202.          End
  203.          Begin VideoSoftElastic elaOrderBtn 
  204.             BevelInner      =   0  'None
  205.             BevelOuter      =   8  'Raised New Look
  206.             Caption         =   "VS Info"
  207.             CaptionPos      =   5  'Center Bottom
  208.             ConvInfo        =   MENU.FRX:065C
  209.             FontBold        =   0   'False
  210.             FontItalic      =   0   'False
  211.             FontName        =   "MS Sans Serif"
  212.             FontSize        =   8.25
  213.             FontStrikethru  =   0   'False
  214.             FontUnderline   =   0   'False
  215.             Height          =   930
  216.             IntBkg          =   &H00C0C0C0&
  217.             Left            =   90
  218.             Picture         =   MENU.FRX:0667
  219.             PicturePos      =   3  'Center Top
  220.             ShowFocusRect   =   -1  'True
  221.             Style           =   3  'Command Button
  222.             TabIndex        =   13
  223.             Top             =   1515
  224.             Width           =   1185
  225.          End
  226.       End
  227.    End
  228.    Begin VideoSoftElastic StatusBar 
  229.       Align           =   2  'Bottom
  230.       BevelInner      =   0  'None
  231.       BevelOuter      =   1  'Raised
  232.       BevelOuterWidth =   1
  233.       Caption         =   "VideoSoft, 2625 Alcatraz Avenue, Suite 271, Berkeley, California (510) 704-8200"
  234.       CaptionPos      =   4  'Center Center
  235.       CaptionStyle    =   3  'Raised Light
  236.       ConvInfo        =   MENU.FRX:0969
  237.       FontBold        =   0   'False
  238.       FontItalic      =   0   'False
  239.       FontName        =   "MS Sans Serif"
  240.       FontSize        =   8.25
  241.       FontStrikethru  =   0   'False
  242.       FontUnderline   =   0   'False
  243.       Height          =   510
  244.       IntBkg          =   &H00C0C0C0&
  245.       Left            =   0
  246.       PicturePos      =   10  'Tile
  247.       TabIndex        =   0
  248.       Top             =   5310
  249.       Width           =   7845
  250.       WordWrap        =   0   'False
  251.    End
  252.    Begin VideoSoftElastic VSElastic1 
  253.       Align           =   1  'Top
  254.       BevelInner      =   1  'Raised
  255.       BevelOuter      =   1  'Raised
  256.       BevelOuterWidth =   1
  257.       BorderWidth     =   12
  258.       Caption         =   "VideoSoft VSVBX 5.0 Demo"
  259.       CaptionPos      =   4  'Center Center
  260.       CaptionStyle    =   1  'Raised
  261.       ChildSpacing    =   0
  262.       ConvInfo        =   MENU.FRX:0974
  263.       CornerColor     =   &H00C0C0C0&
  264.       FloodDirection  =   1  'Right
  265.       FontBold        =   -1  'True
  266.       FontItalic      =   -1  'True
  267.       FontName        =   "Arial"
  268.       FontSize        =   24
  269.       FontStrikethru  =   0   'False
  270.       FontUnderline   =   0   'False
  271.       ForeColor       =   &H00800000&
  272.       Height          =   1140
  273.       Index           =   0
  274.       IntBkg          =   &H00C0C0C0&
  275.       Left            =   0
  276.       PicturePos      =   10  'Tile
  277.       TabIndex        =   1
  278.       Top             =   0
  279.       Width           =   7845
  280.    End
  281. Option Explicit
  282. Sub DoLicenseInfo ()
  283.       
  284.       Dim msg$, NL
  285.       NL = Chr$(13)
  286.       msg = "**** New Licensing Scheme ******************" + NL
  287.       msg = msg + "In response to numerous user requests, we have changed our licensing "
  288.       msg = msg + "scheme:" + NL + NL
  289.       msg = msg + "You no longer have to distribute the LIC file with your compiled "
  290.       msg = msg + "applications. As long as you have the LIC file installed on your "
  291.       msg = msg + "machine when you compile an application, vsView will not look for "
  292.       msg = msg + "a license file when you run it. This will simplify your installation "
  293.       msg = msg + "process and reduce the potential for version conflicts on your "
  294.       msg = msg + "users' machines."
  295.       msg = msg + NL + NL
  296.       msg = msg + "This also makes the VSVBX.DEV file obsolete. It's not needed "
  297.       msg = msg + "anymore, and that's why you won't find it on the distribution "
  298.       msg = msg + "diskettes."
  299.       msg = msg + NL + NL
  300.       msg = msg + "In short:" + NL
  301.       msg = msg + "1) Forget the DEV files." + NL
  302.       msg = msg + "2) DO NOT DISTRIBUTE THE LIC FILE WITH YOUR APPLICATIONS!!!!"
  303.       MsgBox msg
  304. End Sub
  305. Sub DoUpgrade ()
  306.       
  307.       Dim msg$, NL
  308.       NL = Chr$(13)
  309.       msg = "**** Upgrading to VSVBX 5.0 ***************" + NL + NL
  310.       msg = msg + "If you own an older version of VSVBX you can upgrade to 5.0"
  311.       msg = msg + " for only $25 + $6 shipping and handling:" + NL
  312.       msg = msg + NL
  313.       msg = msg + "Send your check or money order to:" + NL + NL
  314.       msg = msg + "  VideoSoft" + NL
  315.       msg = msg + "    2625 Alcatraz Avenue, Suite 271" + NL
  316.       msg = msg + "    Berkeley, California 94705" + NL + NL
  317.       msg = msg + "    510 704-8200 Voice" + NL
  318.       msg = msg + "    510 843-0174 Fax"
  319.       MsgBox msg
  320. End Sub
  321. Sub elaButton_Click ()
  322.   Dim myIndex%
  323.   myIndex = vsIndexTab1.CurrTab
  324.   mousepointer = 11
  325.   Select Case myIndex
  326.     Case 0  'VSVBX 5.0
  327.       Select Case List1(myIndex).ListIndex
  328.         Case 0: fnew.Show 1  'New Features
  329.         Case 1: DoLicenseInfo
  330.         Case 2: DoUpgrade
  331.         Case Else: MsgBox "Sorry demo not available."
  332.       End Select
  333.     Case 1  'Elastic
  334.       Select Case List1(myIndex).ListIndex
  335.         Case 0: fprop.Show 1      'Resize Controls & Fonts
  336.         Case 1: splitter.Show 1   'Splitter
  337.         Case 2: fnolabels.Show 1  'No Labels
  338.         Case 3: fflood.Show 1     'Flooding
  339.         Case 4: fbuttons.Show 1   'Buttons
  340.         Case Else: MsgBox "Sorry demo not available."
  341.       End Select
  342.     Case 2  'IndexTab
  343.       Select Case List1(myIndex).ListIndex
  344.         Case 0: IndexTab.Show 1     'IndexTab
  345.         Case 1: fMultiTabs.Show 1   'MultiRows
  346.         Case 2: fDialog.Show 1      'Dynamic dialog
  347.         Case 3: fnotebook.Show 1    'Notebook
  348.         Case 4: fwiz.Show 1         'Wizards
  349.         Case Else: MsgBox "Sorry demo not available."
  350.       End Select
  351.     Case 3  '  Awk
  352.       Select Case List1(myIndex).ListIndex
  353.         Case 0: fSimpleAwk.Show 1     'Parsing Files
  354.         Case 1: frmAwk.Show 1            'Parsing Strings
  355.         Case 2: Calculator.Show 1     'Calculator
  356.         Case 3: ffunction.Show 1       'Function
  357.         Case Else: MsgBox "Sorry demo not available."
  358.       End Select
  359.   End Select
  360.   mousepointer = 0
  361. End Sub
  362. Sub elaOrderBtn_Click ()
  363.       Dim msg$, NL
  364.       NL = Chr$(13)
  365.       msg = "VideoSoft" + NL
  366.       msg = msg + "2625 Alcatraz Avenue, Suite 271" + NL
  367.       msg = msg + "Berkeley, California 94705" + NL
  368.       msg = msg + NL
  369.       msg = msg + "510 704-8200 Voice" + NL
  370.       msg = msg + "510 843-0174 Fax" '+ NL
  371.       MsgBox msg
  372. End Sub
  373. Sub Form_Load ()
  374.   'Resolution independence
  375.   'Place form on lower part of the screen
  376.   'Me.Move 0, screen.Height * .25
  377.   'Me.Width = screen.Width
  378.   'Me.Height = screen.Height * .75
  379.   'Check Version
  380.   On Error Resume Next
  381.   If VSElastic1(0).Version < 5 Then MsgBox "An older version of VideoSoft VSVBX is loaded in your system.  This demo may not work properly."
  382.   List1(0).AddItem " New Features"
  383.   List1(0).AddItem " New Licensing Scheme"
  384.   List1(0).AddItem " Upgrading to 5.0"
  385.   List1(0).ListIndex = 0
  386.   List1(1).AddItem " Resize Controls & Fonts"
  387.   List1(1).AddItem " Splitter bars"
  388.   List1(1).AddItem " No labels"
  389.   List1(1).AddItem " Flooding"
  390.   List1(1).AddItem " Elastic Styles: Frames, Buttons, etc"
  391.   List1(1).ListIndex = 0
  392.   List1(2).AddItem " IndexTab"
  393.   List1(2).AddItem " MultiRows"
  394.   List1(2).AddItem " Dynamic Dialog"
  395.   List1(2).AddItem " Notebook"
  396.   List1(2).AddItem " Wizards"
  397.   List1(2).ListIndex = 0
  398.   List1(3).AddItem " Parsing Files"
  399.   List1(3).AddItem " Parsing Strings"
  400.   List1(3).AddItem " Function Evaluator"
  401.   List1(3).AddItem " Formula Plotter"
  402.   List1(3).ListIndex = 0
  403. End Sub
  404. Sub Form_Resize ()
  405.   'no code
  406. End Sub
  407. Sub List1_DblClick (Index As Integer)
  408.   elaButton_Click
  409. End Sub
  410.