home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_code1 / 3ctrls / fbuttons.frm < prev    next >
Text File  |  1994-04-26  |  16KB  |  433 lines
  1. VERSION 2.00
  2. Begin Form fButtons 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "Be original!!"
  5.    ClientHeight    =   5520
  6.    ClientLeft      =   720
  7.    ClientTop       =   735
  8.    ClientWidth     =   5925
  9.    Height          =   5985
  10.    Left            =   630
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   5520
  13.    ScaleWidth      =   5925
  14.    Top             =   360
  15.    Width           =   6105
  16.    Begin VideoSoftElastic VSElastic4 
  17.       Align           =   5  'Fill Container
  18.       AutoSizeChildren=   3  'Even Vertical
  19.       BackColor       =   &H00C0C0C0&
  20.       BevelInnerWidth =   0
  21.       BevelOuter      =   1  'Raised
  22.       BevelOuterWidth =   1
  23.       BorderWidth     =   12
  24.       Height          =   4935
  25.       Left            =   0
  26.       TabIndex        =   6
  27.       Top             =   0
  28.       Width           =   3795
  29.       Begin VideoSoftElastic VSElastic7 
  30.          AutoSizeChildren=   1  'Even Horizontal
  31.          BackColor       =   &H00C0C0C0&
  32.          BevelInner      =   7  'Shadow
  33.          BevelInnerWidth =   3
  34.          BevelOuter      =   6  'Groove
  35.          BorderWidth     =   24
  36.          Caption         =   "Bottom Frame"
  37.          CaptionPos      =   8  'Right Bottom
  38.          ChildSpacing    =   12
  39.          FontBold        =   -1  'True
  40.          FontItalic      =   0   'False
  41.          FontName        =   "System"
  42.          FontSize        =   9.75
  43.          FontStrikethru  =   0   'False
  44.          FontUnderline   =   0   'False
  45.          ForeColor       =   &H00FF0000&
  46.          Height          =   2235
  47.          Left            =   180
  48.          ShadowColor     =   &H00404080&
  49.          Style           =   2  'Frame Bottom
  50.          TabIndex        =   11
  51.          Top             =   2520
  52.          Width           =   3435
  53.          Begin VideoSoftElastic VSElastic2 
  54.             AutoSizeChildren=   7  'Proportional
  55.             BackColor       =   &H00C0C0C0&
  56.             BevelInner      =   0  'None
  57.             BevelOuterWidth =   4
  58.             Caption         =   "Multi-line Caption"
  59.             CaptionPos      =   5  'Center Bottom
  60.             Height          =   1275
  61.             Index           =   4
  62.             Left            =   1815
  63.             TabIndex        =   13
  64.             Top             =   360
  65.             Width           =   1260
  66.             Begin Image Image1 
  67.                Height          =   480
  68.                Index           =   4
  69.                Left            =   375
  70.                Picture         =   FBUTTONS.FRX:0000
  71.                Top             =   180
  72.                Width           =   480
  73.             End
  74.          End
  75.          Begin VideoSoftElastic VSElastic2 
  76.             AutoSizeChildren=   7  'Proportional
  77.             BackColor       =   &H00C0C0C0&
  78.             BevelInner      =   0  'None
  79.             BevelOuterWidth =   4
  80.             Caption         =   "Multi-line Caption"
  81.             CaptionPos      =   5  'Center Bottom
  82.             Height          =   1275
  83.             Index           =   0
  84.             Left            =   360
  85.             TabIndex        =   12
  86.             Top             =   360
  87.             Width           =   1275
  88.             Begin Image Image1 
  89.                Height          =   480
  90.                Index           =   0
  91.                Left            =   390
  92.                Picture         =   FBUTTONS.FRX:0302
  93.                Top             =   180
  94.                Width           =   480
  95.             End
  96.          End
  97.       End
  98.       Begin VideoSoftElastic VSElastic6 
  99.          BackColor       =   &H00C0C0C0&
  100.          BevelInner      =   0  'None
  101.          BevelInnerWidth =   4
  102.          BevelOuter      =   5  'Fillet
  103.          BorderWidth     =   20
  104.          Caption         =   "Elastic's new Frame style"
  105.          CaptionPos      =   3  'Center Top
  106.          FontBold        =   -1  'True
  107.          FontItalic      =   0   'False
  108.          FontName        =   "System"
  109.          FontSize        =   9.75
  110.          FontStrikethru  =   0   'False
  111.          FontUnderline   =   0   'False
  112.          ForeColor       =   &H00FF0000&
  113.          Height          =   2250
  114.          Left            =   180
  115.          Style           =   1  'Frame Top
  116.          TabIndex        =   9
  117.          Top             =   180
  118.          Width           =   3435
  119.          Begin VideoSoftElastic VSElastic9 
  120.             BackColor       =   &H00C0C0C0&
  121.             BevelOuter      =   0  'None
  122.             BevelOuterWidth =   0
  123.             BorderWidth     =   0
  124.             Caption         =   "Size"
  125.             Height          =   225
  126.             Left            =   270
  127.             TabIndex        =   16
  128.             Top             =   1410
  129.             Width           =   465
  130.          End
  131.          Begin VideoSoftIndexTab VSIndexTab1 
  132.             BackSheets      =   0  'None
  133.             BorderWidth     =   -5
  134.             Caption         =   "-                  |Small|Medium|Large"
  135.             CurrTab         =   1
  136.             FontBold        =   0   'False
  137.             FontItalic      =   0   'False
  138.             FontName        =   "MS Sans Serif"
  139.             FontSize        =   8.25
  140.             FontStrikethru  =   0   'False
  141.             FontUnderline   =   0   'False
  142.             FrontTabColor   =   &H000000FF&
  143.             Height          =   345
  144.             Left            =   150
  145.             Position        =   0  'Top
  146.             ShowFocusRect   =   0   'False
  147.             Style           =   3  'Rounded 3D
  148.             TabIndex        =   14
  149.             Top             =   1380
  150.             Width           =   3195
  151.             Begin VideoSoftElastic VSElastic8 
  152.                BackColor       =   &H00C0C0C0&
  153.                Height          =   120
  154.                Left            =   -30
  155.                TabIndex        =   15
  156.                Top             =   255
  157.                Width           =   3255
  158.             End
  159.          End
  160.          Begin VideoSoftElastic VSElastic3 
  161.             AutoSizeChildren=   7  'Proportional
  162.             BackColor       =   &H00C0C0C0&
  163.             BevelInnerWidth =   0
  164.             BevelOuterWidth =   4
  165.             Caption         =   "Push Button "
  166.             CaptionPos      =   7  'Right Center
  167.             FontBold        =   -1  'True
  168.             FontItalic      =   0   'False
  169.             FontName        =   "System"
  170.             FontSize        =   9.75
  171.             FontStrikethru  =   0   'False
  172.             FontUnderline   =   0   'False
  173.             Height          =   705
  174.             Index           =   1
  175.             Left            =   210
  176.             TabIndex        =   10
  177.             Top             =   390
  178.             Width           =   2085
  179.             Begin Image Image2 
  180.                Height          =   480
  181.                Index           =   1
  182.                Left            =   180
  183.                Picture         =   FBUTTONS.FRX:0604
  184.                Top             =   120
  185.                Width           =   480
  186.             End
  187.          End
  188.       End
  189.    End
  190.    Begin VideoSoftElastic VSElastic1 
  191.       Align           =   4  'Align Right
  192.       AutoSizeChildren=   3  'Even Vertical
  193.       BackColor       =   &H00C0C0C0&
  194.       BevelInner      =   7  'Shadow
  195.       BevelInnerWidth =   3
  196.       BevelOuter      =   1  'Raised
  197.       BevelOuterWidth =   1
  198.       BorderWidth     =   12
  199.       Height          =   4935
  200.       Left            =   3795
  201.       ShadowColor     =   &H00404040&
  202.       TabIndex        =   0
  203.       Top             =   0
  204.       Width           =   2130
  205.       Begin VideoSoftElastic VSElastic2 
  206.          AutoSizeChildren=   7  'Proportional
  207.          BackColor       =   &H00C0C0C0&
  208.          BevelInner      =   0  'None
  209.          BevelOuterWidth =   4
  210.          Caption         =   "Meals"
  211.          CaptionPos      =   7  'Right Center
  212.          FontBold        =   -1  'True
  213.          FontItalic      =   0   'False
  214.          FontName        =   "System"
  215.          FontSize        =   9.75
  216.          FontStrikethru  =   0   'False
  217.          FontUnderline   =   0   'False
  218.          Height          =   690
  219.          Index           =   3
  220.          Left            =   180
  221.          TabIndex        =   7
  222.          Top             =   1740
  223.          Width           =   1770
  224.          Begin Image Image1 
  225.             Height          =   450
  226.             Index           =   3
  227.             Left            =   120
  228.             Picture         =   FBUTTONS.FRX:0906
  229.             Stretch         =   -1  'True
  230.             Top             =   105
  231.             Width           =   435
  232.          End
  233.       End
  234.       Begin VideoSoftElastic VSElastic2 
  235.          AutoSizeChildren=   7  'Proportional
  236.          BackColor       =   &H00C0C0C0&
  237.          BevelInner      =   0  'None
  238.          BevelOuterWidth =   4
  239.          Caption         =   "Mail"
  240.          FontBold        =   -1  'True
  241.          FontItalic      =   0   'False
  242.          FontName        =   "System"
  243.          FontSize        =   9.75
  244.          FontStrikethru  =   0   'False
  245.          FontUnderline   =   0   'False
  246.          Height          =   690
  247.          Index           =   8
  248.          Left            =   180
  249.          TabIndex        =   5
  250.          Top             =   3300
  251.          Width           =   1770
  252.          Begin Image Image1 
  253.             Height          =   450
  254.             Index           =   8
  255.             Left            =   1260
  256.             Picture         =   FBUTTONS.FRX:0C08
  257.             Stretch         =   -1  'True
  258.             Top             =   105
  259.             Width           =   435
  260.          End
  261.       End
  262.       Begin VideoSoftElastic VSElastic2 
  263.          AutoSizeChildren=   7  'Proportional
  264.          BackColor       =   &H00C0C0C0&
  265.          BevelInner      =   0  'None
  266.          BevelOuterWidth =   4
  267.          Caption         =   "Phones"
  268.          FontBold        =   -1  'True
  269.          FontItalic      =   0   'False
  270.          FontName        =   "System"
  271.          FontSize        =   9.75
  272.          FontStrikethru  =   0   'False
  273.          FontUnderline   =   0   'False
  274.          Height          =   675
  275.          Index           =   6
  276.          Left            =   180
  277.          TabIndex        =   4
  278.          Top             =   4080
  279.          Width           =   1770
  280.          Begin Image Image1 
  281.             Height          =   450
  282.             Index           =   6
  283.             Left            =   1230
  284.             Picture         =   FBUTTONS.FRX:0F0A
  285.             Stretch         =   -1  'True
  286.             Top             =   90
  287.             Width           =   435
  288.          End
  289.       End
  290.       Begin VideoSoftElastic VSElastic2 
  291.          AutoSizeChildren=   7  'Proportional
  292.          BackColor       =   &H00C0C0C0&
  293.          BevelInner      =   0  'None
  294.          BevelOuterWidth =   4
  295.          Caption         =   "Restrooms"
  296.          FontBold        =   -1  'True
  297.          FontItalic      =   0   'False
  298.          FontName        =   "System"
  299.          FontSize        =   9.75
  300.          FontStrikethru  =   0   'False
  301.          FontUnderline   =   0   'False
  302.          Height          =   690
  303.          Index           =   5
  304.          Left            =   180
  305.          TabIndex        =   3
  306.          Top             =   2520
  307.          Width           =   1770
  308.          Begin Image Image1 
  309.             Height          =   450
  310.             Index           =   5
  311.             Left            =   1230
  312.             Picture         =   FBUTTONS.FRX:120C
  313.             Stretch         =   -1  'True
  314.             Top             =   135
  315.             Width           =   435
  316.          End
  317.       End
  318.       Begin VideoSoftElastic VSElastic2 
  319.          AutoSizeChildren=   7  'Proportional
  320.          BackColor       =   &H00C0C0C0&
  321.          BevelInner      =   0  'None
  322.          BevelOuterWidth =   4
  323.          Caption         =   "Information"
  324.          CaptionPos      =   7  'Right Center
  325.          FontBold        =   -1  'True
  326.          FontItalic      =   0   'False
  327.          FontName        =   "System"
  328.          FontSize        =   9.75
  329.          FontStrikethru  =   0   'False
  330.          FontUnderline   =   0   'False
  331.          Height          =   690
  332.          Index           =   2
  333.          Left            =   180
  334.          TabIndex        =   2
  335.          Top             =   960
  336.          Width           =   1770
  337.          Begin Image Image1 
  338.             Height          =   450
  339.             Index           =   2
  340.             Left            =   120
  341.             Picture         =   FBUTTONS.FRX:150E
  342.             Stretch         =   -1  'True
  343.             Top             =   105
  344.             Width           =   435
  345.          End
  346.       End
  347.       Begin VideoSoftElastic VSElastic2 
  348.          AutoSizeChildren=   7  'Proportional
  349.          BackColor       =   &H00C0C0C0&
  350.          BevelInner      =   0  'None
  351.          BevelOuterWidth =   4
  352.          Caption         =   "Hours"
  353.          CaptionPos      =   7  'Right Center
  354.          FontBold        =   -1  'True
  355.          FontItalic      =   0   'False
  356.          FontName        =   "System"
  357.          FontSize        =   9.75
  358.          FontStrikethru  =   0   'False
  359.          FontUnderline   =   0   'False
  360.          Height          =   690
  361.          Index           =   1
  362.          Left            =   180
  363.          TabIndex        =   1
  364.          Top             =   180
  365.          Width           =   1770
  366.          Begin Image Image1 
  367.             Height          =   450
  368.             Index           =   1
  369.             Left            =   120
  370.             Picture         =   FBUTTONS.FRX:1810
  371.             Stretch         =   -1  'True
  372.             Top             =   150
  373.             Width           =   435
  374.          End
  375.       End
  376.    End
  377.    Begin VideoSoftElastic VSElastic5 
  378.       Align           =   2  'Align Bottom
  379.       BackColor       =   &H00C0C0C0&
  380.       BevelOuter      =   1  'Raised
  381.       BevelOuterWidth =   1
  382.       Caption         =   "Combination of Elastics and Image controls."
  383.       CaptionPos      =   4  'Center Center
  384.       FontBold        =   -1  'True
  385.       FontItalic      =   0   'False
  386.       FontName        =   "System"
  387.       FontSize        =   9.75
  388.       FontStrikethru  =   0   'False
  389.       FontUnderline   =   0   'False
  390.       Height          =   585
  391.       Left            =   0
  392.       TabIndex        =   8
  393.       Top             =   4935
  394.       Width           =   5925
  395.    End
  396. End
  397. Option Explicit
  398.  
  399. Sub Image1_MouseDown (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  400.   VSElastic2(Index).BevelOuter = 4
  401. End Sub
  402.  
  403. Sub Image1_MouseUp (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  404.   VSElastic2(Index).BevelOuter = 2
  405. End Sub
  406.  
  407. Sub Image2_Click (Index As Integer)
  408.   If VSElastic3(Index).BevelOuter = 2 Then
  409.     VSElastic3(Index).BevelOuter = 4
  410.   Else
  411.     VSElastic3(Index).BevelOuter = 2
  412.   End If
  413.  
  414. End Sub
  415.  
  416. Sub VSElastic2_MouseDown (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  417.   VSElastic2(Index).BevelOuter = 4
  418. End Sub
  419.  
  420. Sub VSElastic2_MouseUp (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  421.   VSElastic2(Index).BevelOuter = 2
  422. End Sub
  423.  
  424. Sub VSElastic3_Click (Index As Integer)
  425.   If VSElastic3(Index).BevelOuter = 2 Then
  426.     VSElastic3(Index).BevelOuter = 4
  427.   Else
  428.     VSElastic3(Index).BevelOuter = 2
  429.   End If
  430.   
  431. End Sub
  432.  
  433.