home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / truegrid / disk1 / vsdemo / vsdemo.$ / FBUTTONS.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-01-19  |  10.2 KB  |  283 lines
  1. VERSION 2.00
  2. Begin Form fButtons 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "Styles"
  6.    ClientHeight    =   4755
  7.    ClientLeft      =   330
  8.    ClientTop       =   1200
  9.    ClientWidth     =   5505
  10.    Height          =   5220
  11.    Left            =   240
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   4755
  14.    ScaleWidth      =   5505
  15.    Top             =   825
  16.    Width           =   5685
  17.    Begin VideoSoftElastic VSElastic4 
  18.       Align           =   5  'Fill Container
  19.       AutoSizeChildren=   3  'Even Vertical
  20.       BevelInnerWidth =   0
  21.       BevelOuter      =   1  'Raised
  22.       BevelOuterWidth =   1
  23.       BorderWidth     =   12
  24.       ConvInfo        =   FBUTTONS.FRX:0000
  25.       Height          =   4170
  26.       IntBkg          =   &H00C0C0C0&
  27.       Left            =   0
  28.       TabIndex        =   1
  29.       Top             =   0
  30.       Width           =   3555
  31.       Begin VideoSoftElastic VSElastic7 
  32.          AutoSizeChildren=   1  'Even Horizontal
  33.          BevelInner      =   7  'Shadow
  34.          BevelInnerWidth =   0
  35.          BevelOuter      =   6  'Groove
  36.          BorderWidth     =   10
  37.          Caption         =   "Bottom Frame"
  38.          CaptionPos      =   8  'Right Bottom
  39.          ChildSpacing    =   12
  40.          ConvInfo        =   FBUTTONS.FRX:000B
  41.          FontBold        =   0   'False
  42.          FontItalic      =   0   'False
  43.          FontName        =   "Arial"
  44.          FontSize        =   9.75
  45.          FontStrikethru  =   0   'False
  46.          FontUnderline   =   0   'False
  47.          ForeColor       =   &H00FF0000&
  48.          Height          =   1860
  49.          IntBkg          =   &H00C0C0C0&
  50.          Left            =   180
  51.          ShadowColor     =   &H00404080&
  52.          Style           =   2  'Frame Bottom
  53.          TabIndex        =   4
  54.          Top             =   2130
  55.          Width           =   3195
  56.       End
  57.       Begin VideoSoftElastic VSElastic6 
  58.          BevelOuter      =   5  'Fillet
  59.          BorderWidth     =   20
  60.          Caption         =   "Elastic's new Frame style"
  61.          CaptionPos      =   3  'Center Top
  62.          ConvInfo        =   FBUTTONS.FRX:0016
  63.          FontBold        =   0   'False
  64.          FontItalic      =   0   'False
  65.          FontName        =   "Arial"
  66.          FontSize        =   9.75
  67.          FontStrikethru  =   0   'False
  68.          FontUnderline   =   0   'False
  69.          ForeColor       =   &H00FF0000&
  70.          Height          =   1860
  71.          IntBkg          =   &H00C0C0C0&
  72.          Left            =   180
  73.          Style           =   1  'Frame Top
  74.          TabIndex        =   3
  75.          TagWidth        =   1200
  76.          Top             =   180
  77.          Width           =   3195
  78.          Begin ComboBox Combo1 
  79.             FontBold        =   0   'False
  80.             FontItalic      =   0   'False
  81.             FontName        =   "MS Sans Serif"
  82.             FontSize        =   8.25
  83.             FontStrikethru  =   0   'False
  84.             FontUnderline   =   0   'False
  85.             Height          =   300
  86.             Left            =   1365
  87.             Style           =   2  'Dropdown List
  88.             TabIndex        =   10
  89.             Tag             =   "Frame Bevel"
  90.             Top             =   705
  91.             Width           =   1425
  92.          End
  93.       End
  94.    End
  95.    Begin VideoSoftElastic VSElastic1 
  96.       Align           =   4  'Right
  97.       AutoSizeChildren=   3  'Even Vertical
  98.       BevelInner      =   0  'None
  99.       BevelInnerWidth =   3
  100.       BevelOuter      =   1  'Raised
  101.       BevelOuterWidth =   1
  102.       BorderWidth     =   10
  103.       ConvInfo        =   FBUTTONS.FRX:0021
  104.       CornerColor     =   &H00C0C0C0&
  105.       Height          =   4170
  106.       IntBkg          =   &H00C0C0C0&
  107.       Left            =   3555
  108.       ShadowColor     =   &H00404040&
  109.       TabIndex        =   0
  110.       Top             =   0
  111.       Width           =   1950
  112.       Begin VideoSoftElastic VSElastic8 
  113.          BevelInner      =   0  'None
  114.          BevelOuter      =   8  'Raised New Look
  115.          BorderWidth     =   8
  116.          Caption         =   "Toggle Button"
  117.          ConvInfo        =   FBUTTONS.FRX:002C
  118.          CornerColor     =   &H00C0C0C0&
  119.          FontBold        =   0   'False
  120.          FontItalic      =   0   'False
  121.          FontName        =   "MS Sans Serif"
  122.          FontSize        =   8.25
  123.          FontStrikethru  =   0   'False
  124.          FontUnderline   =   0   'False
  125.          Height          =   705
  126.          Index           =   4
  127.          IntBkg          =   &H00C0C0C0&
  128.          Left            =   150
  129.          Picture         =   FBUTTONS.FRX:0037
  130.          PicturePos      =   7  'Right Center
  131.          ShowFocusRect   =   -1  'True
  132.          Style           =   4  'Toggle Button
  133.          TabIndex        =   9
  134.          Top             =   150
  135.          Width           =   1650
  136.       End
  137.       Begin VideoSoftElastic VSElastic8 
  138.          BevelInner      =   0  'None
  139.          BevelOuter      =   8  'Raised New Look
  140.          BorderWidth     =   8
  141.          Caption         =   "Toggle Button"
  142.          ConvInfo        =   FBUTTONS.FRX:0339
  143.          CornerColor     =   &H00C0C0C0&
  144.          FontBold        =   0   'False
  145.          FontItalic      =   0   'False
  146.          FontName        =   "MS Sans Serif"
  147.          FontSize        =   8.25
  148.          FontStrikethru  =   0   'False
  149.          FontUnderline   =   0   'False
  150.          Height          =   705
  151.          Index           =   3
  152.          IntBkg          =   &H00C0C0C0&
  153.          Left            =   150
  154.          Picture         =   FBUTTONS.FRX:0344
  155.          PicturePos      =   7  'Right Center
  156.          ShowFocusRect   =   -1  'True
  157.          Style           =   4  'Toggle Button
  158.          TabIndex        =   8
  159.          Top             =   945
  160.          Width           =   1650
  161.       End
  162.       Begin VideoSoftElastic VSElastic8 
  163.          BevelInner      =   0  'None
  164.          BevelOuter      =   8  'Raised New Look
  165.          BorderWidth     =   8
  166.          Caption         =   "Toggle Button"
  167.          ConvInfo        =   FBUTTONS.FRX:0646
  168.          CornerColor     =   &H00C0C0C0&
  169.          FontBold        =   0   'False
  170.          FontItalic      =   0   'False
  171.          FontName        =   "MS Sans Serif"
  172.          FontSize        =   8.25
  173.          FontStrikethru  =   0   'False
  174.          FontUnderline   =   0   'False
  175.          Height          =   705
  176.          Index           =   2
  177.          IntBkg          =   &H00C0C0C0&
  178.          Left            =   150
  179.          Picture         =   FBUTTONS.FRX:0651
  180.          PicturePos      =   7  'Right Center
  181.          ShowFocusRect   =   -1  'True
  182.          Style           =   4  'Toggle Button
  183.          TabIndex        =   7
  184.          Top             =   1740
  185.          Width           =   1650
  186.       End
  187.       Begin VideoSoftElastic VSElastic5 
  188.          AccessKey       =   -1  'True
  189.          BevelInner      =   0  'None
  190.          BevelOuter      =   8  'Raised New Look
  191.          BevelOuterWidth =   1
  192.          BorderWidth     =   12
  193.          Caption         =   "Command"
  194.          CaptionPos      =   7  'Right Center
  195.          CaptionStyle    =   4  'Inset Light
  196.          ConvInfo        =   FBUTTONS.FRX:0953
  197.          CornerColor     =   &H00C0C0C0&
  198.          Enabled         =   0   'False
  199.          FontBold        =   0   'False
  200.          FontItalic      =   0   'False
  201.          FontName        =   "MS Sans Serif"
  202.          FontSize        =   8.25
  203.          FontStrikethru  =   0   'False
  204.          FontUnderline   =   0   'False
  205.          ForeColor       =   &H00808080&
  206.          Height          =   705
  207.          Index           =   1
  208.          IntBkg          =   &H00C0C0C0&
  209.          Left            =   150
  210.          Picture         =   FBUTTONS.FRX:095E
  211.          PicturePos      =   1  'Left Center
  212.          ShowFocusRect   =   -1  'True
  213.          Style           =   3  'Command Button
  214.          TabIndex        =   6
  215.          Top             =   2535
  216.          Width           =   1650
  217.       End
  218.       Begin VideoSoftElastic VSElastic5 
  219.          AccessKey       =   -1  'True
  220.          BevelInner      =   0  'None
  221.          BevelOuter      =   8  'Raised New Look
  222.          BevelOuterWidth =   1
  223.          BorderWidth     =   12
  224.          Caption         =   "Command"
  225.          ConvInfo        =   FBUTTONS.FRX:0C60
  226.          CornerColor     =   &H00C0C0C0&
  227.          FontBold        =   0   'False
  228.          FontItalic      =   0   'False
  229.          FontName        =   "MS Sans Serif"
  230.          FontSize        =   8.25
  231.          FontStrikethru  =   0   'False
  232.          FontUnderline   =   0   'False
  233.          Height          =   690
  234.          Index           =   7
  235.          IntBkg          =   &H00C0C0C0&
  236.          Left            =   150
  237.          Picture         =   FBUTTONS.FRX:0C6B
  238.          PicturePos      =   7  'Right Center
  239.          ShowFocusRect   =   -1  'True
  240.          Style           =   3  'Command Button
  241.          TabIndex        =   5
  242.          Top             =   3330
  243.          Width           =   1650
  244.       End
  245.    End
  246.    Begin VideoSoftElastic VSElastic5 
  247.       Align           =   2  'Bottom
  248.       BevelOuter      =   1  'Raised
  249.       BevelOuterWidth =   1
  250.       CaptionPos      =   4  'Center Center
  251.       ConvInfo        =   FBUTTONS.FRX:0F6D
  252.       FontBold        =   0   'False
  253.       FontItalic      =   0   'False
  254.       FontName        =   "Arial"
  255.       FontSize        =   9
  256.       FontStrikethru  =   0   'False
  257.       FontUnderline   =   0   'False
  258.       Height          =   585
  259.       Index           =   0
  260.       IntBkg          =   &H00C0C0C0&
  261.       Left            =   0
  262.       TabIndex        =   2
  263.       Top             =   4170
  264.       Width           =   5505
  265.    End
  266. Option Explicit
  267. Sub Combo1_Click ()
  268.   vsElastic6.BevelOuter = combo1.ListIndex + 1
  269.   vsElastic7.BevelOuter = combo1.ListIndex + 1
  270. End Sub
  271. Sub Form_Load ()
  272.   combo1.AddItem "Raised"
  273.   combo1.AddItem "Raised Outlined"
  274.   combo1.AddItem "Inset"
  275.   combo1.AddItem "Inset Outlined"
  276.   combo1.AddItem "Fillet"
  277.   combo1.AddItem "Groove"
  278.   combo1.AddItem "Shadow"
  279.   combo1.AddItem "Raised New Look"
  280.   combo1.AddItem "Inset New Look"
  281.   combo1.ListIndex = 5
  282. End Sub
  283.