home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / vsresize / form1.frm (.txt) next >
Encoding:
Visual Basic Form  |  1999-05-06  |  6.1 KB  |  205 lines
  1. VERSION 5.00
  2. Object = "{FB51CC5D-C9AE-11D2-9B03-006052087927}#1.0#0"; "VSRESIZE.OCX"
  3. Begin VB.Form Form1 
  4.    Caption         =   "VisualSoftResize TEST FORM"
  5.    ClientHeight    =   3840
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   6375
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   3840
  11.    ScaleWidth      =   6375
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin VisualSoftResize.VSResize VSResize1 
  14.       Left            =   5400
  15.       Top             =   2880
  16.       _ExtentX        =   820
  17.       _ExtentY        =   820
  18.       MaxWidth        =   15360
  19.       MaxHeight       =   11520
  20.       MDIWidth        =   6495
  21.       MDIHeight       =   4245
  22.    End
  23.    Begin VB.CommandButton Command1 
  24.       Caption         =   "InitF"
  25.       BeginProperty Font 
  26.          Name            =   "Arial"
  27.          Size            =   8.25
  28.          Charset         =   0
  29.          Weight          =   400
  30.          Underline       =   0   'False
  31.          Italic          =   0   'False
  32.          Strikethrough   =   0   'False
  33.       EndProperty
  34.       Height          =   495
  35.       Index           =   3
  36.       Left            =   240
  37.       TabIndex        =   5
  38.       Top             =   1440
  39.       Width           =   1695
  40.    End
  41.    Begin VB.CheckBox Check3 
  42.       Caption         =   "AutoCenterForm"
  43.       BeginProperty Font 
  44.          Name            =   "Arial"
  45.          Size            =   8.25
  46.          Charset         =   0
  47.          Weight          =   400
  48.          Underline       =   0   'False
  49.          Italic          =   0   'False
  50.          Strikethrough   =   0   'False
  51.       EndProperty
  52.       Height          =   255
  53.       Left            =   240
  54.       TabIndex        =   4
  55.       Top             =   3240
  56.       Width           =   2055
  57.    End
  58.    Begin VB.CheckBox Check2 
  59.       Caption         =   "RestrictHeight"
  60.       BeginProperty Font 
  61.          Name            =   "Arial"
  62.          Size            =   8.25
  63.          Charset         =   0
  64.          Weight          =   400
  65.          Underline       =   0   'False
  66.          Italic          =   0   'False
  67.          Strikethrough   =   0   'False
  68.       EndProperty
  69.       Height          =   255
  70.       Left            =   3000
  71.       TabIndex        =   3
  72.       Top             =   720
  73.       Width           =   1935
  74.    End
  75.    Begin VB.CheckBox Check1 
  76.       Caption         =   "RestrictWidth"
  77.       BeginProperty Font 
  78.          Name            =   "Arial"
  79.          Size            =   8.25
  80.          Charset         =   0
  81.          Weight          =   400
  82.          Underline       =   0   'False
  83.          Italic          =   0   'False
  84.          Strikethrough   =   0   'False
  85.       EndProperty
  86.       Height          =   255
  87.       Left            =   3000
  88.       TabIndex        =   2
  89.       Top             =   240
  90.       Width           =   1815
  91.    End
  92.    Begin VB.CommandButton Command1 
  93.       Caption         =   "CenterForm"
  94.       BeginProperty Font 
  95.          Name            =   "Arial"
  96.          Size            =   8.25
  97.          Charset         =   0
  98.          Weight          =   400
  99.          Underline       =   0   'False
  100.          Italic          =   0   'False
  101.          Strikethrough   =   0   'False
  102.       EndProperty
  103.       Height          =   495
  104.       Index           =   2
  105.       Left            =   240
  106.       TabIndex        =   1
  107.       Top             =   840
  108.       Width           =   1695
  109.    End
  110.    Begin VB.CommandButton Command1 
  111.       Caption         =   "InitialSize"
  112.       BeginProperty Font 
  113.          Name            =   "Arial"
  114.          Size            =   8.25
  115.          Charset         =   0
  116.          Weight          =   400
  117.          Underline       =   0   'False
  118.          Italic          =   0   'False
  119.          Strikethrough   =   0   'False
  120.       EndProperty
  121.       Height          =   495
  122.       Index           =   1
  123.       Left            =   240
  124.       TabIndex        =   0
  125.       Top             =   240
  126.       Width           =   1695
  127.    End
  128.    Begin VB.Label Label2 
  129.       Caption         =   "Label2"
  130.       Height          =   975
  131.       Left            =   2280
  132.       TabIndex        =   7
  133.       Top             =   2160
  134.       Width           =   2775
  135.    End
  136.    Begin VB.Label Label1 
  137.       Caption         =   "Label1"
  138.       Height          =   855
  139.       Left            =   2400
  140.       TabIndex        =   6
  141.       Top             =   1200
  142.       Width           =   2535
  143.    End
  144.    Begin VB.Line Line3 
  145.       X1              =   5160
  146.       X2              =   6240
  147.       Y1              =   1200
  148.       Y2              =   1200
  149.    End
  150.    Begin VB.Line Line2 
  151.       X1              =   5160
  152.       X2              =   6120
  153.       Y1              =   2400
  154.       Y2              =   1440
  155.    End
  156.    Begin VB.Line Line1 
  157.       X1              =   5040
  158.       X2              =   6120
  159.       Y1              =   240
  160.       Y2              =   1080
  161.    End
  162. Attribute VB_Name = "Form1"
  163. Attribute VB_GlobalNameSpace = False
  164. Attribute VB_Creatable = False
  165. Attribute VB_PredeclaredId = True
  166. Attribute VB_Exposed = False
  167. Option Explicit
  168. Private Sub Check1_Click()
  169.     If Check1.Value = 0 Then
  170.         VSResize1.RestrictWidth = False
  171.         Label1.Caption = ""
  172.     Else
  173.         VSResize1.RestrictWidth = True
  174.         VSResize1.MaxWidth = VSResize1.MinWidth * 1.3
  175.         Label1.Caption = "MinWidth set to Form1.Width, MaxWidth set to Form1.Width*1.3"
  176.     End If
  177. End Sub
  178. Private Sub Check2_Click()
  179.     If Check2.Value = 0 Then
  180.         VSResize1.RestrictHeight = False
  181.         Label2.Caption = ""
  182.     Else
  183.         VSResize1.RestrictHeight = True
  184.         VSResize1.MaxHeight = VSResize1.MinHeight * 1.3
  185.         Label2.Caption = "MinHeight set to Form1.Height, MaxHeight set to Form1.Height*1.3"
  186.     End If
  187. End Sub
  188. Private Sub Check3_Click()
  189.     If Check3.Value = 0 Then
  190.         VSResize1.AutoCenterForm = False
  191.     Else
  192.         VSResize1.AutoCenterForm = True
  193.     End If
  194. End Sub
  195. Private Sub Command1_Click(Index As Integer)
  196.     Select Case Index
  197.     Case 3
  198.         VSResize1.InitF
  199.     Case 1
  200.         VSResize1.InitialSize
  201.     Case 2
  202.         VSResize1.CenterForm
  203.     End Select
  204. End Sub
  205.