home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / vb / 3ctrls / splitter.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-07-15  |  8.6 KB  |  245 lines
  1. VERSION 2.00
  2. Begin Form Splitter 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Resize controls using the colored splitter bars"
  5.    ClientHeight    =   3720
  6.    ClientLeft      =   1260
  7.    ClientTop       =   1620
  8.    ClientWidth     =   7725
  9.    Height          =   4185
  10.    Left            =   1170
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   3720
  13.    ScaleWidth      =   7725
  14.    Top             =   1245
  15.    Width           =   7905
  16.    Begin VideoSoftElastic VSElastic1 
  17.       Align           =   5  'Fill Container
  18.       AutoSizeChildren=   2  'Uneven Horizontally
  19.       BackColor       =   &H0000FF00&
  20.       BevelInner      =   3  'Inset
  21.       BevelInnerWidth =   1
  22.       BevelOuter      =   2  'Raised Outlined
  23.       BevelOuterWidth =   2
  24.       BorderWidth     =   0
  25.       Caption         =   ""
  26.       CaptionPos      =   1  'Left Center
  27.       ChildSpacing    =   6
  28.       FloodColor      =   &H000000C0&
  29.       FloodDirection  =   0  'None
  30.       FloodPercent    =   0
  31.       Height          =   3720
  32.       Left            =   0
  33.       Splitter        =   1  'Yes (with uneven spacing)
  34.       TabIndex        =   0
  35.       Top             =   0
  36.       Width           =   7725
  37.       Begin VideoSoftElastic VSElastic4 
  38.          Align           =   0  'None
  39.          AutoSizeChildren=   4  'Uneven Vertically
  40.          BackColor       =   &H0000FF00&
  41.          BevelInner      =   3  'Inset
  42.          BevelInnerWidth =   1
  43.          BevelOuter      =   2  'Raised Outlined
  44.          BevelOuterWidth =   2
  45.          BorderWidth     =   0
  46.          Caption         =   ""
  47.          CaptionPos      =   1  'Left Center
  48.          ChildSpacing    =   6
  49.          FloodColor      =   &H000000C0&
  50.          FloodDirection  =   0  'None
  51.          FloodPercent    =   0
  52.          Height          =   3720
  53.          Left            =   5310
  54.          Splitter        =   1  'Yes (with uneven spacing)
  55.          TabIndex        =   6
  56.          Top             =   0
  57.          Width           =   2415
  58.          Begin VideoSoftElastic VSElastic6 
  59.             Align           =   0  'None
  60.             AutoSizeChildren=   3  'Even Vertically
  61.             BackColor       =   &H00C0C0C0&
  62.             BevelInner      =   3  'Inset
  63.             BevelInnerWidth =   1
  64.             BevelOuter      =   2  'Raised Outlined
  65.             BevelOuterWidth =   2
  66.             BorderWidth     =   6
  67.             Caption         =   ""
  68.             CaptionPos      =   1  'Left Center
  69.             ChildSpacing    =   6
  70.             FloodColor      =   &H000000C0&
  71.             FloodDirection  =   0  'None
  72.             FloodPercent    =   0
  73.             Height          =   2985
  74.             Left            =   0
  75.             Splitter        =   0  'No
  76.             TabIndex        =   11
  77.             Top             =   0
  78.             Width           =   2415
  79.             Begin CommandButton Command1 
  80.                Caption         =   "Colors"
  81.                Height          =   630
  82.                Index           =   0
  83.                Left            =   90
  84.                TabIndex        =   15
  85.                Top             =   90
  86.                Width           =   2235
  87.             End
  88.             Begin CommandButton Command1 
  89.                Caption         =   "Button 3"
  90.                Height          =   645
  91.                Index           =   1
  92.                Left            =   90
  93.                TabIndex        =   14
  94.                Top             =   2250
  95.                Width           =   2235
  96.             End
  97.             Begin CommandButton Command1 
  98.                Caption         =   "Button 2"
  99.                Height          =   630
  100.                Index           =   2
  101.                Left            =   90
  102.                TabIndex        =   13
  103.                Top             =   1530
  104.                Width           =   2235
  105.             End
  106.             Begin CommandButton Command1 
  107.                Caption         =   "Button 1"
  108.                Height          =   630
  109.                Index           =   3
  110.                Left            =   90
  111.                TabIndex        =   12
  112.                Top             =   810
  113.                Width           =   2235
  114.             End
  115.          End
  116.          Begin VideoSoftElastic VSElastic5 
  117.             Align           =   0  'None
  118.             AutoSizeChildren=   1  'Even Horizontally
  119.             BackColor       =   &H00C0C0C0&
  120.             BevelInner      =   3  'Inset
  121.             BevelInnerWidth =   1
  122.             BevelOuter      =   2  'Raised Outlined
  123.             BevelOuterWidth =   2
  124.             BorderWidth     =   6
  125.             Caption         =   ""
  126.             CaptionPos      =   1  'Left Center
  127.             ChildSpacing    =   6
  128.             FloodColor      =   &H000000C0&
  129.             FloodDirection  =   0  'None
  130.             FloodPercent    =   0
  131.             Height          =   645
  132.             Left            =   0
  133.             Splitter        =   0  'No
  134.             TabIndex        =   7
  135.             Top             =   3075
  136.             Width           =   2415
  137.             Begin CommandButton Command1 
  138.                Caption         =   "A"
  139.                Height          =   465
  140.                Index           =   6
  141.                Left            =   90
  142.                TabIndex        =   10
  143.                Top             =   90
  144.                Width           =   675
  145.             End
  146.             Begin CommandButton Command1 
  147.                Caption         =   "B"
  148.                Height          =   465
  149.                Index           =   5
  150.                Left            =   855
  151.                TabIndex        =   9
  152.                Top             =   90
  153.                Width           =   675
  154.             End
  155.             Begin CommandButton Command1 
  156.                Caption         =   "C"
  157.                Height          =   465
  158.                Index           =   4
  159.                Left            =   1620
  160.                TabIndex        =   8
  161.                Top             =   90
  162.                Width           =   705
  163.             End
  164.          End
  165.       End
  166.       Begin VideoSoftElastic VSElastic3 
  167.          Align           =   0  'None
  168.          AutoSizeChildren=   1  'Even Horizontally
  169.          BackColor       =   &H00C0C0C0&
  170.          BevelInner      =   3  'Inset
  171.          BevelInnerWidth =   1
  172.          BevelOuter      =   2  'Raised Outlined
  173.          BevelOuterWidth =   2
  174.          BorderWidth     =   6
  175.          Caption         =   ""
  176.          CaptionPos      =   1  'Left Center
  177.          ChildSpacing    =   6
  178.          FloodColor      =   &H000000C0&
  179.          FloodDirection  =   0  'None
  180.          FloodPercent    =   0
  181.          Height          =   3720
  182.          Left            =   1635
  183.          Splitter        =   0  'No
  184.          TabIndex        =   2
  185.          Top             =   0
  186.          Width           =   3585
  187.          Begin FileListBox File1 
  188.             Height          =   3540
  189.             Left            =   90
  190.             TabIndex        =   5
  191.             Top             =   90
  192.             Width           =   3405
  193.          End
  194.       End
  195.       Begin VideoSoftElastic VSElastic2 
  196.          Align           =   0  'None
  197.          AutoSizeChildren=   4  'Uneven Vertically
  198.          BackColor       =   &H00C0C0C0&
  199.          BevelInner      =   3  'Inset
  200.          BevelInnerWidth =   1
  201.          BevelOuter      =   2  'Raised Outlined
  202.          BevelOuterWidth =   2
  203.          BorderWidth     =   6
  204.          Caption         =   ""
  205.          CaptionPos      =   1  'Left Center
  206.          ChildSpacing    =   6
  207.          FloodColor      =   &H000000C0&
  208.          FloodDirection  =   0  'None
  209.          FloodPercent    =   0
  210.          Height          =   3720
  211.          Left            =   0
  212.          Splitter        =   0  'No
  213.          TabIndex        =   1
  214.          Top             =   0
  215.          Width           =   1545
  216.          Begin DirListBox Dir1 
  217.             Height          =   2955
  218.             Left            =   90
  219.             TabIndex        =   4
  220.             Top             =   495
  221.             Width           =   1365
  222.          End
  223.          Begin DriveListBox Drive1 
  224.             Height          =   315
  225.             Left            =   90
  226.             TabIndex        =   3
  227.             Top             =   90
  228.             Width           =   1365
  229.          End
  230.       End
  231.    End
  232. Option Explicit
  233. Sub Command1_Click (Index As Integer)
  234.   Dim newcolor&
  235.   Select Case Index
  236.     Case 0
  237.       newcolor = QBColor(Rnd * 15)
  238.       VSelastic1.BackColor = newcolor
  239.       VSelastic4.BackColor = newcolor
  240.   End Select
  241. End Sub
  242. Sub Form_Resize ()
  243.   VSelastic1.Top = 0
  244. End Sub
  245.