Mastering Visual Basic 5/MasteringVisualBasic5.iso/protview/demowinx/data.1/GRPHX.FRM

Visual Basic Form | 1996-10-29 | 5.3 KB | 173 lines

VERSION 4.00
Begin VB.Form GraphXFrm
   Caption         =   "Graphical Controls"
   ClientHeight    =   3885
   ClientLeft      =   2100
   ClientTop       =   1365
   ClientWidth     =   7530
   Height          =   4290
   Left            =   2040
   LinkTopic       =   "Form2"
   ScaleHeight     =   3885
   ScaleWidth      =   7530
   Top             =   1020
   Width           =   7650
   Begin PVDialLib.PVDial PDial3
      Height          =   855
      Left            =   120
      TabIndex        =   6
      Top             =   2880
      Width           =   1095
      _Version        =   65536
      _ExtentX        =   1931
      _ExtentY        =   1508
      _StockProps     =   64
   End
   Begin PVDialLib.PVDial PDial2
      Height          =   855
      Left            =   120
      TabIndex        =   5
      Top             =   1800
      Width           =   1095
      _Version        =   65536
      _ExtentX        =   1931
      _ExtentY        =   1508
      _StockProps     =   64
   End
   Begin PVDialLib.PVDial PDial1
      Height          =   855
      Left            =   120
      TabIndex        =   4
      Top             =   720
      Width           =   1095
      _Version        =   65536
      _ExtentX        =   1931
      _ExtentY        =   1508
      _StockProps     =   64
   End
   Begin VB.Label Label1
      Caption         =   $"grphx.frx":0000
      Height          =   495
      Left            =   480
      TabIndex        =   3
      Top             =   120
      Width           =   6375
   End
   Begin PVProgressBarLib.PVProgressBar Pct3
      Height          =   855
      Left            =   1560
      TabIndex        =   2
      Top             =   2880
      Width           =   5895
      _Version        =   65536
      _ExtentX        =   10398
      _ExtentY        =   1508
      _StockProps     =   68
      FillColor       =   16711680
   End
   Begin PVProgressBarLib.PVProgressBar Pct2
      Height          =   855
      Left            =   1440
      TabIndex        =   1
      Top             =   1800
      Width           =   5895
      _Version        =   65536
      _ExtentX        =   10398
      _ExtentY        =   1508
      _StockProps     =   68
      ShowTickMarks   =   -1  'True
      ShowPercentComplete=   0   'False
      FillColor       =   65280
   End
   Begin PVProgressBarLib.PVProgressBar Pct1
      Height          =   855
      Left            =   1440
      TabIndex        =   0
      Top             =   720
      Width           =   5895
      _Version        =   65536
      _ExtentX        =   10398
      _ExtentY        =   1508
      _StockProps     =   68
      ShowTickMarks   =   -1  'True
      ShowNumbers     =   -1  'True
      FillColor       =   255
   End
Attribute VB_Name = "GraphXFrm"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Private Sub Pctbar321_GotFocus()
End Sub
Private Sub Pctbar322_GotFocus()
End Sub
Private Sub Pctbar323_GotFocus()
End Sub
Private Sub Form_Load()
PDial1.value = 25
Pct1.value = 25
PDial2.value = 50
Pct2.value = 50
PDial3.value = 75
Pct3.value = 75
End Sub
Private Sub PDial1_LineDown(ByVal Position As Long, TurnDial As Integer)
Pct1.value = Position
End Sub
Private Sub PDial1_LineUp(ByVal Position As Long, TurnDial As Integer)
Pct1.value = Position
End Sub
Private Sub PDial1_PageDown(ByVal Position As Long, TurnDial As Integer)
Pct1.value = Position
End Sub
Private Sub PDial1_PageUp(ByVal Position As Long, TurnDial As Integer)
Pct1.value = Position
End Sub
Private Sub PDial1_ThumbPosition(ByVal Position As Long, TurnDial As Integer)
Pct1.value = Position
End Sub
Private Sub PDial1_ThumbTrack(ByVal Position As Long, TurnDial As Integer)
Pct1.value = Position
End Sub
Private Sub PDial2_LineDown(ByVal Position As Long, TurnDial As Integer)
Pct2.value = Position
End Sub
Private Sub PDial2_LineUp(ByVal Position As Long, TurnDial As Integer)
Pct2.value = Position
End Sub
Private Sub PDial2_PageDown(ByVal Position As Long, TurnDial As Integer)
Pct2.value = Position
End Sub
Private Sub PDial2_PageUp(ByVal Position As Long, TurnDial As Integer)
Pct2.value = Position
End Sub
Private Sub PDial2_ThumbPosition(ByVal Position As Long, TurnDial As Integer)
Pct2.value = Position
End Sub
Private Sub PDial2_ThumbTrack(ByVal Position As Long, TurnDial As Integer)
Pct2.value = Position
End Sub
Private Sub PDial3_LineDown(ByVal Position As Long, TurnDial As Integer)
Pct3.value = Position
End Sub
Private Sub PDial3_LineUp(ByVal Position As Long, TurnDial As Integer)
Pct3.value = Position
End Sub
Private Sub PDial3_PageDown(ByVal Position As Long, TurnDial As Integer)
Pct3.value = Position
End Sub
Private Sub PDial3_PageUp(ByVal Position As Long, TurnDial As Integer)
Pct3.value = Position
End Sub
Private Sub PDial3_ThumbPosition(ByVal Position As Long, TurnDial As Integer)
Pct3.value = Position
End Sub
Private Sub PDial3_ThumbTrack(ByVal Position As Long, TurnDial As Integer)
Pct3.value = Position
End Sub
Private Sub PVDial1_Click()
End Sub
Private Sub PVDial1_KeyPress(KeyAscii As Integer)
End Sub
Private Sub PVDial1_LineUp(ByVal Position As Long, TurnDial As Integer)
End Sub