home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / listx / 3dfx4.frm (.txt) next >
Encoding:
Visual Basic Form  |  1997-11-17  |  9.9 KB  |  306 lines
  1. VERSION 4.00
  2. Begin VB.Form frmThreedFX 
  3.    BorderStyle     =   0  'None
  4.    ClientHeight    =   5835
  5.    ClientLeft      =   2685
  6.    ClientTop       =   4155
  7.    ClientWidth     =   7830
  8.    ControlBox      =   0   'False
  9.    Height          =   6240
  10.    Icon            =   "3dfx4.frx":0000
  11.    Left            =   2625
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MDIChild        =   -1  'True
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   5835
  17.    ScaleWidth      =   7830
  18.    ShowInTaskbar   =   0   'False
  19.    Top             =   3810
  20.    Width           =   7950
  21.    Begin VB.Frame Frame3 
  22.       Caption         =   "List"
  23.       Height          =   1935
  24.       Left            =   5685
  25.       TabIndex        =   17
  26.       Top             =   840
  27.       Width           =   1245
  28.       Begin VB.OptionButton optListEffect 
  29.          Caption         =   "Inset"
  30.          Height          =   240
  31.          Index           =   6
  32.          Left            =   150
  33.          TabIndex        =   24
  34.          Top             =   1530
  35.          Width           =   900
  36.       End
  37.       Begin VB.OptionButton optListEffect 
  38.          Caption         =   "Shadow"
  39.          Height          =   240
  40.          Index           =   5
  41.          Left            =   150
  42.          TabIndex        =   23
  43.          Top             =   1320
  44.          Width           =   900
  45.       End
  46.       Begin VB.OptionButton optListEffect 
  47.          Caption         =   "Drop"
  48.          Height          =   240
  49.          Index           =   4
  50.          Left            =   150
  51.          TabIndex        =   22
  52.          Top             =   1095
  53.          Width           =   900
  54.       End
  55.       Begin VB.OptionButton optListEffect 
  56.          Caption         =   "Pop"
  57.          Height          =   240
  58.          Index           =   3
  59.          Left            =   150
  60.          TabIndex        =   21
  61.          Top             =   885
  62.          Width           =   900
  63.       End
  64.       Begin VB.OptionButton optListEffect 
  65.          Caption         =   "Raised"
  66.          Height          =   240
  67.          Index           =   2
  68.          Left            =   150
  69.          TabIndex        =   20
  70.          Top             =   675
  71.          Width           =   900
  72.       End
  73.       Begin VB.OptionButton optListEffect 
  74.          Caption         =   "Line"
  75.          Height          =   240
  76.          Index           =   1
  77.          Left            =   150
  78.          TabIndex        =   19
  79.          Top             =   465
  80.          Width           =   900
  81.       End
  82.       Begin VB.OptionButton optListEffect 
  83.          Caption         =   "None"
  84.          Height          =   255
  85.          Index           =   0
  86.          Left            =   150
  87.          TabIndex        =   18
  88.          Top             =   240
  89.          Width           =   900
  90.       End
  91.    End
  92.    Begin VB.Frame Frame2 
  93.       Caption         =   "Heading"
  94.       Height          =   1935
  95.       Left            =   4320
  96.       TabIndex        =   9
  97.       Top             =   840
  98.       Width           =   1245
  99.       Begin VB.OptionButton optHeadingEffect 
  100.          Caption         =   "None"
  101.          Height          =   255
  102.          Index           =   0
  103.          Left            =   150
  104.          TabIndex        =   16
  105.          Top             =   240
  106.          Width           =   900
  107.       End
  108.       Begin VB.OptionButton optHeadingEffect 
  109.          Caption         =   "Line"
  110.          Height          =   240
  111.          Index           =   1
  112.          Left            =   150
  113.          TabIndex        =   15
  114.          Top             =   465
  115.          Width           =   900
  116.       End
  117.       Begin VB.OptionButton optHeadingEffect 
  118.          Caption         =   "Raised"
  119.          Height          =   240
  120.          Index           =   2
  121.          Left            =   150
  122.          TabIndex        =   14
  123.          Top             =   675
  124.          Width           =   900
  125.       End
  126.       Begin VB.OptionButton optHeadingEffect 
  127.          Caption         =   "Pop"
  128.          Height          =   240
  129.          Index           =   3
  130.          Left            =   150
  131.          TabIndex        =   13
  132.          Top             =   885
  133.          Width           =   900
  134.       End
  135.       Begin VB.OptionButton optHeadingEffect 
  136.          Caption         =   "Drop"
  137.          Height          =   240
  138.          Index           =   4
  139.          Left            =   150
  140.          TabIndex        =   12
  141.          Top             =   1095
  142.          Width           =   900
  143.       End
  144.       Begin VB.OptionButton optHeadingEffect 
  145.          Caption         =   "Shadow"
  146.          Height          =   240
  147.          Index           =   5
  148.          Left            =   150
  149.          TabIndex        =   11
  150.          Top             =   1320
  151.          Width           =   900
  152.       End
  153.       Begin VB.OptionButton optHeadingEffect 
  154.          Caption         =   "Inset"
  155.          Height          =   240
  156.          Index           =   6
  157.          Left            =   150
  158.          TabIndex        =   10
  159.          Top             =   1530
  160.          Width           =   900
  161.       End
  162.    End
  163.    Begin VB.Frame Frame1 
  164.       Caption         =   "Caption"
  165.       Height          =   1935
  166.       Left            =   2940
  167.       TabIndex        =   1
  168.       Top             =   840
  169.       Width           =   1245
  170.       Begin VB.OptionButton optCaptionEffect 
  171.          Caption         =   "Inset"
  172.          Height          =   240
  173.          Index           =   6
  174.          Left            =   150
  175.          TabIndex        =   8
  176.          Top             =   1530
  177.          Width           =   900
  178.       End
  179.       Begin VB.OptionButton optCaptionEffect 
  180.          Caption         =   "Shadow"
  181.          Height          =   240
  182.          Index           =   5
  183.          Left            =   150
  184.          TabIndex        =   7
  185.          Top             =   1320
  186.          Width           =   900
  187.       End
  188.       Begin VB.OptionButton optCaptionEffect 
  189.          Caption         =   "Drop"
  190.          Height          =   240
  191.          Index           =   4
  192.          Left            =   150
  193.          TabIndex        =   6
  194.          Top             =   1095
  195.          Width           =   900
  196.       End
  197.       Begin VB.OptionButton optCaptionEffect 
  198.          Caption         =   "Pop"
  199.          Height          =   240
  200.          Index           =   3
  201.          Left            =   150
  202.          TabIndex        =   5
  203.          Top             =   885
  204.          Width           =   900
  205.       End
  206.       Begin VB.OptionButton optCaptionEffect 
  207.          Caption         =   "Raised"
  208.          Height          =   240
  209.          Index           =   2
  210.          Left            =   150
  211.          TabIndex        =   4
  212.          Top             =   675
  213.          Width           =   900
  214.       End
  215.       Begin VB.OptionButton optCaptionEffect 
  216.          Caption         =   "Line"
  217.          Height          =   240
  218.          Index           =   1
  219.          Left            =   150
  220.          TabIndex        =   3
  221.          Top             =   465
  222.          Width           =   900
  223.       End
  224.       Begin VB.OptionButton optCaptionEffect 
  225.          Caption         =   "None"
  226.          Height          =   255
  227.          Index           =   0
  228.          Left            =   150
  229.          TabIndex        =   2
  230.          Top             =   240
  231.          Width           =   900
  232.       End
  233.    End
  234.    Begin VB.Label Label1 
  235.       Alignment       =   2  'Center
  236.       Caption         =   "Try different combinations of border effects.  Some will look better than others!"
  237.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  238.          Name            =   "MS Sans Serif"
  239.          Size            =   9.75
  240.          Charset         =   0
  241.          Weight          =   400
  242.          Underline       =   0   'False
  243.          Italic          =   0   'False
  244.          Strikethrough   =   0   'False
  245.       EndProperty
  246.       Height          =   510
  247.       Left            =   2925
  248.       TabIndex        =   25
  249.       Top             =   270
  250.       Width           =   3840
  251.    End
  252.    Begin MabryCtl.MList MList1 
  253.       Height          =   2490
  254.       Left            =   360
  255.       TabIndex        =   0
  256.       Top             =   360
  257.       Width           =   2175
  258.       _ExtentX        =   3836
  259.       _ExtentY        =   4392
  260.       Caption         =   "Caption"
  261.       Object.TabStop         =   -1  'True
  262.       ThreedShadowColor=   -2147483627
  263.       MousePointer    =   -842150451
  264.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  265.          Name            =   "MS Sans Serif"
  266.          Size            =   8.25
  267.          Charset         =   0
  268.          Weight          =   400
  269.          Underline       =   0   'False
  270.          Italic          =   0   'False
  271.          Strikethrough   =   0   'False
  272.       EndProperty
  273.       BeginProperty Columns {23BAA6DE-05A6-11D1-9E15-0020AFD6A9D5} 
  274.          ColumnCount     =   1
  275.          BeginProperty Column0 {23BAA6E0-05A6-11D1-9E15-0020AFD6A9D5} 
  276.             Object.Width           =   50
  277.             MinWidth        =   0
  278.             MaxWidth        =   -1
  279.             UserResizeEnabled=   -1
  280.             Heading         =   "Column 1"
  281.             Object.Visible         =   -1
  282.             ColumnAlignment =   0
  283.             HeadingAlignment=   0
  284.          EndProperty
  285.       EndProperty
  286.    End
  287. Attribute VB_Name = "frmThreedFX"
  288. Attribute VB_Creatable = False
  289. Attribute VB_Exposed = False
  290. Option Explicit
  291. Private Sub Form_Load()
  292.    MList1.AddItem "MlistX"
  293.    optCaptionEffect(MList1.CaptionBorderEffect) = True
  294.    optHeadingEffect(MList1.HeadingsBorderEffect) = True
  295.    optListEffect(MList1.ListBorderEffect) = True
  296. End Sub
  297. Private Sub optCaptionEffect_Click(Index As Integer)
  298.    MList1.CaptionBorderEffect = Index
  299. End Sub
  300. Private Sub optHeadingEffect_Click(Index As Integer)
  301.    MList1.HeadingsBorderEffect = Index
  302. End Sub
  303. Private Sub optListEffect_Click(Index As Integer)
  304.    MList1.ListBorderEffect = Index
  305. End Sub
  306.