home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / FERRAMEN / VS_VBX / FBUTTONS.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-02-21  |  14.7 KB  |  411 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        =   12
  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        =   14
  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        =   13
  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      =   7  'Shadow
  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 VSElastic3 
  120.             AutoSizeChildren=   7  'Proportional
  121.             BackColor       =   &H00C0C0C0&
  122.             BevelInnerWidth =   0
  123.             BevelOuterWidth =   4
  124.             CaptionPos      =   4  'Center Center
  125.             FontBold        =   -1  'True
  126.             FontItalic      =   0   'False
  127.             FontName        =   "System"
  128.             FontSize        =   9.75
  129.             FontStrikethru  =   0   'False
  130.             FontUnderline   =   0   'False
  131.             Height          =   705
  132.             Index           =   0
  133.             Left            =   960
  134.             TabIndex        =   11
  135.             TagWidth        =   1500
  136.             Top             =   390
  137.             Width           =   2205
  138.             Begin Image Image2 
  139.                Height          =   480
  140.                Index           =   0
  141.                Left            =   1590
  142.                Picture         =   FBUTTONS.FRX:0604
  143.                Tag             =   "Toggle Button"
  144.                Top             =   120
  145.                Width           =   480
  146.             End
  147.          End
  148.          Begin VideoSoftElastic VSElastic3 
  149.             AutoSizeChildren=   7  'Proportional
  150.             BackColor       =   &H00C0C0C0&
  151.             BevelInnerWidth =   0
  152.             BevelOuterWidth =   4
  153.             Caption         =   "Push Button "
  154.             CaptionPos      =   7  'Right Center
  155.             FontBold        =   -1  'True
  156.             FontItalic      =   0   'False
  157.             FontName        =   "System"
  158.             FontSize        =   9.75
  159.             FontStrikethru  =   0   'False
  160.             FontUnderline   =   0   'False
  161.             Height          =   705
  162.             Index           =   1
  163.             Left            =   300
  164.             TabIndex        =   10
  165.             Top             =   1335
  166.             Width           =   2085
  167.             Begin Image Image2 
  168.                Height          =   480
  169.                Index           =   1
  170.                Left            =   180
  171.                Picture         =   FBUTTONS.FRX:0906
  172.                Top             =   120
  173.                Width           =   480
  174.             End
  175.          End
  176.       End
  177.    End
  178.    Begin VideoSoftElastic VSElastic1 
  179.       Align           =   4  'Align Right
  180.       AutoSizeChildren=   3  'Even Vertical
  181.       BackColor       =   &H00C0C0C0&
  182.       BevelInner      =   7  'Shadow
  183.       BevelInnerWidth =   3
  184.       BevelOuter      =   1  'Raised
  185.       BevelOuterWidth =   1
  186.       BorderWidth     =   12
  187.       Height          =   4935
  188.       Left            =   3795
  189.       ShadowColor     =   &H00404040&
  190.       TabIndex        =   0
  191.       Top             =   0
  192.       Width           =   2130
  193.       Begin VideoSoftElastic VSElastic2 
  194.          AutoSizeChildren=   7  'Proportional
  195.          BackColor       =   &H00C0C0C0&
  196.          BevelInner      =   0  'None
  197.          BevelOuterWidth =   4
  198.          Caption         =   "Meals"
  199.          CaptionPos      =   7  'Right Center
  200.          FontBold        =   -1  'True
  201.          FontItalic      =   0   'False
  202.          FontName        =   "System"
  203.          FontSize        =   9.75
  204.          FontStrikethru  =   0   'False
  205.          FontUnderline   =   0   'False
  206.          Height          =   690
  207.          Index           =   3
  208.          Left            =   180
  209.          TabIndex        =   7
  210.          Top             =   1740
  211.          Width           =   1770
  212.          Begin Image Image1 
  213.             Height          =   450
  214.             Index           =   3
  215.             Left            =   120
  216.             Picture         =   FBUTTONS.FRX:0C08
  217.             Stretch         =   -1  'True
  218.             Top             =   105
  219.             Width           =   435
  220.          End
  221.       End
  222.       Begin VideoSoftElastic VSElastic2 
  223.          AutoSizeChildren=   7  'Proportional
  224.          BackColor       =   &H00C0C0C0&
  225.          BevelInner      =   0  'None
  226.          BevelOuterWidth =   4
  227.          Caption         =   "Mail"
  228.          FontBold        =   -1  'True
  229.          FontItalic      =   0   'False
  230.          FontName        =   "System"
  231.          FontSize        =   9.75
  232.          FontStrikethru  =   0   'False
  233.          FontUnderline   =   0   'False
  234.          Height          =   690
  235.          Index           =   8
  236.          Left            =   180
  237.          TabIndex        =   5
  238.          Top             =   3300
  239.          Width           =   1770
  240.          Begin Image Image1 
  241.             Height          =   450
  242.             Index           =   8
  243.             Left            =   1260
  244.             Picture         =   FBUTTONS.FRX:0F0A
  245.             Stretch         =   -1  'True
  246.             Top             =   105
  247.             Width           =   435
  248.          End
  249.       End
  250.       Begin VideoSoftElastic VSElastic2 
  251.          AutoSizeChildren=   7  'Proportional
  252.          BackColor       =   &H00C0C0C0&
  253.          BevelInner      =   0  'None
  254.          BevelOuterWidth =   4
  255.          Caption         =   "Phones"
  256.          FontBold        =   -1  'True
  257.          FontItalic      =   0   'False
  258.          FontName        =   "System"
  259.          FontSize        =   9.75
  260.          FontStrikethru  =   0   'False
  261.          FontUnderline   =   0   'False
  262.          Height          =   675
  263.          Index           =   6
  264.          Left            =   180
  265.          TabIndex        =   4
  266.          Top             =   4080
  267.          Width           =   1770
  268.          Begin Image Image1 
  269.             Height          =   450
  270.             Index           =   6
  271.             Left            =   1230
  272.             Picture         =   FBUTTONS.FRX:120C
  273.             Stretch         =   -1  'True
  274.             Top             =   90
  275.             Width           =   435
  276.          End
  277.       End
  278.       Begin VideoSoftElastic VSElastic2 
  279.          AutoSizeChildren=   7  'Proportional
  280.          BackColor       =   &H00C0C0C0&
  281.          BevelInner      =   0  'None
  282.          BevelOuterWidth =   4
  283.          Caption         =   "Restrooms"
  284.          FontBold        =   -1  'True
  285.          FontItalic      =   0   'False
  286.          FontName        =   "System"
  287.          FontSize        =   9.75
  288.          FontStrikethru  =   0   'False
  289.          FontUnderline   =   0   'False
  290.          Height          =   690
  291.          Index           =   5
  292.          Left            =   180
  293.          TabIndex        =   3
  294.          Top             =   2520
  295.          Width           =   1770
  296.          Begin Image Image1 
  297.             Height          =   450
  298.             Index           =   5
  299.             Left            =   1230
  300.             Picture         =   FBUTTONS.FRX:150E
  301.             Stretch         =   -1  'True
  302.             Top             =   135
  303.             Width           =   435
  304.          End
  305.       End
  306.       Begin VideoSoftElastic VSElastic2 
  307.          AutoSizeChildren=   7  'Proportional
  308.          BackColor       =   &H00C0C0C0&
  309.          BevelInner      =   0  'None
  310.          BevelOuterWidth =   4
  311.          Caption         =   "Information"
  312.          CaptionPos      =   7  'Right Center
  313.          FontBold        =   -1  'True
  314.          FontItalic      =   0   'False
  315.          FontName        =   "System"
  316.          FontSize        =   9.75
  317.          FontStrikethru  =   0   'False
  318.          FontUnderline   =   0   'False
  319.          Height          =   690
  320.          Index           =   2
  321.          Left            =   180
  322.          TabIndex        =   2
  323.          Top             =   960
  324.          Width           =   1770
  325.          Begin Image Image1 
  326.             Height          =   450
  327.             Index           =   2
  328.             Left            =   120
  329.             Picture         =   FBUTTONS.FRX:1810
  330.             Stretch         =   -1  'True
  331.             Top             =   105
  332.             Width           =   435
  333.          End
  334.       End
  335.       Begin VideoSoftElastic VSElastic2 
  336.          AutoSizeChildren=   7  'Proportional
  337.          BackColor       =   &H00C0C0C0&
  338.          BevelInner      =   0  'None
  339.          BevelOuterWidth =   4
  340.          Caption         =   "Hours"
  341.          CaptionPos      =   7  'Right Center
  342.          FontBold        =   -1  'True
  343.          FontItalic      =   0   'False
  344.          FontName        =   "System"
  345.          FontSize        =   9.75
  346.          FontStrikethru  =   0   'False
  347.          FontUnderline   =   0   'False
  348.          Height          =   690
  349.          Index           =   1
  350.          Left            =   180
  351.          TabIndex        =   1
  352.          Top             =   180
  353.          Width           =   1770
  354.          Begin Image Image1 
  355.             Height          =   450
  356.             Index           =   1
  357.             Left            =   120
  358.             Picture         =   FBUTTONS.FRX:1B12
  359.             Stretch         =   -1  'True
  360.             Top             =   150
  361.             Width           =   435
  362.          End
  363.       End
  364.    End
  365.    Begin VideoSoftElastic VSElastic5 
  366.       Align           =   2  'Align Bottom
  367.       BackColor       =   &H00C0C0C0&
  368.       BevelOuter      =   1  'Raised
  369.       BevelOuterWidth =   1
  370.       Caption         =   "Combination of Elastics and Image controls."
  371.       CaptionPos      =   4  'Center Center
  372.       FontBold        =   -1  'True
  373.       FontItalic      =   0   'False
  374.       FontName        =   "System"
  375.       FontSize        =   9.75
  376.       FontStrikethru  =   0   'False
  377.       FontUnderline   =   0   'False
  378.       Height          =   585
  379.       Left            =   0
  380.       TabIndex        =   8
  381.       Top             =   4935
  382.       Width           =   5925
  383.    End
  384. Option Explicit
  385. Sub Image1_MouseDown (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  386.   VSElastic2(Index).BevelOuter = 4
  387. End Sub
  388. Sub Image1_MouseUp (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  389.   VSElastic2(Index).BevelOuter = 2
  390. End Sub
  391. Sub Image2_Click (Index As Integer)
  392.   If VSElastic3(Index).BevelOuter = 2 Then
  393.     VSElastic3(Index).BevelOuter = 4
  394.   Else
  395.     VSElastic3(Index).BevelOuter = 2
  396.   End If
  397. End Sub
  398. Sub VSElastic2_MouseDown (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  399.   VSElastic2(Index).BevelOuter = 4
  400. End Sub
  401. Sub VSElastic2_MouseUp (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  402.   VSElastic2(Index).BevelOuter = 2
  403. End Sub
  404. Sub VSElastic3_Click (Index As Integer)
  405.   If VSElastic3(Index).BevelOuter = 2 Then
  406.     VSElastic3(Index).BevelOuter = 4
  407.   Else
  408.     VSElastic3(Index).BevelOuter = 2
  409.   End If
  410. End Sub
  411.