home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / codeprnt / readfr / temp.tmp < prev   
Encoding:
Text File  |  1994-12-15  |  16.8 KB  |  661 lines
  1. ***************** D:\VB_APPS\ELASTIC\MULTITAB.FRM *****************
  2. Sub Button_Click (Index As Integer)
  3. Dim i%
  4.  
  5.   Select Case Index
  6.  
  7.     Case 1    'Changes tab styles
  8.       VSIndexTab1.Style = (VSIndexTab1.Style + 1) Mod 6
  9.  
  10.  
  11.     Case 2    'Changes back tab color
  12.        VSIndexTab1.BackTabColor = QBColor(Rnd * 15)
  13.        VSIndexTab1.Refresh
  14.       
  15.  
  16.     Case 3    'Changes Caption text color
  17.       VSIndexTab1.ForeColor = QBColor(Rnd * 15)
  18.  
  19.       
  20.     Case 4    'Changes BackSheets style
  21.       VSIndexTab1.MultiRow = Not VSIndexTab1.MultiRow
  22.       
  23.  
  24.   End Select
  25.  
  26. End Sub
  27.  
  28. Sub Form_Load ()
  29.   Dim i%, x%, y%
  30.   For i = 1 To 3
  31.     TabsPerPage.AddItem Str$(i)
  32.   Next i
  33.   TabsPerPage.ListIndex = 0
  34.  
  35.   'Unique Colors for each tab
  36.   VSIndexTab2.TabColor(0) = &H80FF80
  37.   VSIndexTab2.TabColor(1) = &H80FFFF
  38.   VSIndexTab2.TabColor(2) = &HFFFF80
  39.  
  40.   'Fill up Grid
  41.   Grid1.Col = 0
  42.   For x = 1 To 15
  43.     Grid1.Row = x
  44.     Grid1.Text = x
  45.   Next x
  46.   Grid1.Row = 0
  47.   For x = 1 To 15
  48.     Grid1.Col = x
  49.     Grid1.Text = x
  50.   Next x
  51. End Sub
  52.  
  53. Sub List1_MouseDown (Index%, Button As Integer, Shift As Integer, x As Single, y As Single)
  54.   
  55. End Sub
  56.  
  57. Sub Mode_Click (Index As Integer)
  58.     VSIndexTab1.MultiRow = Not VSIndexTab1.MultiRow
  59. End Sub
  60.  
  61. Sub TabsPerPage_Click ()
  62.   VSIndexTab1.TabsPerPage = TabsPerPage.ListIndex + 1
  63.   VSIndexTab1.FirstTab = 6 - VSIndexTab1.TabsPerPage
  64.  
  65. End Sub
  66.  
  67. Sub Text3_MouseDown (Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
  68.  
  69. End Sub
  70.  
  71. ***************** D:\VB_APPS\ELASTIC\BROWSER.FRM *****************
  72. Sub Command1_Click (Index%)
  73.   Select Case Index
  74.  
  75.     Case 0 'Open Button
  76.       ' get file name
  77.       cmdialog.DialogTitle = "Open VB Project"
  78.       cmdialog.Filename = ""
  79.       cmdialog.DefaultExt = "MAK"
  80.       cmdialog.Filter = "VB Projects (*.mak)|*.MAK|All Files (*.*)|*.*"
  81.       cmdialog.Flags = &H1800&
  82.       cmdialog.Action = 1
  83.       If cmdialog.Filename = "" Then Exit Sub
  84.     
  85.       ' read project
  86.       text1 = ""
  87.       vsawk1.FileName = cmdialog.Filename
  88.       vsawk1.Tag = Left(cmdialog.Filename, Len(cmdialog.Filename) - Len(cmdialog.Filetitle))
  89.       vsawk1.Action = 0
  90.       vselastic3.FloodPercent = 0
  91.       vselastic3 = "Ready"
  92.  
  93.  
  94.     Case 1 ' Clipboard
  95.       If text1 = "" Then MsgBox "Sorry, no code selected.", 16: Exit Sub
  96.       clipboard.SetText text1, 1
  97.       vselastic3 = "Code copied to clipboard"
  98.  
  99.     Case 2 'Print
  100.       MsgBox "Print routine not implemented", 64
  101.  
  102.   End Select
  103. End Sub
  104.  
  105. Sub Command1_MouseMove (Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
  106.   
  107.   If OldTip = Index Then Exit Sub
  108.   ToolTip.Caption = Command1(Index).Tag
  109.   ToolTip.Width = TextWidth(Command1(Index).Tag)
  110.   ToolTip.Move Command1(Index).Left + Command1(Index).Height * .75, Command1(Index).Top + Command1(Index).Height * 1.1
  111.   ToolTip.Visible = True
  112.  
  113.   OldTip = Index
  114.  
  115. End Sub
  116.  
  117. Sub List2_DblClick ()
  118.   
  119.   vsawk3 = list2
  120.   vsawk3.FileName = vsawk3.F(3)
  121.   vsawk3.Tag = Val(vsawk3.F(4))
  122.   vsawk3.Action = 0
  123.  
  124. End Sub
  125.  
  126. Sub VSAwk1_Begin ()
  127.   mousepointer = 11
  128.   list1.Clear
  129. End Sub
  130.  
  131. Sub VSAwk1_End ()
  132.   Dim i%
  133.  
  134.   list2.Clear
  135.   For i = 0 To list1.ListCount - 1
  136.     list1.ListIndex = i
  137.     vsawk2.FileName = list1.List(i)
  138.     vselastic3 = vsawk2.FileName
  139.     vsawk2.Action = 0
  140.     list2.Refresh
  141.   Next
  142.  
  143. End Sub
  144.  
  145. Sub VSAwk1_Scan ()
  146.   'add .FRM files to List1
  147.   If InStr(vsawk1, "=") > 0 Or InStr(vsawk1, "VBX") > 0 Then Exit Sub
  148.   If InStr(vsawk1, "\") > 0 Then
  149.     list1.AddItem vsawk1
  150.   Else
  151.     list1.AddItem vsawk1.Tag + vsawk1
  152.   End If
  153.  
  154. End Sub
  155.  
  156. Sub VSAwk2_End ()
  157.   mousepointer = 0
  158. End Sub
  159.  
  160. Sub VSAwk2_Scan ()
  161.   Static insub%, a$, lp%
  162.  
  163.   If vsawk2.PercentDone <> lp Then
  164.     lp = vsawk2.PercentDone
  165.     vselastic3.FloodPercent = lp
  166.     DoEvents
  167.   End If
  168.  
  169.   '=====================================================
  170.   'Search for subroutines/Functions/Variable definitions
  171.   '=====================================================
  172.   If vsawk2.F(1) = "Sub" Then
  173.     insub = True
  174.     a = vsawk2.F(2) + Chr(9) + "(sub)" + Chr(9) + vsawk2.FileName + Chr(9) + Format(vsawk2.CurrPos)
  175.     list2.AddItem a
  176.     Exit Sub
  177.   End If
  178.  
  179.   If vsawk2.F(1) = "Function" Then
  180.     insub = True
  181.     a = vsawk2.F(2) + Chr(9) + "(fun)" + Chr(9) + vsawk2.FileName + Chr(9) + Format(vsawk2.CurrPos)
  182.     list2.AddItem a
  183.     Exit Sub
  184.   End If
  185.  
  186.   If vsawk2.F(1) = "Global" And vsawk2.F(2) <> "Const" Then
  187.     a = vsawk2.F(2) + Chr(9) + "(gvar)" + Chr(9) + vsawk2.FileName + Chr(9) + Format(vsawk2.CurrPos)
  188.     list2.AddItem a
  189.     Exit Sub
  190.   End If
  191.  
  192.   If vsawk2.F(1) = "Dim" And Not insub Then
  193.     a = vsawk2.F(2) + Chr(9) + "(fvar)" + Chr(9) + vsawk2.FileName + Chr(9) + Format(vsawk2.CurrPos)
  194.     list2.AddItem a
  195.     Exit Sub
  196.   End If
  197.  
  198.   If vsawk2.F(1) = "End" And (vsawk2.F(2) = "Sub" Or vsawk2.F(2) = "Function") Then
  199.     insub = False
  200.     Exit Sub
  201.   End If
  202.  
  203. End Sub
  204.  
  205. Sub VSAwk3_Begin ()
  206.  
  207.   mousepointer = 11
  208.   vsawk3.CurrPos = Val(vsawk3.Tag)
  209.   subtext = ""
  210.  
  211. End Sub
  212.  
  213. Sub VSAwk3_End ()
  214.   
  215.   text1 = subtext
  216.   mousepointer = 0
  217. End Sub
  218.  
  219. Sub VSAwk3_Scan ()
  220.   
  221.   ' accumulate text
  222.   If subtext = "" Then
  223.     subtext = vsawk3
  224.   Else
  225.     subtext = subtext + Chr(13) + Chr(10) + vsawk3
  226.   End If
  227.   
  228.   ' stop if only a var
  229.   If vsawk3.RN = 0 Then
  230.     If vsawk3.F(1) <> "Sub" And vsawk3.F(1) <> "Function" Then vsawk3.Action = 2
  231.   End If
  232.  
  233.   ' stop at end of functions and subs
  234.   If vsawk3.F(1) = "End" Then
  235.     If vsawk3.F(2) = "Sub" Then vsawk3.Action = 2
  236.     If vsawk3.F(2) = "Function" Then vsawk3.Action = 2
  237.   End If
  238.  
  239. End Sub
  240.  
  241. Sub VSElastic1_MouseMove (Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
  242.   OldTip = -1
  243.   ToolTip.Visible = False
  244. End Sub
  245.  
  246. ***************** D:\VB_APPS\ELASTIC\FPROP.FRM *****************
  247. Sub Command1_Click ()
  248.   MsgBox "This is done with only one elastic that fills the container and its AutoSizeChildren property set to proportional"
  249. End Sub
  250.  
  251. Sub Form_Load ()
  252.   oh = vselastic1.Height
  253. End Sub
  254.  
  255. Sub Form_Resize ()
  256.   'Code to Change fonts when form is resized
  257.   Dim I%
  258.   On Error Resume Next
  259.  
  260.   If check1.Value Then Exit Sub
  261.  
  262.   For I = 0 To Controls.Count - 1
  263.     Controls(I).FontSize = 12 * (vselastic1.Height / oh)
  264.     Controls(I).FontName = "Arial"
  265.   Next I
  266.   'oh = vselastic1.Height
  267.  
  268. End Sub
  269.  
  270. ***************** D:\VB_APPS\ELASTIC\FNOLABEL.FRM *****************
  271. Sub Command1_Click (Index As Integer)
  272.   Select Case Index
  273.  
  274.     Case 0  'Change Caption Positions
  275.       VSElastic1.CaptionPos = (VSElastic1.CaptionPos + 1) Mod 9
  276.       
  277.     Case 1  'Change to random colors
  278.       VSElastic1.ForeColor = QBColor(Rnd * 15)
  279.       
  280.     Case 2
  281.       MsgBox "Check the Tag property of the text boxes and the TagWidth and TagPosition properties of the Elastic"
  282.  
  283.     Case 3  'Shadows
  284.       VSElastic1.ShadowColor = QBColor(Rnd * 15)
  285.  
  286.     Case 4   'TagPosition
  287.       VSElastic4.TagPosition = (VSElastic4.TagPosition + 1) Mod 2
  288.  
  289.   End Select
  290. End Sub
  291.  
  292. Sub Text_DragDrop (Index As Integer, source As Control, X As Single, Y As Single)
  293.   If source.Left > Text(Index).Left Then
  294.     source.Left = Text(Index).Left - 50
  295.   Else
  296.     source.Left = Text(Index).Left + 50
  297.   End If
  298. End Sub
  299.  
  300. Sub Text_MouseDown (Index As Integer, button As Integer, Shift As Integer, X As Single, Y As Single)
  301.   If button = 2 Then Text(Index).Drag 1
  302. End Sub
  303.  
  304. ***************** D:\VB_APPS\ELASTIC\FBUTTONS.FRM *****************
  305. Sub Image1_MouseDown (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  306.   VSElastic2(Index).BevelOuter = 4
  307. End Sub
  308.  
  309. Sub Image1_MouseUp (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  310.   VSElastic2(Index).BevelOuter = 2
  311. End Sub
  312.  
  313. Sub Image2_Click (Index As Integer)
  314.   If VSElastic3(Index).BevelOuter = 2 Then
  315.     VSElastic3(Index).BevelOuter = 4
  316.   Else
  317.     VSElastic3(Index).BevelOuter = 2
  318.   End If
  319.  
  320. End Sub
  321.  
  322. Sub VSElastic2_MouseDown (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  323.   VSElastic2(Index).BevelOuter = 4
  324. End Sub
  325.  
  326. Sub VSElastic2_MouseUp (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  327.   VSElastic2(Index).BevelOuter = 2
  328. End Sub
  329.  
  330. Sub VSElastic3_Click (Index As Integer)
  331.   If VSElastic3(Index).BevelOuter = 2 Then
  332.     VSElastic3(Index).BevelOuter = 4
  333.   Else
  334.     VSElastic3(Index).BevelOuter = 2
  335.   End If
  336.   
  337. End Sub
  338.  
  339. ***************** D:\VB_APPS\ELASTIC\CALCULAT.FRM *****************
  340. Sub Awk_Variable (Variable As String, Value As Single, Accept As Integer)
  341.   Accept% = True
  342.   Select Case Variable$
  343.    Case "A", "a": Value! = Val(Memory(0))
  344.    Case "B", "b": Value! = Val(Memory(1))
  345.    Case "C", "c": Value! = Val(Memory(2))
  346.    Case "D", "d": Value! = Val(Memory(3))
  347.    Case "E", "e": Value! = Val(Memory(4))
  348.    Case "F", "f": Value! = Val(Memory(5))
  349.    Case Else: Accept% = False ' refuse garbage
  350.  End Select
  351. End Sub
  352.  
  353. Sub Enter_Click ()
  354.   Dim a$
  355.  
  356.   awk = Formula
  357.   a = Format(awk.Val)
  358.   Select Case awk.Error
  359.     Case 6: a = "Bad Syntax"
  360.     Case 7: a = "Bad Variable"
  361.     Case 8: a = "Missing Bracket"
  362.     Case 9: a = "Div by Zero"
  363.   End Select
  364.   Results = Formula + " = " + Chr(13) + Chr(10) + a + " " + Chr(13) + Chr(10) + Chr(13) + Chr(10) + Results
  365.   
  366. End Sub
  367.  
  368. Sub Form_KeyPress (KeyAscii As Integer)
  369.   If KeyAscii <> 13 Then Exit Sub
  370.   KeyAscii = 0
  371.   Enter_Click
  372. End Sub
  373.  
  374. Sub Formula_GotFocus ()
  375.   Formula.SelStart = 0
  376.   Formula.SelLength = 30000
  377. End Sub
  378.  
  379. Sub Memory_GotFocus (Index As Integer)
  380.   Memory(Index).SelStart = 0
  381.   Memory(Index).SelLength = 30000
  382.   Memory(Index).FontBold = True
  383. End Sub
  384.  
  385. Sub Memory_LostFocus (Index As Integer)
  386.   Memory(Index) = Format(Val(Memory(Index))) + " "
  387.   Memory(Index).FontBold = False
  388. End Sub
  389.  
  390. Sub Results_DblClick ()
  391.   Results = ""
  392. End Sub
  393.  
  394. ***************** D:\VB_APPS\ELASTIC\FLOOD.FRM *****************
  395. Sub Timer1_Timer ()
  396.   Dim j%
  397.   Static i%
  398.  
  399.   If i > 97 Then i = 0
  400.   i = i + 3
  401.  
  402.   For j = 0 To 3
  403.     flood(j).FloodPercent = i
  404.     flood(j).Caption = i & "%"
  405.   Next j
  406.  
  407. End Sub
  408.  
  409. ***************** D:\VB_APPS\ELASTIC\SPLITTER.FRM *****************
  410. Sub Command1_Click (Index As Integer)
  411.   Dim newcolor&
  412.   Select Case Index
  413.  
  414.     Case 0  'Change to random colors
  415.       newcolor = QBColor(Rnd * 15)
  416.       MainElastic.BackColor = newcolor
  417.       RightElastic.BackColor = newcolor
  418.  
  419.     Case 1   'Fonts
  420.       Text1.FontSize = (Text1.FontSize + 2) Mod 13
  421.       Text2.FontSize = (Text2.FontSize + 2) Mod 13
  422.       
  423.   End Select
  424. End Sub
  425.  
  426. ***************** D:\VB_APPS\ELASTIC\INDEXTAB.FRM *****************
  427. Sub Btn_Click (Index As Integer)
  428.   Select Case Index
  429.     Case 0    'Changes Tab positions
  430.        VSIndexTab.Position = (VSIndexTab.Position + 1) Mod 5
  431.  
  432.     Case 1    'Changes tab styles
  433.        VSIndexTab.Style = (VSIndexTab.Style + 1) Mod 8
  434.        
  435.     Case 2    'Changes back tab color
  436.         ' disable pictures
  437.         Dim i%
  438.         Check1(3).Value = 0
  439.         For i = 0 To 2
  440.           VSIndexTab.TabPicture(i) = Image1(3)
  441.         Next
  442.         VSIndexTab.BackTabColor = QBColor(Rnd * 15)
  443.  
  444.     Case 3    'Changes Caption text color
  445.        VSIndexTab.ForeColor = QBColor(Rnd * 15)
  446.  
  447.     Case 4    'Cool
  448.        MsgBox "Click VideoSoft Address with the right button, drag it to Notes tab, and drop it in one of the List boxes.  WAY COOL!!"
  449.        
  450.   End Select
  451.  
  452. End Sub
  453.  
  454. Sub Btn_MouseMove (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  455.  If OldTip = Index Then Exit Sub
  456.  ToolTip.Visible = True
  457.  ToolTip.Caption = Btn(Index).Tag
  458.  ToolTip.Width = TextWidth(Btn(Index).Tag)
  459.  ToolTip.Move Btn(Index).Left + Btn(Index).Height * .75, StatusBar(0).Top + Btn(Index).Top + Btn(Index).Height * 1.1
  460.  OldTip = Index
  461. End Sub
  462.  
  463. Sub btn_Shadow_Click (Index%)
  464.   Select Case Index
  465.     Case 0
  466.       Page(2).ShadowColor = QBColor(Rnd * 15)
  467.     Case 1
  468.       VSIndexTab.FrontTabForeColor = QBColor(Rnd * 15)
  469.   End Select
  470. End Sub
  471.  
  472. Sub Button_Click (Index As Integer)
  473. End Sub
  474.  
  475. Sub Button_MouseMove (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  476.  
  477. End Sub
  478.  
  479. Sub Check1_click (Index%)
  480.   Dim i%
  481.  
  482.   Select Case Index
  483.  
  484.     Case 0  'BoldCurrentTab
  485.       VSIndexTab.BoldCurrent = Not VSIndexTab.BoldCurrent
  486.  
  487.     Case 1  'Enable/Disable Notes Tab
  488.       VSIndexTab.TabEnabled(1) = Not VSIndexTab.TabEnabled(1)
  489.       VSIndexTab.Refresh
  490.  
  491.     Case 2  'Shadows
  492.       If Check1(2).Value = 0 Then
  493.         Page(2).BevelInnerWidth = 1
  494.         Page(2).BevelInner = 3        'Inset
  495.       Else
  496.         Page(2).BevelInnerWidth = 4
  497.         Page(2).BevelInner = 7        'Shadows
  498.       End If
  499.  
  500.     Case 3  'Pictures
  501.         If Check1(3).Value = 1 Then
  502.           For i = 0 To 2
  503.             VSIndexTab.TabPicture(i) = Image1(i)
  504.           Next
  505.           VSIndexTab.BackTabColor = &HC0C0C0
  506.         Else
  507.           For i = 0 To 2
  508.             VSIndexTab.TabPicture(i) = Image1(3)
  509.           Next
  510.         End If
  511.     
  512.     Case 4  'DogEars
  513.       VSIndexTab.DogEars = Not VSIndexTab.DogEars
  514.             
  515.     End Select
  516. End Sub
  517.  
  518. Sub Form_Load ()
  519. '============================================================
  520. ' To create an IndexTab at design time
  521. '============================================================
  522. ' * Place an IndexTab on your form
  523. ' * Set the Autoswitch to False
  524. ' * Set the Caption for tabs separated by a pipe  (One|Two)
  525. ' * Place one container (Elastic or PictureBox) per tab on
  526. '   the white area of the indextab.  The containers should
  527. '   not touch each other.
  528. ' * Set the Autoswitch to False
  529. ' * Double click with the right mouse on the tab to
  530. '   populate the controls
  531. '============================================================
  532.   Me.Caption = "VideoSoft Indextab"
  533.  
  534.   'Fill lists and Combox
  535.   TabsPerPage.AddItem "1"
  536.   TabsPerPage.AddItem "2"
  537.   TabsPerPage.AddItem "3"
  538.   TabsPerPage.ListIndex = 2
  539.  
  540.   Combo1.AddItem "VideoSoft"
  541.   Combo1.ListIndex = 0
  542.  
  543.   ' show pictures
  544.   Check1_click 3
  545.  
  546.   Grid1.Row = 0
  547.   Grid1.Col = 0
  548.   Grid1.ColWidth(0) = 1000
  549.   Grid1.Text = "Prod ID"
  550.   Grid1.Col = 1
  551.   Grid1.ColWidth(1) = 2500
  552.   Grid1.Text = "Description"
  553.   Grid1.Col = 2
  554.   Grid1.Text = "Qty"
  555.   Grid1.Col = 3
  556.   Grid1.ColWidth(3) = 4500
  557.   Grid1.Text = "Price"
  558.  
  559. End Sub
  560.  
  561. Sub Form_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
  562.   ToolTip.Visible = False
  563. End Sub
  564.  
  565. Sub Label3_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
  566.  If Button = 2 Then Label3.Drag 1
  567. End Sub
  568.  
  569. Sub List1_DragDrop (Index As Integer, Source As Control, X As Single, Y As Single)
  570.   List1(Index).AddItem Source
  571.   
  572. End Sub
  573.  
  574. Sub MainElastic_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
  575.   ToolTip.Visible = False
  576.   OldTip = -1
  577. End Sub
  578.  
  579. Sub StatusBar_MouseMove (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  580.   ToolTip.Visible = False
  581.   OldTip = -1
  582. End Sub
  583.  
  584. Sub TabsPerPage_Click ()
  585.   
  586.   VSIndexTab.TabsPerPage = TabsPerPage.ListIndex + 1
  587.   VSIndexTab.FirstTab = 3 - VSIndexTab.TabsPerPage
  588.  
  589.   'Enable DogEars option
  590.   If VSIndexTab.TabsPerPage = 3 Then
  591.     Check1(4).Enabled = False
  592.   Else
  593.     Check1(4).Enabled = True
  594.   End If
  595. End Sub
  596.  
  597. Sub Text1_MouseDown (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  598.   If Button = 2 Then Text1(Index).Drag 1
  599. End Sub
  600.  
  601. Sub VSIndexTab_DragOver (Source As Control, X As Single, Y As Single, State As Integer)
  602.   If VSIndexTab.MouseOver <> -1 Then VSIndexTab.CurrTab = VSIndexTab.MouseOver
  603. End Sub
  604.  
  605. Sub VSIndexTab_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
  606.   ToolTip.Visible = False
  607.   
  608.   On Error Resume Next
  609.  
  610.   If VSIndexTab.MouseOver = -1 Then
  611.     ' Current page
  612.     If StatusBar(1) <> "Current Page" Then StatusBar(1) = "Current Page"
  613.   Else
  614.     ' Move Over other page
  615.     If StatusBar(1) <> Page(VSIndexTab.MouseOver).Tag Then StatusBar(1) = Page(VSIndexTab.MouseOver).Tag
  616.     
  617.   End If
  618.  
  619. End Sub
  620.  
  621. ***************** D:\VB_APPS\ELASTIC\MENU.FRM *****************
  622. Sub Command1_Click (Index As Integer)
  623.   mousepointer = 11
  624.   Select Case Index
  625.     Case 0
  626.       Splitter.Show 1
  627.     Case 1
  628.       fFlood.Show 1
  629.     Case 2
  630.       IndexTab.Show 1
  631.     Case 3
  632.       calculator.Show 1
  633.     Case 4
  634.       fProp.Show 1
  635.     Case 5
  636.       fnolabels.Show 1
  637.     Case 6
  638.       fMultiTabs.Show 1
  639.     Case 7
  640.       fbuttons.Show 1
  641.  
  642.   End Select
  643.   mousepointer = 0
  644. End Sub
  645.  
  646. Sub Form_Load ()
  647.   'Resolution independence
  648.   'Place form on lower part of the screen
  649.   Me.Move 0, screen.Height * .25
  650.   Me.Width = screen.Width
  651.   Me.Height = screen.Height * .75
  652.   'Check Version
  653.   On Error Resume Next
  654.   If VSElastic1(0).Version < 4 Then MsgBox "An older version of VideoSoft VSVBX is loaded in your system.  This demo may not work properly."
  655. End Sub
  656.  
  657. Sub Form_Resize ()
  658.   'no code
  659. End Sub
  660.  
  661.