home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 March / VPR9703A.ISO / MS_DEV / VBCCE / SAMPLES / Flexlbl / FlexLbl.EXE / RCDATA / CABINET / Frmtest.frm < prev    next >
Text File  |  1996-10-25  |  3KB  |  118 lines
  1. VERSION 5.00
  2. Object = "*\AFlexLbl.vbp"
  3. Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.1#0"; "comctl32.ocx"
  4. Begin VB.Form frmTest 
  5.    Caption         =   "FlexLabel Test"
  6.    ClientHeight    =   5496
  7.    ClientLeft      =   1680
  8.    ClientTop       =   2832
  9.    ClientWidth     =   6588
  10.    LinkTopic       =   "Form1"
  11.    LockControls    =   -1  'True
  12.    ScaleHeight     =   458
  13.    ScaleMode       =   3  'Pixel
  14.    ScaleWidth      =   549
  15.    Begin VB.Frame Frame1 
  16.       Caption         =   "Settings"
  17.       Height          =   1755
  18.       Left            =   0
  19.       TabIndex        =   1
  20.       Top             =   3720
  21.       Width           =   5055
  22.       Begin VB.TextBox Text1 
  23.          Height          =   330
  24.          Left            =   120
  25.          TabIndex        =   3
  26.          Text            =   "Caption"
  27.          Top             =   480
  28.          Width           =   3855
  29.       End
  30.       Begin VB.CommandButton Command1 
  31.          Caption         =   "Apply"
  32.          Default         =   -1  'True
  33.          Height          =   330
  34.          Left            =   4020
  35.          TabIndex        =   2
  36.          Top             =   480
  37.          Width           =   855
  38.       End
  39.       Begin ComctlLib.Slider SliderV 
  40.          Height          =   480
  41.          Left            =   60
  42.          TabIndex        =   4
  43.          Top             =   1140
  44.          Width           =   4935
  45.          _ExtentX        =   8700
  46.          _ExtentY        =   847
  47.          LargeChange     =   60
  48.          SmallChange     =   20
  49.          Min             =   1
  50.          Max             =   1024
  51.          SelStart        =   1
  52.          TickFrequency   =   20
  53.          Value           =   1
  54.       End
  55.       Begin VB.Label Label1 
  56.          AutoSize        =   -1  'True
  57.          Caption         =   "Width:"
  58.          Height          =   195
  59.          Index           =   1
  60.          Left            =   120
  61.          TabIndex        =   5
  62.          Top             =   900
  63.          Width           =   465
  64.       End
  65.       Begin VB.Label Label1 
  66.          AutoSize        =   -1  'True
  67.          Caption         =   "Caption:"
  68.          Height          =   195
  69.          Index           =   0
  70.          Left            =   120
  71.          TabIndex        =   6
  72.          Top             =   240
  73.          Width           =   585
  74.       End
  75.    End
  76.    Begin FlexLabelControl.FlexLabel FlexLabel1 
  77.       Height          =   1212
  78.       Left            =   0
  79.       TabIndex        =   0
  80.       Top             =   0
  81.       Width           =   4044
  82.       _ExtentX        =   7133
  83.       _ExtentY        =   2138
  84.    End
  85. End
  86. Attribute VB_Name = "frmTest"
  87. Attribute VB_GlobalNameSpace = False
  88. Attribute VB_Creatable = False
  89. Attribute VB_PredeclaredId = True
  90. Attribute VB_Exposed = False
  91. Option Explicit
  92.  
  93. Private Sub Command1_Click()
  94.   FlexLabel1.Caption = Text1.Text
  95.   FlexLabel1.ToolTipText = Text1.Text
  96. End Sub
  97.  
  98. Private Sub Form_Load()
  99.   Text1.Text = FlexLabel1.Caption
  100.   SliderV.Value = FlexLabel1.Height
  101.   Me.Caption = "FlexLabel Test - FlexLabel.Height = " & Trim$(SliderV.Value)
  102. End Sub
  103.  
  104. Private Sub Form_Resize()
  105.   With Frame1
  106.     .Top = frmTest.ScaleHeight - .Height
  107.   End With
  108. End Sub
  109.  
  110. Private Sub SliderV_Click()
  111.   With Me
  112.     .MousePointer = vbHourglass
  113.     .Caption = "FlexLabel Test - FlexLabel.Height = " & Trim$(SliderV.Value)
  114.     FlexLabel1.Height = SliderV.Value
  115.     .MousePointer = vbDefault
  116.   End With
  117. End Sub
  118.