home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1999 April / CD_Shareware_Magazine_31.iso / Free / Prg / autoresize.exe / frmTst.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-09-19  |  6.1 KB  |  190 lines
  1. VERSION 5.00
  2. Object = "{C3D62F85-4FEA-11D2-B62A-705E06C10000}#3.0#0"; "AutoResizeControl.ocx"
  3. Begin VB.Form frmTst 
  4.    Caption         =   "THEMA AutoResizeControl Example"
  5.    ClientHeight    =   3735
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   5355
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   3735
  11.    ScaleWidth      =   5355
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin VB.HScrollBar HScroll1 
  14.       Height          =   210
  15.       Left            =   2880
  16.       TabIndex        =   7
  17.       Top             =   1140
  18.       Width           =   2280
  19.    End
  20.    Begin VB.Frame Frame1 
  21.       Caption         =   "Exit"
  22.       BeginProperty Font 
  23.          Name            =   "Courier New"
  24.          Size            =   8.25
  25.          Charset         =   0
  26.          Weight          =   400
  27.          Underline       =   0   'False
  28.          Italic          =   0   'False
  29.          Strikethrough   =   0   'False
  30.       EndProperty
  31.       Height          =   735
  32.       Left            =   390
  33.       TabIndex        =   5
  34.       Top             =   2505
  35.       Width           =   4455
  36.       Begin VB.CommandButton Command2 
  37.          Caption         =   "Exit"
  38.          BeginProperty Font 
  39.             Name            =   "Courier New"
  40.             Size            =   8.25
  41.             Charset         =   0
  42.             Weight          =   400
  43.             Underline       =   0   'False
  44.             Italic          =   0   'False
  45.             Strikethrough   =   0   'False
  46.          EndProperty
  47.          Height          =   345
  48.          Left            =   225
  49.          TabIndex        =   6
  50.          Top             =   270
  51.          Width           =   4050
  52.       End
  53.    End
  54.    Begin VB.CheckBox Check1 
  55.       Caption         =   "Adjust FontSize"
  56.       BeginProperty Font 
  57.          Name            =   "Arial"
  58.          Size            =   8.25
  59.          Charset         =   0
  60.          Weight          =   700
  61.          Underline       =   0   'False
  62.          Italic          =   0   'False
  63.          Strikethrough   =   0   'False
  64.       EndProperty
  65.       Height          =   270
  66.       Left            =   735
  67.       TabIndex        =   2
  68.       Top             =   1125
  69.       Value           =   1  'Checked
  70.       Width           =   1995
  71.    End
  72.    Begin VB.CommandButton Command1 
  73.       Caption         =   "Beep"
  74.       BeginProperty Font 
  75.          Name            =   "Arial"
  76.          Size            =   8.25
  77.          Charset         =   0
  78.          Weight          =   400
  79.          Underline       =   0   'False
  80.          Italic          =   0   'False
  81.          Strikethrough   =   0   'False
  82.       EndProperty
  83.       Height          =   480
  84.       Left            =   60
  85.       TabIndex        =   0
  86.       Top             =   480
  87.       Width           =   5160
  88.    End
  89.    Begin AutoResizeControl.AutoResCtrl AutoResCtrl1 
  90.       Left            =   210
  91.       Top             =   3990
  92.       _ExtentX        =   7594
  93.       _ExtentY        =   3731
  94.    End
  95.    Begin VB.Label Label4 
  96.       Alignment       =   2  'Center
  97.       Caption         =   "*** Resize this form ***"
  98.       BeginProperty Font 
  99.          Name            =   "Arial"
  100.          Size            =   11.25
  101.          Charset         =   0
  102.          Weight          =   700
  103.          Underline       =   0   'False
  104.          Italic          =   0   'False
  105.          Strikethrough   =   0   'False
  106.       EndProperty
  107.       ForeColor       =   &H000000FF&
  108.       Height          =   270
  109.       Left            =   120
  110.       TabIndex        =   8
  111.       Top             =   3330
  112.       Width           =   5025
  113.    End
  114.    Begin VB.Label Label3 
  115.       BackStyle       =   0  'Transparent
  116.       BorderStyle     =   1  'Fixed Single
  117.       Caption         =   "This is a TrueType font (Arial) and can be adjusted"
  118.       BeginProperty Font 
  119.          Name            =   "Arial"
  120.          Size            =   8.25
  121.          Charset         =   0
  122.          Weight          =   400
  123.          Underline       =   0   'False
  124.          Italic          =   0   'False
  125.          Strikethrough   =   0   'False
  126.       EndProperty
  127.       Height          =   315
  128.       Left            =   150
  129.       TabIndex        =   4
  130.       Top             =   2100
  131.       Width           =   5055
  132.    End
  133.    Begin VB.Label Label2 
  134.       BackStyle       =   0  'Transparent
  135.       BorderStyle     =   1  'Fixed Single
  136.       Caption         =   "This is a non-TrueType font (MS Sans Serif) and can't be adjusted"
  137.       Height          =   315
  138.       Left            =   150
  139.       TabIndex        =   3
  140.       Top             =   1710
  141.       Width           =   5055
  142.    End
  143.    Begin VB.Image Image1 
  144.       Height          =   435
  145.       Left            =   75
  146.       Picture         =   "frmTst.frx":0000
  147.       Stretch         =   -1  'True
  148.       Top             =   1020
  149.       Width           =   495
  150.    End
  151.    Begin VB.Label Label1 
  152.       BackStyle       =   0  'Transparent
  153.       Caption         =   "THEMA AutoResizeControl Example"
  154.       BeginProperty Font 
  155.          Name            =   "Arial"
  156.          Size            =   12
  157.          Charset         =   0
  158.          Weight          =   700
  159.          Underline       =   0   'False
  160.          Italic          =   0   'False
  161.          Strikethrough   =   0   'False
  162.       EndProperty
  163.       Height          =   330
  164.       Left            =   210
  165.       TabIndex        =   1
  166.       Top             =   45
  167.       Width           =   5025
  168.    End
  169. Attribute VB_Name = "frmTst"
  170. Attribute VB_GlobalNameSpace = False
  171. Attribute VB_Creatable = False
  172. Attribute VB_PredeclaredId = True
  173. Attribute VB_Exposed = False
  174. Private Sub Check1_Click()
  175. 'Resizing can also be done in other events
  176. AutoResCtrl1.Resize frmTst, Check1.Value
  177. End Sub
  178. Private Sub Command1_Click()
  179. End Sub
  180. Private Sub Command2_Click()
  181. End Sub
  182. Private Sub Form_Load()
  183. 'Initialization has to be done only once, usually in the Form_Load event
  184. AutoResCtrl1.Initialize frmTst
  185. End Sub
  186. Private Sub Form_Resize()
  187. 'Resizing has to be done in the Resize event
  188. AutoResCtrl1.Resize frmTst, Check1.Value
  189. End Sub
  190.