home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 May / W2KPRK.iso / apps / crystal / disk18 / Xvb379._ / Xvb379.
Text File  |  1999-08-23  |  3KB  |  101 lines
  1. VERSION 5.00
  2. Object = "{FE0065C0-1B7B-11CF-9D53-00AA003C9CB6}#1.0#0"; "COMCT232.OCX"
  3. Begin VB.Form frmPage 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "Page"
  6.    ClientHeight    =   1095
  7.    ClientLeft      =   2160
  8.    ClientTop       =   2310
  9.    ClientWidth     =   3735
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   1095
  14.    ScaleWidth      =   3735
  15.    ShowInTaskbar   =   0   'False
  16.    Begin VB.CommandButton cmdCancel 
  17.       Cancel          =   -1  'True
  18.       Caption         =   "&Cancel"
  19.       Height          =   345
  20.       Left            =   2415
  21.       TabIndex        =   4
  22.       Top             =   660
  23.       Width           =   1215
  24.    End
  25.    Begin VB.CommandButton cmdOkay 
  26.       Caption         =   "&Okay"
  27.       Default         =   -1  'True
  28.       Height          =   345
  29.       Left            =   1095
  30.       TabIndex        =   3
  31.       Top             =   660
  32.       Width           =   1215
  33.    End
  34.    Begin ComCtl2.UpDown spnPage 
  35.       Height          =   345
  36.       Left            =   3466
  37.       TabIndex        =   2
  38.       Top             =   135
  39.       Width           =   195
  40.       _ExtentX        =   344
  41.       _ExtentY        =   609
  42.       _Version        =   327680
  43.       BuddyControl    =   "txtPage"
  44.       BuddyDispid     =   196610
  45.       OrigLeft        =   3435
  46.       OrigTop         =   135
  47.       OrigRight       =   3630
  48.       OrigBottom      =   495
  49.       SyncBuddy       =   -1  'True
  50.       Wrap            =   -1  'True
  51.       BuddyProperty   =   65547
  52.    End
  53.    Begin VB.TextBox txtPage 
  54.       Height          =   345
  55.       Left            =   2865
  56.       TabIndex        =   1
  57.       Top             =   135
  58.       Width           =   600
  59.    End
  60.    Begin VB.Label lblPage 
  61.       Caption         =   "Which page would you like to go to?"
  62.       Height          =   300
  63.       Left            =   90
  64.       TabIndex        =   0
  65.       Top             =   135
  66.       Width           =   2760
  67.    End
  68. End
  69. Attribute VB_Name = "frmPage"
  70. Attribute VB_GlobalNameSpace = False
  71. Attribute VB_Creatable = False
  72. Attribute VB_PredeclaredId = True
  73. Attribute VB_Exposed = False
  74. Option Explicit
  75.  
  76. Private m_blnCancel As Boolean
  77.  
  78. Public Function Display(intCurrent As Integer, intNumber As Integer, strDirection As String) As Integer
  79.   Display = intCurrent
  80.   If strDirection = "Next" Then Me.spnPage.Value = intCurrent + 1
  81.   If strDirection = "Prev" Then Me.spnPage.Value = intCurrent - 1
  82.   Me.spnPage.Max = intNumber
  83.   m_blnCancel = False
  84.   Me.spnPage.Min = 1
  85.   Me.Show vbModal
  86.   If Not m_blnCancel Then Display = Me.spnPage.Value
  87. End Function
  88.  
  89. Private Sub cmdCancel_Click()
  90.   m_blnCancel = True
  91.   Me.Hide
  92. End Sub
  93.  
  94. Private Sub cmdOkay_Click()
  95.   Me.Hide
  96. End Sub
  97.  
  98. Private Sub Form_Load()
  99.   Center Me
  100. End Sub
  101.