home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / truegrid / disk1 / vsdemo / vsdemo.$ / MENU.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-02-15  |  8.7 KB  |  245 lines
  1. VERSION 2.00
  2. Begin Form fMenu 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "VideoSoft VSVBX 5.0"
  6.    ClientHeight    =   3555
  7.    ClientLeft      =   690
  8.    ClientTop       =   1725
  9.    ClientWidth     =   7680
  10.    Height          =   4020
  11.    Left            =   600
  12.    LinkTopic       =   "Form2"
  13.    MaxButton       =   0   'False
  14.    ScaleHeight     =   3555
  15.    ScaleWidth      =   7680
  16.    Top             =   1350
  17.    Width           =   7860
  18.    Begin CommandButton elaOrderBtn 
  19.       BackColor       =   &H00C0C0C0&
  20.       Caption         =   "Order Info"
  21.       FontBold        =   0   'False
  22.       FontItalic      =   0   'False
  23.       FontName        =   "MS Sans Serif"
  24.       FontSize        =   8.25
  25.       FontStrikethru  =   0   'False
  26.       FontUnderline   =   0   'False
  27.       Height          =   435
  28.       Left            =   6195
  29.       TabIndex        =   6
  30.       Top             =   1275
  31.       Width           =   1215
  32.    End
  33.    Begin CommandButton elaButton 
  34.       BackColor       =   &H00C0C0C0&
  35.       Caption         =   "See Demo"
  36.       FontBold        =   0   'False
  37.       FontItalic      =   0   'False
  38.       FontName        =   "MS Sans Serif"
  39.       FontSize        =   8.25
  40.       FontStrikethru  =   0   'False
  41.       FontUnderline   =   0   'False
  42.       Height          =   405
  43.       Left            =   6210
  44.       TabIndex        =   5
  45.       Top             =   765
  46.       Width           =   1170
  47.    End
  48.    Begin VideoSoftIndexTab VSIndexTab1 
  49.       BackSheets      =   0  'None
  50.       BorderWidth     =   12
  51.       Caption         =   "IndexTab|Elastic|Awk|VSVBX 5.0"
  52.       ConvInfo        =   MENU.FRX:0000
  53.       FontBold        =   0   'False
  54.       FontItalic      =   0   'False
  55.       FontName        =   "Arial"
  56.       FontSize        =   9.75
  57.       FontStrikethru  =   0   'False
  58.       FontUnderline   =   0   'False
  59.       FrontTabColor   =   &H00C0C0C0&
  60.       FrontTabForeColor=   &H00800000&
  61.       Height          =   2985
  62.       Left            =   240
  63.       MultiRowOffset  =   0
  64.       New3D           =   -1  'True
  65.       Position        =   0  'Top
  66.       ShowFocusRect   =   0   'False
  67.       Style           =   5  'Chamfered 3D
  68.       TabIndex        =   0
  69.       TabsPerPage     =   4
  70.       Top             =   240
  71.       Width           =   5745
  72.       Begin ListBox List1 
  73.          FontBold        =   0   'False
  74.          FontItalic      =   0   'False
  75.          FontName        =   "Arial"
  76.          FontSize        =   9.75
  77.          FontStrikethru  =   0   'False
  78.          FontUnderline   =   0   'False
  79.          Height          =   2190
  80.          Index           =   2
  81.          Left            =   10185
  82.          TabIndex        =   4
  83.          Top             =   540
  84.          Width           =   5325
  85.       End
  86.       Begin ListBox List1 
  87.          FontBold        =   0   'False
  88.          FontItalic      =   0   'False
  89.          FontName        =   "Arial"
  90.          FontSize        =   9.75
  91.          FontStrikethru  =   0   'False
  92.          FontUnderline   =   0   'False
  93.          Height          =   2190
  94.          Index           =   0
  95.          Left            =   210
  96.          TabIndex        =   3
  97.          Top             =   540
  98.          Width           =   5325
  99.       End
  100.       Begin ListBox List1 
  101.          FontBold        =   0   'False
  102.          FontItalic      =   0   'False
  103.          FontName        =   "Arial"
  104.          FontSize        =   9.75
  105.          FontStrikethru  =   0   'False
  106.          FontUnderline   =   0   'False
  107.          Height          =   2190
  108.          Index           =   1
  109.          Left            =   10110
  110.          TabIndex        =   2
  111.          Top             =   540
  112.          Width           =   5325
  113.       End
  114.       Begin ListBox List1 
  115.          FontBold        =   0   'False
  116.          FontItalic      =   0   'False
  117.          FontName        =   "Arial"
  118.          FontSize        =   9.75
  119.          FontStrikethru  =   0   'False
  120.          FontUnderline   =   0   'False
  121.          Height          =   2190
  122.          Index           =   3
  123.          Left            =   10260
  124.          TabIndex        =   1
  125.          Top             =   540
  126.          Width           =   5325
  127.       End
  128.    End
  129. Option Explicit
  130. Sub DoLicenseInfo ()
  131.       
  132.       Dim Legend$, NL
  133.       NL = Chr$(13)
  134.       Legend = "**********************" + NL
  135.       Legend = "Congratulations!" & NL & NL
  136.       Legend = Legend & "As a courtesy of VideoSoft you now own a royalty free copy of the IndexTab control." & NL & NL
  137.       Legend = Legend & "You can also try the Elastic and AWK controls of VSVBX.  The .VBX that you have in your system is fully functional.  Only a banner will appear the first time you try to use the Elastic or the AWK control." & NL & NL
  138.       Legend = Legend & "You can license the full version of VSVBX for only $45" & NL & NL
  139.       Legend = Legend & "VideoSoft" & NL
  140.       Legend = Legend & "2625 Alcatraz Avenue Suite 271" & NL
  141.       Legend = Legend & "Berkeley, California 94705" & NL
  142.       Legend = Legend & "(510) 704-8200 voice" & NL
  143.       Legend = Legend & "(510) 843-0174 fax" & NL
  144.       MsgBox Legend
  145. End Sub
  146. Sub DoUpgrade ()
  147.       
  148.       Dim Legend$, NL
  149.       NL = Chr$(13)
  150.       Legend = "**** Upgrading to VSVBX 5.0 ***************" + NL + NL
  151.       Legend = Legend + "If you own an older version of VSVBX you can upgrade to 5.0"
  152.       Legend = Legend + " for only $25 + $6 shipping and handling:" + NL
  153.       Legend = Legend + NL
  154.       Legend = Legend + "Send your check or money order to:" + NL + NL
  155.       Legend = Legend + "  VideoSoft" + NL
  156.       Legend = Legend + "    2625 Alcatraz Avenue, Suite 271" + NL
  157.       Legend = Legend + "    Berkeley, California 94705" + NL + NL
  158.       Legend = Legend + "    510 704-8200 Voice" + NL
  159.       Legend = Legend + "    510 843-0174 Fax"
  160.       MsgBox Legend
  161. End Sub
  162. Sub elaButton_Click ()
  163.   Dim myIndex%
  164.   myIndex = vsIndexTab1.CurrTab
  165.   mousepointer = 11
  166.   Select Case myIndex
  167.     Case 0  'IndexTab
  168.       Select Case List1(myIndex).ListIndex
  169.         Case 0: IndexTab.Show 1     'IndexTab
  170.         Case 1: fMultiTabs.Show 1   'MultiRows
  171.         Case 2: fDialog.Show 1      'Dynamic dialog
  172.         Case 3: fnotebook.Show 1    'Notebook
  173.         Case 4: fwiz.Show 1         'Wizards
  174.         Case Else: MsgBox "Sorry demo not available."
  175.       End Select
  176.     Case 1  'Elastic
  177.       Select Case List1(myIndex).ListIndex
  178.         Case 0: fprop.Show 1      'Resize Controls & Fonts
  179.         Case 1: splitter.Show 1   'Splitter
  180.         Case 2: fnolabels.Show 1  'No Labels
  181.         Case 3: fflood.Show 1     'Flooding
  182.         Case 4: fbuttons.Show 1   'Buttons
  183.         Case Else: MsgBox "Sorry demo not available."
  184.       End Select
  185.     Case 2  '  Awk
  186.       Select Case List1(myIndex).ListIndex
  187.         
  188.         Case 0: fSimpleAwk.Show 1     'Parsing Files
  189.         Case 1: frmAwk.Show 1            'Parsing Strings
  190.         Case 2: Calculator.Show 1     'Calculator
  191.         
  192.         Case Else: MsgBox "Sorry demo not available."
  193.       End Select
  194.     Case 3  'VSVBX 5.0
  195.       Select Case List1(myIndex).ListIndex
  196.         Case 0: DoLicenseInfo
  197.         Case 1: DoUpgrade
  198.         Case Else: MsgBox "Sorry demo not available."
  199.       End Select
  200.   End Select
  201.   mousepointer = 0
  202. End Sub
  203. Sub elaOrderBtn_Click ()
  204.       Dim Legend$, NL
  205.       NL = Chr$(13)
  206.       Legend = "VideoSoft" + NL
  207.       Legend = Legend + "2625 Alcatraz Avenue, Suite 271" + NL
  208.       Legend = Legend + "Berkeley, California 94705" + NL
  209.       Legend = Legend + NL
  210.       Legend = Legend + "510 704-8200 Voice" + NL
  211.       Legend = Legend + "510 843-0174 Fax" '+ NL
  212.       MsgBox Legend
  213. End Sub
  214. Sub Form_Load ()
  215.   'Check Version
  216.   On Error Resume Next
  217.   If vsIndexTab1.Version < 5 Then MsgBox "An older version of VideoSoft VSVBX is loaded in your system.  This demo may not work properly."
  218.   DoLicenseInfo
  219.   List1(0).AddItem " IndexTab"
  220.   List1(0).AddItem " MultiRows"
  221.   List1(0).AddItem " Dynamic Dialog"
  222.   List1(0).AddItem " Notebook"
  223.   List1(0).AddItem " Wizards"
  224.   List1(0).ListIndex = 0
  225.   List1(1).AddItem " Resize Controls & Fonts"
  226.   List1(1).AddItem " Splitter bars"
  227.   List1(1).AddItem " No labels"
  228.   List1(1).AddItem " Flooding"
  229.   List1(1).AddItem " Elastic Styles: Frames, Buttons, etc"
  230.   List1(1).ListIndex = 0
  231.   List1(2).AddItem " Parsing Files"
  232.   List1(2).AddItem " Parsing Strings"
  233.   List1(2).AddItem " Function Evaluator"
  234.   List1(2).ListIndex = 0
  235.   List1(3).AddItem " Free IndexTab control"
  236.   List1(3).AddItem " Upgrading to 5.0"
  237.   List1(3).ListIndex = 0
  238. End Sub
  239. Sub Form_Resize ()
  240.   'no code
  241. End Sub
  242. Sub List1_DblClick (Index As Integer)
  243.   elaButton_Click
  244. End Sub
  245.