home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / buildy1a / frmtest.frm (.txt) next >
Encoding:
Visual Basic Form  |  1999-09-07  |  5.0 KB  |  155 lines
  1. VERSION 5.00
  2. Begin VB.Form frmTest 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   4800
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   6450
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   4800
  10.    ScaleWidth      =   6450
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.PictureBox picRight 
  13.       Height          =   4335
  14.       Left            =   2640
  15.       ScaleHeight     =   4275
  16.       ScaleWidth      =   3315
  17.       TabIndex        =   2
  18.       Top             =   120
  19.       Width           =   3375
  20.       Begin VB.TextBox txtBottom 
  21.          Height          =   1695
  22.          Left            =   360
  23.          TabIndex        =   5
  24.          Text            =   "Text1"
  25.          Top             =   2400
  26.          Width           =   2655
  27.       End
  28.       Begin VB.PictureBox picHSplit 
  29.          Height          =   135
  30.          Left            =   240
  31.          ScaleHeight     =   75
  32.          ScaleWidth      =   2835
  33.          TabIndex        =   4
  34.          Top             =   2160
  35.          Width           =   2895
  36.       End
  37.       Begin VB.TextBox txtTop 
  38.          Height          =   1575
  39.          Left            =   240
  40.          TabIndex        =   3
  41.          Text            =   "Text1"
  42.          Top             =   240
  43.          Width           =   2895
  44.       End
  45.    End
  46.    Begin VB.PictureBox picSplitter 
  47.       Height          =   4215
  48.       Left            =   2160
  49.       ScaleHeight     =   4155
  50.       ScaleWidth      =   75
  51.       TabIndex        =   1
  52.       Top             =   240
  53.       Width           =   135
  54.    End
  55.    Begin VB.TextBox txtLeft 
  56.       Height          =   4455
  57.       Left            =   120
  58.       MultiLine       =   -1  'True
  59.       ScrollBars      =   3  'Both
  60.       TabIndex        =   0
  61.       Text            =   "frmTest.frx":0000
  62.       Top             =   120
  63.       Width           =   1815
  64.    End
  65. Attribute VB_Name = "frmTest"
  66. Attribute VB_GlobalNameSpace = False
  67. Attribute VB_Creatable = False
  68. Attribute VB_PredeclaredId = True
  69. Attribute VB_Exposed = False
  70. Option Explicit
  71. Dim spVSet As New vSplit
  72. Dim spHSet As New HSplit
  73. Private Sub form_initialize()
  74.   Set spVSet.HostPane = Me
  75.   Set spVSet.LeftPane = txtLeft
  76.   Set spVSet.RightPane = picRight
  77.   Set spVSet.SplitBar = picSplitter
  78.   spVSet.SplitOn = False
  79.   Set spHSet.HostPane = picRight
  80.   Set spHSet.TopPane = txtTop
  81.   Set spHSet.BottomPane = txtBottom
  82.   Set spHSet.SplitBar = picHSplit
  83.   spHSet.SplitOn = False
  84.   txtBottom.Height = Me.Height - (txtTop.Height + picHSplit.Height)
  85. End Sub
  86. Private Sub Form_Resize()
  87.   spVSet.ResizePanes
  88.   spHSet.ResizePanes
  89. End Sub
  90. Private Sub picright_resize()
  91.   spHSet.ResizePanes
  92. End Sub
  93. Private Sub picsplitter_mousedown(button As Integer, _
  94.                             shift As Integer, _
  95.                             x As Single, y As Single)
  96.   spVSet.SetPointer vbSizeWE
  97.   spVSet.SplitOn = True
  98. End Sub
  99. Private Sub picsplitter_mousemove(button As Integer, _
  100.                             shift As Integer, _
  101.                             x As Single, y As Single)
  102.   spVSet.SetPointer vbSizeWE
  103.   If spVSet.SplitOn = True Then
  104.     spVSet.ResizePanes x
  105.   End If
  106. End Sub
  107. Private Sub picsplitter_MouseUp(button As Integer, _
  108.                            shift As Integer, _
  109.                            x As Single, y As Single)
  110.   spVSet.SetPointer vbNormal
  111.   If spVSet.SplitOn = True Then
  112.     spVSet.ResizePanes x
  113.   End If
  114. End Sub
  115. Private Sub picHSplit_MouseDown(button As Integer, _
  116.                            shift As Integer, _
  117.                            x As Single, y As Single)
  118.   spHSet.SetPointer vbSizeNS
  119.   spHSet.SplitOn = True
  120. End Sub
  121. Private Sub picHSplit_MouseMove(button As Integer, _
  122.                            shift As Integer, _
  123.                            x As Single, y As Single)
  124.   spHSet.SetPointer vbSizeNS
  125.   If spHSet.SplitOn = True Then
  126.     spHSet.ResizePanes y
  127.   End If
  128. End Sub
  129. Private Sub picHSplit_MouseUp(button As Integer, _
  130.                            shift As Integer, _
  131.                            x As Single, y As Single)
  132.   spHSet.SetPointer vbNormal
  133.   If spHSet.SplitOn = True Then
  134.     spHSet.ResizePanes y
  135.     spHSet.SplitOn = False
  136.   End If
  137. End Sub
  138. Private Sub txtLeft_MouseMove(button As Integer, _
  139.                           shift As Integer, _
  140.                           x As Single, y As Single)
  141.   spVSet.SetPointer vbNormal
  142. End Sub
  143. Private Sub txtTop_MouseMove(button As Integer, _
  144.                            shift As Integer, _
  145.                            x As Single, y As Single)
  146.   spHSet.SetPointer vbNormal
  147.   spVSet.SetPointer vbNormal
  148. End Sub
  149. Private Sub lblBottom_MouseMove(button As Integer, _
  150.                            shift As Integer, _
  151.                            x As Single, y As Single)
  152.   spHSet.SetPointer vbNormal
  153.   spVSet.SetPointer vbNormal
  154. End Sub
  155.