home *** CD-ROM | disk | FTP | other *** search
/ ActiveX Programming Unleashed CD / AXU.iso / activex / demos / oletrial / samples / vb / mhmlbl / frange.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-08-24  |  2.2 KB  |  76 lines
  1. VERSION 4.00
  2. Begin VB.Form fRange 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    ClientHeight    =   3825
  5.    ClientLeft      =   1110
  6.    ClientTop       =   1590
  7.    ClientWidth     =   4695
  8.    ControlBox      =   0   'False
  9.    BeginProperty Font 
  10.       name            =   "MS Sans Serif"
  11.       charset         =   1
  12.       weight          =   700
  13.       size            =   8.25
  14.       underline       =   0   'False
  15.       italic          =   0   'False
  16.       strikethrough   =   0   'False
  17.    EndProperty
  18.    ForeColor       =   &H80000008&
  19.    Height          =   4230
  20.    Left            =   1050
  21.    LinkTopic       =   "Form1"
  22.    MaxButton       =   0   'False
  23.    MinButton       =   0   'False
  24.    ScaleHeight     =   3825
  25.    ScaleWidth      =   4695
  26.    Top             =   1245
  27.    Width           =   4815
  28.    Begin VB.HScrollBar scrRange 
  29.       Height          =   255
  30.       Left            =   120
  31.       TabIndex        =   1
  32.       Top             =   720
  33.       Width           =   4455
  34.    End
  35.    Begin VB.CommandButton cmdClose 
  36.       Caption         =   "CLOSE"
  37.       Height          =   495
  38.       Left            =   3360
  39.       TabIndex        =   0
  40.       Top             =   3240
  41.       Width           =   1215
  42.    End
  43.    Begin VB.Label lblRange 
  44.       AutoSize        =   -1  'True
  45.       Caption         =   "Label1"
  46.       Height          =   195
  47.       Left            =   120
  48.       TabIndex        =   2
  49.       Top             =   240
  50.       Width           =   585
  51.    End
  52. Attribute VB_Name = "fRange"
  53. Attribute VB_Creatable = False
  54. Attribute VB_Exposed = False
  55. Option Explicit
  56. Private Sub cmdClose_Click()
  57.     igRangeSW = 1
  58. End Sub
  59. Private Sub Form_Load()
  60.     fRange.TOP = (Screen.Height - fRange.Height) / 2
  61.     fRange.Left = (Screen.Width - fRange.Width) / 2
  62.     lblRange.Caption = igRangeArray(1)
  63.     scrRange.MIN = igRangeArray(0)
  64.     scrRange.VALUE = igRangeArray(1)
  65.     scrRange.MAX = igRangeArray(2)
  66. End Sub
  67. Private Sub lblRange_Change()
  68.     igRangeChosen = lblRange.Caption
  69. End Sub
  70. Private Sub scrRange_Change()
  71.     lblRange.Caption = scrRange.VALUE
  72. End Sub
  73. Private Sub scrRange_Scroll()
  74.     lblRange.Caption = scrRange.VALUE
  75. End Sub
  76.