home *** CD-ROM | disk | FTP | other *** search
/ Best Tools for JAVA / Best Tools for JAVA.iso / VIEWERS / VSVIEW / VSVIEW.ZIP / CHILD1.FRM (.txt) next >
Encoding:
Visual Basic Form  |  1994-11-04  |  2.0 KB  |  61 lines
  1. VERSION 2.00
  2. Begin Form Child1 
  3.    BackColor       =   &H0080FFFF&
  4.    Caption         =   "Child1"
  5.    ClientHeight    =   2340
  6.    ClientLeft      =   495
  7.    ClientTop       =   1890
  8.    ClientWidth     =   4815
  9.    Height          =   2865
  10.    Left            =   405
  11.    LinkTopic       =   "Form2"
  12.    MDIChild        =   -1  'True
  13.    ScaleHeight     =   2340
  14.    ScaleWidth      =   4815
  15.    Top             =   1455
  16.    Width           =   4995
  17.    Begin vsInForm vsInForm1 
  18.       BarColor        =   &H00C0C0C0&
  19.       BarColorInactive=   &H00C0C0C0&
  20.       BarHeight       =   23
  21.       ButtonsRight    =   2  '2
  22.       CapAlign        =   1  'Left Center
  23.       CapColor        =   &H00800000&
  24.       CapColorInactive=   &H00800000&
  25.       Caption         =   " Child1"
  26.       ConvInfo        =   CHILD1.FRX:0000
  27.       CustomFrame     =   -1  'True
  28.       FrameColorInactive=   &H00000080&
  29.       FrameWidth      =   6
  30.       Left            =   3375
  31.       PictLeft0       =   CHILD1.FRX:000B
  32.       PictRight0      =   CHILD1.FRX:00FD
  33.       PictRight1      =   CHILD1.FRX:0243
  34.       Top             =   360
  35.    End
  36.    Begin Label Label1 
  37.       BackStyle       =   0  'Transparent
  38.       Caption         =   "Click on the custom maximize button to tile your MDI forms."
  39.       Height          =   945
  40.       Left            =   75
  41.       TabIndex        =   0
  42.       Top             =   105
  43.       Width           =   2385
  44.    End
  45. Option Explicit
  46. Sub Form_Load ()
  47.   VSInform1.CustomFrame = True
  48. End Sub
  49. Sub VSInForm1_ClickRButton (Button As Integer)
  50.   If Button = 0 Then
  51.     If Child3.WindowState <> 0 Then Child3.WindowState = 0
  52.     Child3.Move MDIForm1.Width * .3, MDIForm1.Height * .4, MDIForm1.Width * .6, MDIForm1.Height * .4
  53.     If Child2.WindowState <> 0 Then Child2.WindowState = 0
  54.     Child2.Move MDIForm1.Width * .3, 0, MDIForm1.Width * .6, MDIForm1.Height * .4
  55.     If Child1.WindowState <> 0 Then Child1.WindowState = 0
  56.     Child1.Move 0, 0, MDIForm1.Width * .3, MDIForm1.Height * .8
  57.   Else
  58.     WindowState = 1
  59.   End If
  60. End Sub
  61.