home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / Samples / NIFTOM / NIFTOM.ZIP / NIFTODEM.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-02-14  |  3.3 KB  |  108 lines
  1. VERSION 2.00
  2. Begin Form NiftoMeterDemo 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "NiftoMeter Demo"
  6.    Height          =   4245
  7.    Icon            =   NIFTODEM.FRX:0000
  8.    Left            =   1020
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    ScaleHeight     =   3555
  12.    ScaleWidth      =   6570
  13.    Top             =   1140
  14.    Width           =   6690
  15.    Begin HScrollBar Scroller 
  16.       Height          =   315
  17.       LargeChange     =   10
  18.       Left            =   120
  19.       Max             =   100
  20.       TabIndex        =   1
  21.       Top             =   3060
  22.       Width           =   4095
  23.    End
  24.    Begin NiftoMeter NiftoMeter3 
  25.       BackColor       =   &H00FFFFFF&
  26.       BevelInner      =   1  'Inset
  27.       BevelOuter      =   2  'Raised
  28.       BevelWidth      =   2
  29.       BorderStyle     =   0  'None
  30.       BorderWidth     =   2
  31.       ForeColor       =   &H00FF0000&
  32.       Height          =   555
  33.       Left            =   120
  34.       Top             =   120
  35.       Width           =   4095
  36.    End
  37.    Begin NiftoMeter NiftoMeter2 
  38.       BackColor       =   &H0000FFFF&
  39.       BevelInner      =   1  'Inset
  40.       BevelOuter      =   0  'None
  41.       BevelWidth      =   2
  42.       BorderStyle     =   0  'None
  43.       BorderWidth     =   0
  44.       Height          =   2775
  45.       Left            =   4380
  46.       Top             =   120
  47.       Width           =   1995
  48.    End
  49.    Begin CommandButton Demo 
  50.       BackColor       =   &H00C0C0C0&
  51.       Caption         =   "&Demo"
  52.       Height          =   375
  53.       Left            =   4380
  54.       TabIndex        =   0
  55.       Top             =   3060
  56.       Width           =   1995
  57.    End
  58.    Begin NiftoMeter NiftoMeter1 
  59.       BackColor       =   &H000000FF&
  60.       BevelInner      =   2  'Raised
  61.       BevelOuter      =   1  'Inset
  62.       BevelWidth      =   2
  63.       BorderStyle     =   0  'None
  64.       BorderWidth     =   4
  65.       FontBold        =   -1  'True
  66.       FontItalic      =   -1  'True
  67.       FontName        =   "Arial"
  68.       FontSize        =   13.5
  69.       FontStrikethru  =   0   'False
  70.       FontUnderline   =   0   'False
  71.       ForeColor       =   &H0000FF00&
  72.       Height          =   2115
  73.       Left            =   120
  74.       Top             =   780
  75.       Width           =   4095
  76.    End
  77.    Begin Menu mnuHelp 
  78.       Caption         =   "&Help!"
  79.    End
  80. Option Explicit
  81. Const HELP_CONTENTS = &H3     ' Display Help for a particular topic
  82. Declare Function WinHelp Lib "User" (ByVal hWnd As Integer, ByVal lpHelpFile As String, ByVal wCommand As Integer, dwData As Long) As Integer
  83. Sub Demo_Click ()
  84.     Dim i As Integer
  85.     For i = 0 To 100
  86.         NiftoMeter1.CompletedItems = i
  87.         NiftoMeter2.CompletedItems = i
  88.         NiftoMeter3.CompletedItems = i
  89.     Next i
  90.     For i = 100 To 0 Step -1
  91.         NiftoMeter1.CompletedItems = i
  92.         NiftoMeter2.CompletedItems = i
  93.         NiftoMeter3.CompletedItems = i
  94.     Next i
  95. End Sub
  96. Sub Form_Unload (Cancel As Integer)
  97.     End
  98. End Sub
  99. Sub mnuHelp_Click ()
  100.     Dim i As Integer
  101.     i = WinHelp(hWnd, "niftomet.hlp", HELP_CONTENTS, 0)
  102. End Sub
  103. Sub Scroller_Change ()
  104.     NiftoMeter1.CompletedItems = Scroller.Value
  105.     NiftoMeter2.CompletedItems = Scroller.Value
  106.     NiftoMeter3.CompletedItems = Scroller.Value
  107. End Sub
  108.