home *** CD-ROM | disk | FTP | other *** search
/ ActiveX Programming Unleashed CD / AXU.iso / componen / vsflex / demo / fmenu.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-06-17  |  12.2 KB  |  375 lines
  1. VERSION 2.00
  2. Begin Form fMenu 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "VideoSoft vsFlex Test Drive"
  6.    ClientHeight    =   5430
  7.    ClientLeft      =   1755
  8.    ClientTop       =   2340
  9.    ClientWidth     =   7650
  10.    FillStyle       =   0  'Solid
  11.    Height          =   5835
  12.    Icon            =   FMENU.FRX:0000
  13.    Left            =   1695
  14.    LinkTopic       =   "Form2"
  15.    ScaleHeight     =   5430
  16.    ScaleWidth      =   7650
  17.    Top             =   1995
  18.    Width           =   7770
  19.    Begin CommandButton cmdButton 
  20.       BackColor       =   &H00C0C0C0&
  21.       Caption         =   "Word Count"
  22.       FontBold        =   0   'False
  23.       FontItalic      =   0   'False
  24.       FontName        =   "MS Sans Serif"
  25.       FontSize        =   8.25
  26.       FontStrikethru  =   0   'False
  27.       FontUnderline   =   0   'False
  28.       Height          =   315
  29.       Index           =   7
  30.       Left            =   4005
  31.       TabIndex        =   18
  32.       Top             =   3555
  33.       Width           =   1680
  34.    End
  35.    Begin CommandButton cmdButton 
  36.       BackColor       =   &H00C0C0C0&
  37.       Caption         =   "Doctor"
  38.       FontBold        =   0   'False
  39.       FontItalic      =   0   'False
  40.       FontName        =   "MS Sans Serif"
  41.       FontSize        =   8.25
  42.       FontStrikethru  =   0   'False
  43.       FontUnderline   =   0   'False
  44.       Height          =   315
  45.       Index           =   3
  46.       Left            =   5715
  47.       TabIndex        =   17
  48.       Top             =   4185
  49.       Width           =   1680
  50.    End
  51.    Begin CommandButton cmdButton 
  52.       BackColor       =   &H00C0C0C0&
  53.       Caption         =   "Evaluate"
  54.       FontBold        =   0   'False
  55.       FontItalic      =   0   'False
  56.       FontName        =   "MS Sans Serif"
  57.       FontSize        =   8.25
  58.       FontStrikethru  =   0   'False
  59.       FontUnderline   =   0   'False
  60.       Height          =   315
  61.       Index           =   4
  62.       Left            =   2295
  63.       TabIndex        =   16
  64.       Top             =   3555
  65.       Width           =   1680
  66.    End
  67.    Begin CommandButton cmdButton 
  68.       BackColor       =   &H00C0C0C0&
  69.       Caption         =   "Find && Replace"
  70.       FontBold        =   0   'False
  71.       FontItalic      =   0   'False
  72.       FontName        =   "MS Sans Serif"
  73.       FontSize        =   8.25
  74.       FontStrikethru  =   0   'False
  75.       FontUnderline   =   0   'False
  76.       Height          =   315
  77.       Index           =   0
  78.       Left            =   5715
  79.       TabIndex        =   15
  80.       Top             =   3870
  81.       Width           =   1680
  82.    End
  83.    Begin CommandButton cmdButton 
  84.       BackColor       =   &H00C0C0C0&
  85.       Caption         =   "Phone"
  86.       FontBold        =   0   'False
  87.       FontItalic      =   0   'False
  88.       FontName        =   "MS Sans Serif"
  89.       FontSize        =   8.25
  90.       FontStrikethru  =   0   'False
  91.       FontUnderline   =   0   'False
  92.       Height          =   315
  93.       Index           =   5
  94.       Left            =   4005
  95.       TabIndex        =   14
  96.       Top             =   3870
  97.       Width           =   1680
  98.    End
  99.    Begin CommandButton cmdButton 
  100.       BackColor       =   &H00C0C0C0&
  101.       Caption         =   "String Walk"
  102.       FontBold        =   0   'False
  103.       FontItalic      =   0   'False
  104.       FontName        =   "MS Sans Serif"
  105.       FontSize        =   8.25
  106.       FontStrikethru  =   0   'False
  107.       FontUnderline   =   0   'False
  108.       Height          =   315
  109.       Index           =   6
  110.       Left            =   5715
  111.       TabIndex        =   13
  112.       Top             =   3555
  113.       Width           =   1680
  114.    End
  115.    Begin CommandButton cmdButton 
  116.       BackColor       =   &H00C0C0C0&
  117.       Caption         =   "FlexOutline"
  118.       FontBold        =   0   'False
  119.       FontItalic      =   0   'False
  120.       FontName        =   "MS Sans Serif"
  121.       FontSize        =   8.25
  122.       FontStrikethru  =   0   'False
  123.       FontUnderline   =   0   'False
  124.       Height          =   315
  125.       Index           =   12
  126.       Left            =   5715
  127.       TabIndex        =   12
  128.       Top             =   2205
  129.       Width           =   1680
  130.    End
  131.    Begin CommandButton cmdButton 
  132.       BackColor       =   &H00C0C0C0&
  133.       Caption         =   "FlexLists"
  134.       FontBold        =   0   'False
  135.       FontItalic      =   0   'False
  136.       FontName        =   "MS Sans Serif"
  137.       FontSize        =   8.25
  138.       FontStrikethru  =   0   'False
  139.       FontUnderline   =   0   'False
  140.       Height          =   315
  141.       Index           =   1
  142.       Left            =   5715
  143.       TabIndex        =   11
  144.       Top             =   1890
  145.       Width           =   1680
  146.    End
  147.    Begin CommandButton cmdButton 
  148.       BackColor       =   &H00C0C0C0&
  149.       Caption         =   "FlexTotals"
  150.       FontBold        =   0   'False
  151.       FontItalic      =   0   'False
  152.       FontName        =   "MS Sans Serif"
  153.       FontSize        =   8.25
  154.       FontStrikethru  =   0   'False
  155.       FontUnderline   =   0   'False
  156.       Height          =   315
  157.       Index           =   11
  158.       Left            =   4005
  159.       TabIndex        =   10
  160.       Top             =   1890
  161.       Width           =   1680
  162.    End
  163.    Begin CommandButton cmdButton 
  164.       BackColor       =   &H00C0C0C0&
  165.       Caption         =   "FlexGrid"
  166.       FontBold        =   0   'False
  167.       FontItalic      =   0   'False
  168.       FontName        =   "MS Sans Serif"
  169.       FontSize        =   8.25
  170.       FontStrikethru  =   0   'False
  171.       FontUnderline   =   0   'False
  172.       Height          =   315
  173.       Index           =   8
  174.       Left            =   2295
  175.       TabIndex        =   9
  176.       Top             =   1575
  177.       Width           =   1680
  178.    End
  179.    Begin CommandButton cmdButton 
  180.       BackColor       =   &H00C0C0C0&
  181.       Caption         =   "FlexCalendar"
  182.       FontBold        =   0   'False
  183.       FontItalic      =   0   'False
  184.       FontName        =   "MS Sans Serif"
  185.       FontSize        =   8.25
  186.       FontStrikethru  =   0   'False
  187.       FontUnderline   =   0   'False
  188.       Height          =   315
  189.       Index           =   9
  190.       Left            =   5715
  191.       TabIndex        =   8
  192.       Top             =   1575
  193.       Width           =   1680
  194.    End
  195.    Begin CommandButton cmdButton 
  196.       BackColor       =   &H00C0C0C0&
  197.       Caption         =   "FlexSummary"
  198.       FontBold        =   0   'False
  199.       FontItalic      =   0   'False
  200.       FontName        =   "MS Sans Serif"
  201.       FontSize        =   8.25
  202.       FontStrikethru  =   0   'False
  203.       FontUnderline   =   0   'False
  204.       Height          =   315
  205.       Index           =   10
  206.       Left            =   4005
  207.       TabIndex        =   7
  208.       Top             =   1575
  209.       Width           =   1680
  210.    End
  211.    Begin CommandButton cmdButton 
  212.       BackColor       =   &H00C0C0C0&
  213.       Caption         =   "About VideoSoft vsFlex..."
  214.       FontBold        =   0   'False
  215.       FontItalic      =   0   'False
  216.       FontName        =   "MS Sans Serif"
  217.       FontSize        =   8.25
  218.       FontStrikethru  =   0   'False
  219.       FontUnderline   =   0   'False
  220.       Height          =   360
  221.       Index           =   2
  222.       Left            =   5160
  223.       TabIndex        =   0
  224.       Top             =   4770
  225.       Width           =   2235
  226.    End
  227.    Begin Image Image1 
  228.       Height          =   630
  229.       Index           =   1
  230.       Left            =   1410
  231.       Picture         =   FMENU.FRX:0AB2
  232.       Stretch         =   -1  'True
  233.       Top             =   2805
  234.       Width           =   690
  235.    End
  236.    Begin Image Image1 
  237.       Height          =   630
  238.       Index           =   0
  239.       Left            =   1365
  240.       Picture         =   FMENU.FRX:0C28
  241.       Stretch         =   -1  'True
  242.       Top             =   900
  243.       Width           =   690
  244.    End
  245.    Begin Image Image2 
  246.       Height          =   615
  247.       Left            =   195
  248.       Picture         =   FMENU.FRX:0DB6
  249.       Stretch         =   -1  'True
  250.       Top             =   4605
  251.       Width           =   1080
  252.    End
  253.    Begin Label Label1 
  254.       Alignment       =   2  'Center
  255.       BackColor       =   &H00000000&
  256.       Caption         =   "VideoSoft  VSFlex"
  257.       FontBold        =   -1  'True
  258.       FontItalic      =   0   'False
  259.       FontName        =   "MS Sans Serif"
  260.       FontSize        =   24
  261.       FontStrikethru  =   0   'False
  262.       FontUnderline   =   0   'False
  263.       ForeColor       =   &H0000FFFF&
  264.       Height          =   555
  265.       Index           =   2
  266.       Left            =   105
  267.       TabIndex        =   6
  268.       Top             =   60
  269.       Width           =   7425
  270.    End
  271.    Begin Label Label1 
  272.       BackColor       =   &H00C0C0C0&
  273.       Caption         =   "FlexArray"
  274.       FontBold        =   -1  'True
  275.       FontItalic      =   0   'False
  276.       FontName        =   "Arial"
  277.       FontSize        =   24
  278.       FontStrikethru  =   0   'False
  279.       FontUnderline   =   0   'False
  280.       ForeColor       =   &H00800000&
  281.       Height          =   510
  282.       Index           =   1
  283.       Left            =   2235
  284.       TabIndex        =   5
  285.       Top             =   855
  286.       Width           =   5130
  287.    End
  288.    Begin Label Label2 
  289.       BackStyle       =   0  'Transparent
  290.       Caption         =   "There is more than one way to look at data."
  291.       FontBold        =   0   'False
  292.       FontItalic      =   0   'False
  293.       FontName        =   "Arial"
  294.       FontSize        =   8.25
  295.       FontStrikethru  =   0   'False
  296.       FontUnderline   =   0   'False
  297.       ForeColor       =   &H00000000&
  298.       Height          =   240
  299.       Index           =   1
  300.       Left            =   2250
  301.       TabIndex        =   4
  302.       Top             =   1350
  303.       Width           =   5145
  304.    End
  305.    Begin Label Label3 
  306.       BackStyle       =   0  'Transparent
  307.       Caption         =   "Test Drive"
  308.       FontBold        =   0   'False
  309.       FontItalic      =   0   'False
  310.       FontName        =   "Arial"
  311.       FontSize        =   13.5
  312.       FontStrikethru  =   0   'False
  313.       FontUnderline   =   0   'False
  314.       Height          =   315
  315.       Left            =   1095
  316.       TabIndex        =   3
  317.       Top             =   4845
  318.       Width           =   2655
  319.    End
  320.    Begin Label Label2 
  321.       BackStyle       =   0  'Transparent
  322.       Caption         =   "All you always want it to do with strings but you were afraid to ask."
  323.       FontBold        =   0   'False
  324.       FontItalic      =   0   'False
  325.       FontName        =   "Arial"
  326.       FontSize        =   8.25
  327.       FontStrikethru  =   0   'False
  328.       FontUnderline   =   0   'False
  329.       ForeColor       =   &H00000000&
  330.       Height          =   210
  331.       Index           =   0
  332.       Left            =   2325
  333.       TabIndex        =   2
  334.       Top             =   3345
  335.       Width           =   5400
  336.    End
  337.    Begin Label Label1 
  338.       BackColor       =   &H00C0C0C0&
  339.       Caption         =   "FlexString"
  340.       FontBold        =   -1  'True
  341.       FontItalic      =   0   'False
  342.       FontName        =   "Arial"
  343.       FontSize        =   24
  344.       FontStrikethru  =   0   'False
  345.       FontUnderline   =   0   'False
  346.       ForeColor       =   &H00800000&
  347.       Height          =   540
  348.       Index           =   0
  349.       Left            =   2265
  350.       TabIndex        =   1
  351.       Top             =   2835
  352.       Width           =   5100
  353.    End
  354. Option Explicit
  355. Sub cmdButton_Click (Index As Integer)
  356.   mousepointer = 11
  357.   Select Case Index
  358.     Case 0: fFind.Show 1
  359.     Case 1: fLists.Show 1
  360.     Case 2: MsgBox "VideoSoft VSFlex" & Chr$(13) & "    $99 + $6 s&h " & Chr$(13) & Chr$(13) & "Order Desk:" & Chr$(13) & "(510) 704-8200 voice" & Chr$(13) & "(510) 843-0174 fax" & Chr$(13) & Chr$(13) & "Compuserve:" & Chr$(13) & "GO SWREG -- Product ID 6136"
  361.     Case 3: fNatural.Show 1
  362.     Case 4: fRegular.Show
  363.     Case 5: fPhone.Show 1
  364.     Case 6: fWalk.Show 1
  365.     Case 7: fWord.Show
  366.     Case 8: fGrid.Show 1
  367.     Case 9: fCalendar.Show 1
  368.     Case 10: fMerge.Show 1
  369.     Case 11: fTotals.Show 1
  370.     Case 12: fOutline.Show 1
  371.     Case Else: MsgBox "Demo not available"
  372.   End Select
  373.   mousepointer = 0
  374. End Sub
  375.