home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 5 Developer's Kit / vb5 dev kit.iso / dev / csview / ffx.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-04-05  |  12.1 KB  |  369 lines
  1. VERSION 2.00
  2. Begin Form fFX 
  3.    AutoRedraw      =   -1  'True
  4.    BackColor       =   &H00C0C0C0&
  5.    Caption         =   "Special FX"
  6.    ClientHeight    =   4395
  7.    ClientLeft      =   285
  8.    ClientTop       =   1815
  9.    ClientWidth     =   8820
  10.    ControlBox      =   0   'False
  11.    Height          =   4800
  12.    Left            =   225
  13.    LinkTopic       =   "Form3"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   4395
  17.    ScaleWidth      =   8820
  18.    Top             =   1470
  19.    Width           =   8940
  20.    Begin vsInForm vsInForm1 
  21.       BarColor        =   &H00808000&
  22.       BarColorInactive=   &H00808000&
  23.       BarHeight       =   30
  24.       BarStyle        =   3  'Raised
  25.       ButtonsLeft     =   0  '0
  26.       ButtonsRight    =   1  '1
  27.       CapAlign        =   1  'Left Center
  28.       CapColor        =   &H00FFFFFF&
  29.       CapColorInactive=   &H00C0C0C0&
  30.       Caption         =   "   vsInForm: Custom Borders on Forms and Controls"
  31.       ConvInfo        =   FFX.FRX:0000
  32.       FontBold        =   -1  'True
  33.       FontItalic      =   0   'False
  34.       FontName        =   "Arial"
  35.       FontSize        =   12
  36.       FontStrikethru  =   0   'False
  37.       FontUnderline   =   0   'False
  38.       FrameColor      =   &H00C0C0C0&
  39.       FrameColorInactive=   &H00C0C0C0&
  40.       FrameCorners    =   0   'False
  41.       FrameSizing     =   0  'None
  42.       FrameStyle      =   3  'Raised Form
  43.       Left            =   3345
  44.       PictRight0      =   FFX.FRX:000B
  45.       Top             =   900
  46.    End
  47.    Begin Frame Frame2 
  48.       BackColor       =   &H00C0C0C0&
  49.       Caption         =   "Frame"
  50.       Height          =   1695
  51.       Left            =   105
  52.       TabIndex        =   8
  53.       Top             =   210
  54.       Width           =   3075
  55.       Begin CheckBox Check1 
  56.          Alignment       =   1  'Right Justify
  57.          BackColor       =   &H00C0C0C0&
  58.          Caption         =   "Corners"
  59.          FontBold        =   0   'False
  60.          FontItalic      =   0   'False
  61.          FontName        =   "MS Sans Serif"
  62.          FontSize        =   8.25
  63.          FontStrikethru  =   0   'False
  64.          FontUnderline   =   0   'False
  65.          Height          =   225
  66.          Left            =   315
  67.          TabIndex        =   15
  68.          Top             =   1365
  69.          Width           =   1170
  70.       End
  71.       Begin ComboBox Combo6 
  72.          FontBold        =   0   'False
  73.          FontItalic      =   0   'False
  74.          FontName        =   "MS Sans Serif"
  75.          FontSize        =   8.25
  76.          FontStrikethru  =   0   'False
  77.          FontUnderline   =   0   'False
  78.          Height          =   315
  79.          Left            =   1020
  80.          Style           =   2  'Dropdown List
  81.          TabIndex        =   11
  82.          Tag             =   "Left"
  83.          Top             =   300
  84.          Width           =   1815
  85.       End
  86.       Begin ComboBox Combo5 
  87.          FontBold        =   0   'False
  88.          FontItalic      =   0   'False
  89.          FontName        =   "MS Sans Serif"
  90.          FontSize        =   8.25
  91.          FontStrikethru  =   0   'False
  92.          FontUnderline   =   0   'False
  93.          Height          =   315
  94.          Left            =   1020
  95.          Style           =   2  'Dropdown List
  96.          TabIndex        =   10
  97.          Tag             =   "Left"
  98.          Top             =   600
  99.          Width           =   1815
  100.       End
  101.       Begin ComboBox Combo4 
  102.          FontBold        =   0   'False
  103.          FontItalic      =   0   'False
  104.          FontName        =   "MS Sans Serif"
  105.          FontSize        =   8.25
  106.          FontStrikethru  =   0   'False
  107.          FontUnderline   =   0   'False
  108.          Height          =   315
  109.          Left            =   1020
  110.          Style           =   2  'Dropdown List
  111.          TabIndex        =   9
  112.          Tag             =   "Left"
  113.          Top             =   900
  114.          Width           =   1815
  115.       End
  116.       Begin Label Label6 
  117.          BackStyle       =   0  'Transparent
  118.          Caption         =   "Style"
  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          =   255
  126.          Left            =   180
  127.          TabIndex        =   14
  128.          Top             =   360
  129.          Width           =   555
  130.       End
  131.       Begin Label Label5 
  132.          BackStyle       =   0  'Transparent
  133.          Caption         =   "Resizing"
  134.          FontBold        =   0   'False
  135.          FontItalic      =   0   'False
  136.          FontName        =   "MS Sans Serif"
  137.          FontSize        =   8.25
  138.          FontStrikethru  =   0   'False
  139.          FontUnderline   =   0   'False
  140.          Height          =   255
  141.          Left            =   180
  142.          TabIndex        =   13
  143.          Top             =   660
  144.          Width           =   735
  145.       End
  146.       Begin Label Label4 
  147.          BackStyle       =   0  'Transparent
  148.          Caption         =   "Width"
  149.          FontBold        =   0   'False
  150.          FontItalic      =   0   'False
  151.          FontName        =   "MS Sans Serif"
  152.          FontSize        =   8.25
  153.          FontStrikethru  =   0   'False
  154.          FontUnderline   =   0   'False
  155.          Height          =   255
  156.          Left            =   180
  157.          TabIndex        =   12
  158.          Top             =   960
  159.          Width           =   555
  160.       End
  161.    End
  162.    Begin Frame Frame1 
  163.       BackColor       =   &H00C0C0C0&
  164.       Caption         =   "Caption"
  165.       Height          =   1380
  166.       Left            =   105
  167.       TabIndex        =   1
  168.       Top             =   1995
  169.       Width           =   3075
  170.       Begin ComboBox Combo3 
  171.          FontBold        =   0   'False
  172.          FontItalic      =   0   'False
  173.          FontName        =   "MS Sans Serif"
  174.          FontSize        =   8.25
  175.          FontStrikethru  =   0   'False
  176.          FontUnderline   =   0   'False
  177.          Height          =   315
  178.          Left            =   1020
  179.          Style           =   2  'Dropdown List
  180.          TabIndex        =   6
  181.          Tag             =   "Left"
  182.          Top             =   900
  183.          Width           =   1815
  184.       End
  185.       Begin ComboBox Combo2 
  186.          FontBold        =   0   'False
  187.          FontItalic      =   0   'False
  188.          FontName        =   "MS Sans Serif"
  189.          FontSize        =   8.25
  190.          FontStrikethru  =   0   'False
  191.          FontUnderline   =   0   'False
  192.          Height          =   315
  193.          Left            =   1020
  194.          Style           =   2  'Dropdown List
  195.          TabIndex        =   4
  196.          Tag             =   "Left"
  197.          Top             =   600
  198.          Width           =   1815
  199.       End
  200.       Begin ComboBox Combo1 
  201.          FontBold        =   0   'False
  202.          FontItalic      =   0   'False
  203.          FontName        =   "MS Sans Serif"
  204.          FontSize        =   8.25
  205.          FontStrikethru  =   0   'False
  206.          FontUnderline   =   0   'False
  207.          Height          =   315
  208.          Left            =   1020
  209.          Style           =   2  'Dropdown List
  210.          TabIndex        =   2
  211.          Tag             =   "Left"
  212.          Top             =   300
  213.          Width           =   1815
  214.       End
  215.       Begin Label Label3 
  216.          BackStyle       =   0  'Transparent
  217.          Caption         =   "Height"
  218.          FontBold        =   0   'False
  219.          FontItalic      =   0   'False
  220.          FontName        =   "MS Sans Serif"
  221.          FontSize        =   8.25
  222.          FontStrikethru  =   0   'False
  223.          FontUnderline   =   0   'False
  224.          Height          =   255
  225.          Left            =   180
  226.          TabIndex        =   7
  227.          Top             =   960
  228.          Width           =   555
  229.       End
  230.       Begin Label Label2 
  231.          BackStyle       =   0  'Transparent
  232.          Caption         =   "Align"
  233.          FontBold        =   0   'False
  234.          FontItalic      =   0   'False
  235.          FontName        =   "MS Sans Serif"
  236.          FontSize        =   8.25
  237.          FontStrikethru  =   0   'False
  238.          FontUnderline   =   0   'False
  239.          Height          =   255
  240.          Left            =   180
  241.          TabIndex        =   5
  242.          Top             =   660
  243.          Width           =   555
  244.       End
  245.       Begin Label Label1 
  246.          BackStyle       =   0  'Transparent
  247.          Caption         =   "Style"
  248.          FontBold        =   0   'False
  249.          FontItalic      =   0   'False
  250.          FontName        =   "MS Sans Serif"
  251.          FontSize        =   8.25
  252.          FontStrikethru  =   0   'False
  253.          FontUnderline   =   0   'False
  254.          Height          =   255
  255.          Left            =   180
  256.          TabIndex        =   3
  257.          Top             =   360
  258.          Width           =   555
  259.       End
  260.    End
  261.    Begin PictureBox Picture1 
  262.       BackColor       =   &H0080FFFF&
  263.       Height          =   3705
  264.       Left            =   3990
  265.       Picture         =   FFX.FRX:00DD
  266.       ScaleHeight     =   3390
  267.       ScaleWidth      =   4305
  268.       TabIndex        =   0
  269.       Top             =   255
  270.       Width           =   4425
  271.       Begin vsInForm VSi 
  272.          BarColor        =   &H00800080&
  273.          BarColorInactive=   &H00800080&
  274.          BarHeight       =   13
  275.          ButtonsLeft     =   3  '3
  276.          ButtonsRight    =   3  '3
  277.          CapColor        =   &H00FFFFFF&
  278.          CapColorInactive=   &H00FFFFFF&
  279.          CapMultiLine    =   -1  'True
  280.          Caption         =   "Floating Picture Box"
  281.          ConvInfo        =   FFX.FRX:3E93
  282.          CustomFrame     =   -1  'True
  283.          FontBold        =   0   'False
  284.          FontItalic      =   0   'False
  285.          FontName        =   "Small Fonts"
  286.          FontSize        =   6.75
  287.          FontStrikethru  =   0   'False
  288.          FontUnderline   =   0   'False
  289.          FrameColor      =   &H00C0C0C0&
  290.          FrameColorInactive=   &H00C0C0C0&
  291.          FrameCorners    =   0   'False
  292.          Left            =   225
  293.          PictLeft0       =   FFX.FRX:3E9E
  294.          PictLeft1       =   FFX.FRX:3F68
  295.          PictLeft2       =   FFX.FRX:4032
  296.          PictRight0      =   FFX.FRX:40FC
  297.          PictRight1      =   FFX.FRX:41C6
  298.          PictRight2      =   FFX.FRX:4290
  299.          Top             =   1020
  300.       End
  301.    End
  302. Option Explicit
  303. Sub Check1_Click ()
  304.   VSi.FrameCorners = Not VSi.FrameCorners
  305. End Sub
  306. Sub Combo1_Click ()
  307.   VSi.BarStyle = Val(Combo1)
  308. End Sub
  309. Sub Combo2_Click ()
  310.   VSi.CapAlign = Val(Combo2)
  311. End Sub
  312. Sub Combo3_Click ()
  313.   VSi.BarHeight = Val(Combo3)
  314. End Sub
  315. Sub Combo4_Click ()
  316.   VSi.FrameWidth = Val(Combo4)
  317. End Sub
  318. Sub Combo5_Click ()
  319.   VSi.FrameSizing = Val(Combo5)
  320. End Sub
  321. Sub Combo6_Click ()
  322.   VSi.FrameStyle = Val(Combo6)
  323. End Sub
  324. Sub Form_Load ()
  325.   VSinform1.CustomFrame = True
  326.   ' cap style
  327.   Combo1.AddItem "0 - None"
  328.   Combo1.AddItem "1 - Flat"
  329.   Combo1.AddItem "2 - No Border"
  330.   Combo1.AddItem "3 - Raised"
  331.   Combo1.AddItem "4 - Inset"
  332.   Combo1.ListIndex = 3
  333.   ' cap align
  334.   Combo2.AddItem "1 - Left Center"
  335.   Combo2.AddItem "4 - Center Center"
  336.   Combo2.AddItem "7 - Right Center"
  337.   Combo2.ListIndex = 1
  338.   ' cap height
  339.   Combo3.AddItem "0 - Default"
  340.   Combo3.AddItem "12"
  341.   Combo3.AddItem "15"
  342.   Combo3.AddItem "25"
  343.   Combo3.ListIndex = 3
  344.   ' frame style
  345.   Combo6.AddItem "0 - None"
  346.   Combo6.AddItem "1 - Classic"
  347.   Combo6.AddItem "2 - Outside"
  348.   Combo6.AddItem "3 - Raised Form"
  349.   Combo6.AddItem "4 - Raised Frame"
  350.   Combo6.ListIndex = 3
  351.   ' resizing
  352.   Combo5.AddItem "0 - None"
  353.   Combo5.AddItem "1 - Horizontal"
  354.   Combo5.AddItem "2 - Vertical"
  355.   Combo5.AddItem "3 - Both"
  356.   Combo5.AddItem "4 - Locked"
  357.   Combo5.ListIndex = 3
  358.   ' frame width
  359.   Combo4.AddItem "0 - Default"
  360.   Combo4.AddItem "3"
  361.   Combo4.AddItem "5"
  362.   Combo4.AddItem "8"
  363.   Combo4.AddItem "12"
  364.   Combo4.ListIndex = 3
  365. End Sub
  366. Sub vsInForm1_ClickRButton (Button As Integer)
  367.   Unload Me
  368. End Sub
  369.