home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1999 April / CD_Shareware_Magazine_31.iso / Free / Prg / VertMenu.exe / MenuObjects.pag < prev    next >
Encoding:
Text File  |  1997-01-08  |  2.7 KB  |  97 lines
  1. VERSION 5.00
  2. Begin VB.PropertyPage MenuObjects 
  3.    Caption         =   "MenuObjects"
  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 txtMenuItemsMax 
  12.       Height          =   330
  13.       Left            =   180
  14.       TabIndex        =   5
  15.       Top             =   1845
  16.       Width           =   690
  17.    End
  18.    Begin VB.TextBox txtMenuItemCur 
  19.       Height          =   330
  20.       Left            =   180
  21.       TabIndex        =   3
  22.       Top             =   1125
  23.       Width           =   690
  24.    End
  25.    Begin VB.TextBox txtMenuCaption 
  26.       Height          =   330
  27.       Left            =   180
  28.       TabIndex        =   1
  29.       Top             =   450
  30.       Width           =   1590
  31.    End
  32.    Begin VB.Label lblMenuItemsMax 
  33.       AutoSize        =   -1  'True
  34.       Caption         =   "MenuItemsMax:"
  35.       Height          =   195
  36.       Left            =   180
  37.       TabIndex        =   4
  38.       Top             =   1620
  39.       Width           =   1125
  40.    End
  41.    Begin VB.Label lblMenuItemCur 
  42.       AutoSize        =   -1  'True
  43.       Caption         =   "MenuItemCur:"
  44.       Height          =   195
  45.       Left            =   180
  46.       TabIndex        =   2
  47.       Top             =   900
  48.       Width           =   990
  49.    End
  50.    Begin VB.Label lblMenuCaption 
  51.       AutoSize        =   -1  'True
  52.       Caption         =   "MenuCaption:"
  53.       Height          =   195
  54.       Left            =   180
  55.       TabIndex        =   0
  56.       Top             =   225
  57.       Width           =   990
  58.    End
  59. End
  60. Attribute VB_Name = "MenuObjects"
  61. Attribute VB_GlobalNameSpace = False
  62. Attribute VB_Creatable = True
  63. Attribute VB_PredeclaredId = False
  64. Attribute VB_Exposed = True
  65. Option Explicit
  66.  
  67. Private Sub txtMenuItemsMax_Change()
  68.     On Error Resume Next
  69.     Changed = True
  70. End Sub
  71.  
  72. Private Sub txtMenuItemCur_Change()
  73.     On Error Resume Next
  74.     Changed = True
  75. End Sub
  76.  
  77. Private Sub txtMenuCaption_Change()
  78.     On Error Resume Next
  79.     Changed = True
  80. End Sub
  81.  
  82. Private Sub PropertyPage_ApplyChanges()
  83.     On Error Resume Next
  84.     SelectedControls(0).MenuItemsMax = txtMenuItemsMax.Text
  85.     SelectedControls(0).MenuItemCur = txtMenuItemCur.Text
  86.     SelectedControls(0).MenuCaption = txtMenuCaption.Text
  87. End Sub
  88.  
  89. Private Sub PropertyPage_SelectionChanged()
  90.     On Error Resume Next
  91.     txtMenuItemsMax.Text = SelectedControls(0).MenuItemsMax
  92.     txtMenuItemCur.Text = SelectedControls(0).MenuItemCur
  93.     txtMenuCaption.Text = SelectedControls(0).MenuCaption
  94. End Sub
  95.  
  96.  
  97.