home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / VBASIC / RESIZOCX.ZIP / FORM4.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-12-15  |  18.6 KB  |  542 lines
  1. VERSION 4.00
  2. Begin VB.Form Form4 
  3.    Caption         =   "ReSize - Tab Handling"
  4.    ClientHeight    =   4980
  5.    ClientLeft      =   1080
  6.    ClientTop       =   1260
  7.    ClientWidth     =   6690
  8.    Height          =   5385
  9.    Left            =   1020
  10.    LinkTopic       =   "Form4"
  11.    ScaleHeight     =   4980
  12.    ScaleWidth      =   6690
  13.    Top             =   915
  14.    Width           =   6810
  15.    Begin TabDlg.SSTab SSTab1 
  16.       Height          =   3855
  17.       Left            =   240
  18.       TabIndex        =   0
  19.       Top             =   600
  20.       Width           =   6135
  21.       _version        =   65536
  22.       _extentx        =   10821
  23.       _extenty        =   6800
  24.       _stockprops     =   15
  25.       caption         =   "Intro"
  26.       BeginProperty font {FB8F0823-0164-101B-84ED-08002B2EC713} 
  27.          name            =   "Arial"
  28.          charset         =   1
  29.          weight          =   400
  30.          size            =   8.25
  31.          underline       =   0   'False
  32.          italic          =   0   'False
  33.          strikethrough   =   0   'False
  34.       EndProperty
  35.       tabsperrow      =   3
  36.       tab             =   0
  37.       taborientation  =   0
  38.       tabs            =   9
  39.       style           =   0
  40.       tabmaxwidth     =   0
  41.       tabheight       =   529
  42.       tabcaption(0)   =   "Intro"
  43.       tab(0).controlcount=   2
  44.       tab(0).controlenabled=   -1  'True
  45.       tab(0).control(0)=   "Label6"
  46.       tab(0).control(1)=   "Command1"
  47.       tabcaption(1)   =   "Fields"
  48.       tab(1).controlcount=   10
  49.       tab(1).controlenabled=   0   'False
  50.       tab(1).control(0)=   "Label1"
  51.       tab(1).control(1)=   "Label2"
  52.       tab(1).control(2)=   "Label3"
  53.       tab(1).control(3)=   "Label4"
  54.       tab(1).control(4)=   "Label5"
  55.       tab(1).control(5)=   "Text1"
  56.       tab(1).control(6)=   "Text2"
  57.       tab(1).control(7)=   "Text3"
  58.       tab(1).control(8)=   "Text4"
  59.       tab(1).control(9)=   "Text5"
  60.       tabcaption(2)   =   "Fonts"
  61.       tab(2).controlcount=   1
  62.       tab(2).controlenabled=   0   'False
  63.       tab(2).control(0)=   "Label7"
  64.       tabcaption(3)   =   "Centering"
  65.       tab(3).controlcount=   4
  66.       tab(3).controlenabled=   0   'False
  67.       tab(3).control(0)=   "Check1"
  68.       tab(3).control(1)=   "Command3"
  69.       tab(3).control(2)=   "Check3"
  70.       tab(3).control(3)=   "Label8"
  71.       tabcaption(4)   =   "Auto Centering"
  72.       tab(4).controlcount=   1
  73.       tab(4).controlenabled=   0   'False
  74.       tab(4).control(0)=   "Label9"
  75.       tabcaption(5)   =   "No Overlap"
  76.       tab(5).controlcount=   5
  77.       tab(5).controlenabled=   0   'False
  78.       tab(5).control(0)=   "Command2(1)"
  79.       tab(5).control(1)=   "Command5"
  80.       tab(5).control(2)=   "Command4"
  81.       tab(5).control(3)=   "Command2(0)"
  82.       tab(5).control(4)=   "Label10"
  83.       tab(6).controlcount=   0
  84.       tab(6).controlenabled=   0   'False
  85.       tab(7).controlcount=   0
  86.       tab(7).controlenabled=   0   'False
  87.       tab(8).controlcount=   0
  88.       tab(8).controlenabled=   0   'False
  89.       Begin VB.CommandButton Command2 
  90.          Caption         =   "Command4"
  91.          BeginProperty Font 
  92.             name            =   "Arial"
  93.             charset         =   1
  94.             weight          =   400
  95.             size            =   8.25
  96.             underline       =   0   'False
  97.             italic          =   0   'False
  98.             strikethrough   =   0   'False
  99.          EndProperty
  100.          Height          =   735
  101.          Index           =   1
  102.          Left            =   -71040
  103.          TabIndex        =   22
  104.          Top             =   3000
  105.          Width           =   1815
  106.       End
  107.       Begin VB.CommandButton Command5 
  108.          Caption         =   "Command3"
  109.          BeginProperty Font 
  110.             name            =   "Arial"
  111.             charset         =   1
  112.             weight          =   400
  113.             size            =   8.25
  114.             underline       =   0   'False
  115.             italic          =   0   'False
  116.             strikethrough   =   0   'False
  117.          EndProperty
  118.          Height          =   735
  119.          Left            =   -74880
  120.          TabIndex        =   21
  121.          Top             =   3000
  122.          Width           =   1815
  123.       End
  124.       Begin VB.CommandButton Command4 
  125.          Caption         =   "Command1"
  126.          BeginProperty Font 
  127.             name            =   "Arial"
  128.             charset         =   1
  129.             weight          =   400
  130.             size            =   8.25
  131.             underline       =   0   'False
  132.             italic          =   0   'False
  133.             strikethrough   =   0   'False
  134.          EndProperty
  135.          Height          =   735
  136.          Left            =   -74880
  137.          TabIndex        =   20
  138.          Top             =   960
  139.          Width           =   1815
  140.       End
  141.       Begin VB.CommandButton Command2 
  142.          Caption         =   "Command2"
  143.          BeginProperty Font 
  144.             name            =   "Arial"
  145.             charset         =   1
  146.             weight          =   400
  147.             size            =   8.25
  148.             underline       =   0   'False
  149.             italic          =   0   'False
  150.             strikethrough   =   0   'False
  151.          EndProperty
  152.          Height          =   735
  153.          Index           =   0
  154.          Left            =   -71040
  155.          TabIndex        =   19
  156.          Top             =   960
  157.          Width           =   1815
  158.       End
  159.       Begin VB.CheckBox Check1 
  160.          Caption         =   "Auto Form Centering"
  161.          BeginProperty Font 
  162.             name            =   "Arial"
  163.             charset         =   1
  164.             weight          =   400
  165.             size            =   8.25
  166.             underline       =   0   'False
  167.             italic          =   0   'False
  168.             strikethrough   =   0   'False
  169.          EndProperty
  170.          Height          =   255
  171.          Left            =   -72120
  172.          TabIndex        =   17
  173.          Top             =   2760
  174.          Value           =   1  'Checked
  175.          Width           =   1815
  176.       End
  177.       Begin VB.CommandButton Command3 
  178.          Caption         =   "Center Form"
  179.          BeginProperty Font 
  180.             name            =   "Arial"
  181.             charset         =   1
  182.             weight          =   400
  183.             size            =   8.25
  184.             underline       =   0   'False
  185.             italic          =   0   'False
  186.             strikethrough   =   0   'False
  187.          EndProperty
  188.          Height          =   375
  189.          Left            =   -72840
  190.          TabIndex        =   16
  191.          Top             =   3240
  192.          Width           =   1575
  193.       End
  194.       Begin VB.CheckBox Check3 
  195.          Caption         =   "Form Centering"
  196.          BeginProperty Font 
  197.             name            =   "Arial"
  198.             charset         =   1
  199.             weight          =   400
  200.             size            =   8.25
  201.             underline       =   0   'False
  202.             italic          =   0   'False
  203.             strikethrough   =   0   'False
  204.          EndProperty
  205.          Height          =   255
  206.          Left            =   -73800
  207.          TabIndex        =   15
  208.          Top             =   2760
  209.          Value           =   1  'Checked
  210.          Width           =   1455
  211.       End
  212.       Begin VB.CommandButton Command1 
  213.          Caption         =   "Exit "
  214.          BeginProperty Font 
  215.             name            =   "Arial"
  216.             charset         =   1
  217.             weight          =   400
  218.             size            =   8.25
  219.             underline       =   0   'False
  220.             italic          =   0   'False
  221.             strikethrough   =   0   'False
  222.          EndProperty
  223.          Height          =   375
  224.          Left            =   2280
  225.          TabIndex        =   11
  226.          Top             =   3120
  227.          Width           =   1215
  228.       End
  229.       Begin VB.TextBox Text5 
  230.          Appearance      =   0  'Flat
  231.          BeginProperty Font 
  232.             name            =   "Arial"
  233.             charset         =   1
  234.             weight          =   700
  235.             size            =   7.5
  236.             underline       =   0   'False
  237.             italic          =   0   'False
  238.             strikethrough   =   0   'False
  239.          EndProperty
  240.          Height          =   288
  241.          Left            =   -70200
  242.          TabIndex        =   5
  243.          Top             =   2520
  244.          Width           =   732
  245.       End
  246.       Begin VB.TextBox Text4 
  247.          Appearance      =   0  'Flat
  248.          BeginProperty Font 
  249.             name            =   "Arial"
  250.             charset         =   1
  251.             weight          =   700
  252.             size            =   7.5
  253.             underline       =   0   'False
  254.             italic          =   0   'False
  255.             strikethrough   =   0   'False
  256.          EndProperty
  257.          Height          =   288
  258.          Left            =   -71280
  259.          TabIndex        =   4
  260.          Top             =   2520
  261.          Width           =   372
  262.       End
  263.       Begin VB.TextBox Text3 
  264.          Appearance      =   0  'Flat
  265.          BeginProperty Font 
  266.             name            =   "Arial"
  267.             charset         =   1
  268.             weight          =   700
  269.             size            =   7.5
  270.             underline       =   0   'False
  271.             italic          =   0   'False
  272.             strikethrough   =   0   'False
  273.          EndProperty
  274.          Height          =   288
  275.          Left            =   -73920
  276.          TabIndex        =   3
  277.          Top             =   2520
  278.          Width           =   1812
  279.       End
  280.       Begin VB.TextBox Text2 
  281.          Appearance      =   0  'Flat
  282.          BeginProperty Font 
  283.             name            =   "Arial"
  284.             charset         =   1
  285.             weight          =   700
  286.             size            =   7.5
  287.             underline       =   0   'False
  288.             italic          =   0   'False
  289.             strikethrough   =   0   'False
  290.          EndProperty
  291.          Height          =   288
  292.          Left            =   -73920
  293.          TabIndex        =   2
  294.          Top             =   2040
  295.          Width           =   2772
  296.       End
  297.       Begin VB.TextBox Text1 
  298.          Appearance      =   0  'Flat
  299.          BeginProperty Font 
  300.             name            =   "Arial"
  301.             charset         =   1
  302.             weight          =   700
  303.             size            =   7.5
  304.             underline       =   0   'False
  305.             italic          =   0   'False
  306.             strikethrough   =   0   'False
  307.          EndProperty
  308.          Height          =   288
  309.          Left            =   -73920
  310.          TabIndex        =   1
  311.          Top             =   1560
  312.          Width           =   2772
  313.       End
  314.       Begin VB.Label Label10 
  315.          BorderStyle     =   1  'Fixed Single
  316.          Caption         =   $"FORM4.frx":0000
  317.          BeginProperty Font 
  318.             name            =   "Arial"
  319.             charset         =   1
  320.             weight          =   400
  321.             size            =   8.25
  322.             underline       =   0   'False
  323.             italic          =   0   'False
  324.             strikethrough   =   0   'False
  325.          EndProperty
  326.          Height          =   855
  327.          Left            =   -73560
  328.          TabIndex        =   23
  329.          Top             =   1920
  330.          Width           =   3015
  331.       End
  332.       Begin VB.Label Label9 
  333.          BorderStyle     =   1  'Fixed Single
  334.          Caption         =   $"FORM4.frx":0074
  335.          BeginProperty Font 
  336.             name            =   "Arial"
  337.             charset         =   1
  338.             weight          =   400
  339.             size            =   8.25
  340.             underline       =   0   'False
  341.             italic          =   0   'False
  342.             strikethrough   =   0   'False
  343.          EndProperty
  344.          Height          =   855
  345.          Left            =   -73680
  346.          TabIndex        =   18
  347.          Top             =   1920
  348.          Width           =   3495
  349.       End
  350.       Begin VB.Label Label8 
  351.          BorderStyle     =   1  'Fixed Single
  352.          Caption         =   $"FORM4.frx":00F1
  353.          BeginProperty Font 
  354.             name            =   "Arial"
  355.             charset         =   1
  356.             weight          =   400
  357.             size            =   8.25
  358.             underline       =   0   'False
  359.             italic          =   0   'False
  360.             strikethrough   =   0   'False
  361.          EndProperty
  362.          Height          =   1095
  363.          Left            =   -73800
  364.          TabIndex        =   14
  365.          Top             =   1440
  366.          Width           =   3495
  367.       End
  368.       Begin VB.Label Label7 
  369.          BorderStyle     =   1  'Fixed Single
  370.          Caption         =   $"FORM4.frx":01AE
  371.          BeginProperty Font 
  372.             name            =   "Arial"
  373.             charset         =   1
  374.             weight          =   400
  375.             size            =   8.25
  376.             underline       =   0   'False
  377.             italic          =   0   'False
  378.             strikethrough   =   0   'False
  379.          EndProperty
  380.          Height          =   615
  381.          Left            =   -73800
  382.          TabIndex        =   13
  383.          Top             =   1920
  384.          Width           =   3495
  385.       End
  386.       Begin VB.Label Label6 
  387.          BorderStyle     =   1  'Fixed Single
  388.          Caption         =   $"FORM4.frx":0201
  389.          BeginProperty Font 
  390.             name            =   "Arial"
  391.             charset         =   1
  392.             weight          =   400
  393.             size            =   8.25
  394.             underline       =   0   'False
  395.             italic          =   0   'False
  396.             strikethrough   =   0   'False
  397.          EndProperty
  398.          Height          =   735
  399.          Left            =   1080
  400.          TabIndex        =   12
  401.          Top             =   1920
  402.          Width           =   3735
  403.       End
  404.       Begin VB.Label Label5 
  405.          Alignment       =   1  'Right Justify
  406.          Appearance      =   0  'Flat
  407.          BackColor       =   &H00C0C0C0&
  408.          BackStyle       =   0  'Transparent
  409.          Caption         =   "Zip:"
  410.          BeginProperty Font 
  411.             name            =   "Arial"
  412.             charset         =   1
  413.             weight          =   700
  414.             size            =   7.5
  415.             underline       =   0   'False
  416.             italic          =   0   'False
  417.             strikethrough   =   0   'False
  418.          EndProperty
  419.          ForeColor       =   &H80000008&
  420.          Height          =   255
  421.          Left            =   -70800
  422.          TabIndex        =   10
  423.          Top             =   2520
  424.          Width           =   495
  425.       End
  426.       Begin VB.Label Label4 
  427.          Alignment       =   1  'Right Justify
  428.          Appearance      =   0  'Flat
  429.          BackColor       =   &H00C0C0C0&
  430.          BackStyle       =   0  'Transparent
  431.          Caption         =   "State:"
  432.          BeginProperty Font 
  433.             name            =   "Arial"
  434.             charset         =   1
  435.             weight          =   700
  436.             size            =   7.5
  437.             underline       =   0   'False
  438.             italic          =   0   'False
  439.             strikethrough   =   0   'False
  440.          EndProperty
  441.          ForeColor       =   &H80000008&
  442.          Height          =   255
  443.          Left            =   -72120
  444.          TabIndex        =   9
  445.          Top             =   2520
  446.          Width           =   735
  447.       End
  448.       Begin VB.Label Label3 
  449.          Alignment       =   1  'Right Justify
  450.          Appearance      =   0  'Flat
  451.          BackColor       =   &H00C0C0C0&
  452.          BackStyle       =   0  'Transparent
  453.          Caption         =   "City:"
  454.          BeginProperty Font 
  455.             name            =   "Arial"
  456.             charset         =   1
  457.             weight          =   700
  458.             size            =   7.5
  459.             underline       =   0   'False
  460.             italic          =   0   'False
  461.             strikethrough   =   0   'False
  462.          EndProperty
  463.          ForeColor       =   &H80000008&
  464.          Height          =   255
  465.          Left            =   -74760
  466.          TabIndex        =   8
  467.          Top             =   2520
  468.          Width           =   735
  469.       End
  470.       Begin VB.Label Label2 
  471.          Alignment       =   1  'Right Justify
  472.          Appearance      =   0  'Flat
  473.          BackColor       =   &H00C0C0C0&
  474.          BackStyle       =   0  'Transparent
  475.          Caption         =   "Address:"
  476.          BeginProperty Font 
  477.             name            =   "Arial"
  478.             charset         =   1
  479.             weight          =   700
  480.             size            =   7.5
  481.             underline       =   0   'False
  482.             italic          =   0   'False
  483.             strikethrough   =   0   'False
  484.          EndProperty
  485.          ForeColor       =   &H80000008&
  486.          Height          =   255
  487.          Left            =   -74880
  488.          TabIndex        =   7
  489.          Top             =   2040
  490.          Width           =   855
  491.       End
  492.       Begin VB.Label Label1 
  493.          Alignment       =   1  'Right Justify
  494.          Appearance      =   0  'Flat
  495.          BackColor       =   &H80000005&
  496.          BackStyle       =   0  'Transparent
  497.          Caption         =   "Name:"
  498.          BeginProperty Font 
  499.             name            =   "Arial"
  500.             charset         =   1
  501.             weight          =   700
  502.             size            =   7.5
  503.             underline       =   0   'False
  504.             italic          =   0   'False
  505.             strikethrough   =   0   'False
  506.          EndProperty
  507.          ForeColor       =   &H80000008&
  508.          Height          =   255
  509.          Left            =   -74640
  510.          TabIndex        =   6
  511.          Top             =   1560
  512.          Width           =   615
  513.       End
  514.    End
  515.    Begin ResizeLibCtl.ReSize ReSize1 
  516.       Left            =   6120
  517.       Top             =   120
  518.       _version        =   131072
  519.       _extentx        =   741
  520.       _extenty        =   741
  521.       _stockprops     =   0
  522.       enabled         =   -1  'True
  523.       formminwidth    =   0
  524.       formminheight   =   0
  525.       formdesignheight=   4980
  526.       formdesignwidth =   6690
  527.    End
  528. Attribute VB_Name = "Form4"
  529. Attribute VB_Creatable = False
  530. Attribute VB_Exposed = False
  531. Private Sub Command1_Click()
  532.     Unload Form4
  533. End Sub
  534. Private Sub Command3_Click()
  535.     If Form4.WindowState = 0 Then
  536.         'VB will give you an error if
  537.         'the form is minimized or maximized
  538.         'when you try to execute this method.
  539.         ReSize1.CenterForm
  540.     End If
  541. End Sub
  542.