home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 April / PCWorld_1999-04_cd.bin / Software / Vyzkuste / BegVisB / BeginVBSW / BVBProjects / VB4Projects / Formfun.frm (.txt) next >
Visual Basic Form  |  1998-09-02  |  3KB  |  116 lines
  1. VERSION 4.00
  2. Begin VB.Form frmFormFun 
  3.    Caption         =   "Form Fun"
  4.    ClientHeight    =   2310
  5.    ClientLeft      =   3930
  6.    ClientTop       =   2895
  7.    ClientWidth     =   3810
  8.    Height          =   2730
  9.    Left            =   3870
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   2310
  12.    ScaleWidth      =   3810
  13.    Top             =   2535
  14.    Width           =   3930
  15.    Begin VB.CommandButton cmdShow 
  16.       Caption         =   "Show Buttons"
  17.       Height          =   495
  18.       Left            =   2040
  19.       TabIndex        =   5
  20.       Top             =   1440
  21.       Visible         =   0   'False
  22.       Width           =   1215
  23.    End
  24.    Begin VB.CommandButton cmdBlue 
  25.       Caption         =   "Blue Form"
  26.       Height          =   495
  27.       Left            =   2040
  28.       TabIndex        =   4
  29.       Top             =   840
  30.       Width           =   1215
  31.    End
  32.    Begin VB.CommandButton cmdRed 
  33.       Caption         =   "Red Form"
  34.       Height          =   495
  35.       Left            =   2040
  36.       TabIndex        =   3
  37.       Top             =   240
  38.       Width           =   1215
  39.    End
  40.    Begin VB.CommandButton cmdHide 
  41.       Caption         =   "Hide Buttons"
  42.       Height          =   495
  43.       Left            =   600
  44.       TabIndex        =   2
  45.       Top             =   1440
  46.       Width           =   1215
  47.    End
  48.    Begin VB.CommandButton cmdGrow 
  49.       Caption         =   "Grow Form"
  50.       Height          =   495
  51.       Left            =   600
  52.       TabIndex        =   1
  53.       Top             =   840
  54.       Width           =   1215
  55.    End
  56.    Begin VB.CommandButton cmdShrink 
  57.       Caption         =   "Shrink Form"
  58.       Height          =   495
  59.       Left            =   600
  60.       TabIndex        =   0
  61.       Top             =   240
  62.       Width           =   1215
  63.    End
  64. Attribute VB_Name = "frmFormFun"
  65. Attribute VB_Creatable = False
  66. Attribute VB_Exposed = False
  67. Private Sub cmdBlue_Click()
  68. 'Make form blue
  69. frmFormFun.BackColor = vbBlue
  70. End Sub
  71. Private Sub cmdGrow_Click()
  72. 'Grow the form
  73. 'Increase the form height by 100 twips
  74. frmFormFun.Height = frmFormFun.Height + 100
  75. 'Increase the form width by 100 twips
  76. frmFormFun.Width = frmFormFun.Width + 100
  77. End Sub
  78. Private Sub cmdHide_Click()
  79. 'Hide all buttons but cmdShow
  80. cmdGrow.Visible = False
  81. cmdShrink.Visible = False
  82. cmdHide.Visible = False
  83. cmdRed.Visible = False
  84. cmdBlue.Visible = False
  85. 'Show cmdShow button
  86. cmdShow.Visible = True
  87. End Sub
  88. Private Sub cmdRed_Click()
  89. 'Make form red
  90. frmFormFun.BackColor = vbRed
  91. End Sub
  92. Private Sub cmdShow_Click()
  93. 'Show all buttons but cmdShow
  94. cmdGrow.Visible = True
  95. cmdShrink.Visible = True
  96. cmdHide.Visible = True
  97. cmdRed.Visible = True
  98. cmdBlue.Visible = True
  99. 'Hide cmdShow button
  100. cmdShow.Visible = False
  101. End Sub
  102. Private Sub cmdShrink_Click()
  103. 'Shrink the form
  104. 'Decrease the form height by 100 twips
  105. frmFormFun.Height = frmFormFun.Height - 100
  106. 'Decrease the form width by 100 twips
  107. frmFormFun.Width = frmFormFun.Width - 100
  108. End Sub
  109. Private Sub Form_Click()
  110. 'Grow the form
  111. 'Increase the form height by 100 twips
  112. frmFormFun.Height = frmFormFun.Height + 100
  113. 'Increase the form width by 100 twips
  114. frmFormFun.Width = frmFormFun.Width + 100
  115. End Sub
  116.