home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / digitr2a / general.pag < prev    next >
Encoding:
Text File  |  1999-07-29  |  2.4 KB  |  93 lines
  1. VERSION 5.00
  2. Begin VB.PropertyPage General 
  3.    Caption         =   "General"
  4.    ClientHeight    =   3495
  5.    ClientLeft      =   0
  6.    ClientTop       =   0
  7.    ClientWidth     =   5925
  8.    PaletteMode     =   0  'Halftone
  9.    ScaleHeight     =   3495
  10.    ScaleWidth      =   5925
  11.    Begin VB.TextBox txtNumberMask 
  12.       Height          =   330
  13.       Left            =   90
  14.       TabIndex        =   5
  15.       Top             =   1670
  16.       Width           =   2700
  17.    End
  18.    Begin VB.TextBox txtOutsetTag 
  19.       Height          =   330
  20.       Left            =   90
  21.       TabIndex        =   3
  22.       Top             =   1020
  23.       Width           =   2700
  24.    End
  25.    Begin VB.TextBox txtInsetTag 
  26.       Height          =   330
  27.       Left            =   90
  28.       TabIndex        =   1
  29.       Top             =   370
  30.       Width           =   2700
  31.    End
  32.    Begin VB.Label lblNumberMask 
  33.       Caption         =   "NumberMask:"
  34.       Height          =   240
  35.       Left            =   90
  36.       TabIndex        =   4
  37.       Top             =   1420
  38.       Width           =   2700
  39.    End
  40.    Begin VB.Label lblOutsetTag 
  41.       Caption         =   "OutsetTag:"
  42.       Height          =   240
  43.       Left            =   90
  44.       TabIndex        =   2
  45.       Top             =   770
  46.       Width           =   2700
  47.    End
  48.    Begin VB.Label lblInsetTag 
  49.       Caption         =   "InsetTag:"
  50.       Height          =   240
  51.       Left            =   90
  52.       TabIndex        =   0
  53.       Top             =   120
  54.       Width           =   2700
  55.    End
  56. End
  57. Attribute VB_Name = "General"
  58. Attribute VB_GlobalNameSpace = False
  59. Attribute VB_Creatable = True
  60. Attribute VB_PredeclaredId = False
  61. Attribute VB_Exposed = True
  62. Option Explicit
  63. Private Sub txtNumberMask_Change()
  64.     Changed = True
  65. End Sub
  66.  
  67.  
  68. Private Sub txtOutsetTag_Change()
  69.     Changed = True
  70. End Sub
  71.  
  72.  
  73. Private Sub txtInsetTag_Change()
  74.     Changed = True
  75. End Sub
  76.  
  77.  
  78. Private Sub PropertyPage_ApplyChanges()
  79.     SelectedControls(0).NumberMask = txtNumberMask.Text
  80.     SelectedControls(0).OutsetTag = txtOutsetTag.Text
  81.     SelectedControls(0).InsetTag = txtInsetTag.Text
  82. End Sub
  83.  
  84.  
  85.  
  86. Private Sub PropertyPage_SelectionChanged()
  87.     txtNumberMask.Text = SelectedControls(0).NumberMask
  88.     txtOutsetTag.Text = SelectedControls(0).OutsetTag
  89.     txtInsetTag.Text = SelectedControls(0).InsetTag
  90. End Sub
  91.  
  92.  
  93.