home *** CD-ROM | disk | FTP | other *** search
/ BUG 2 / BUGCD1997_01.iso / aplikac / vbasic / vb5ccein.exe / AXLstPik.pag < prev    next >
Encoding:
Text File  |  1996-10-18  |  4.0 KB  |  136 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.    LockControls    =   -1  'True
  9.    PaletteMode     =   0  'Halftone
  10.    ScaleHeight     =   3495
  11.    ScaleWidth      =   5925
  12.    Begin VB.ComboBox cboDestinationSortType 
  13.       Height          =   315
  14.       ItemData        =   "AXLstPik.pgx":0000
  15.       Left            =   2985
  16.       List            =   "AXLstPik.pgx":000D
  17.       TabIndex        =   3
  18.       Text            =   "Combo1"
  19.       Top             =   1095
  20.       Width           =   2700
  21.    End
  22.    Begin VB.ComboBox cboSourceSortType 
  23.       Height          =   315
  24.       ItemData        =   "AXLstPik.pgx":0062
  25.       Left            =   90
  26.       List            =   "AXLstPik.pgx":006C
  27.       Style           =   2  'Dropdown List
  28.       TabIndex        =   2
  29.       Top             =   1095
  30.       Width           =   2700
  31.    End
  32.    Begin VB.TextBox txtDestinationCaption 
  33.       Height          =   330
  34.       Left            =   2985
  35.       TabIndex        =   1
  36.       Text            =   "Text1"
  37.       Top             =   345
  38.       Width           =   2700
  39.    End
  40.    Begin VB.CheckBox chkEnabled 
  41.       Caption         =   "Enabled"
  42.       Height          =   285
  43.       Left            =   90
  44.       TabIndex        =   4
  45.       Top             =   2835
  46.       Width           =   2700
  47.    End
  48.    Begin VB.TextBox txtSourceCaption 
  49.       Height          =   330
  50.       Left            =   90
  51.       TabIndex        =   0
  52.       Text            =   "Text1"
  53.       Top             =   345
  54.       Width           =   2700
  55.    End
  56.    Begin VB.Label lblDestinationCaption 
  57.       Caption         =   "DestinationCaption:"
  58.       Height          =   240
  59.       Left            =   2985
  60.       TabIndex        =   8
  61.       Top             =   90
  62.       Width           =   2700
  63.    End
  64.    Begin VB.Label lblDestinationSortType 
  65.       Caption         =   "SourceSortType:"
  66.       Height          =   240
  67.       Left            =   90
  68.       TabIndex        =   7
  69.       Top             =   810
  70.       Width           =   2700
  71.    End
  72.    Begin VB.Label lblSourceCaption 
  73.       Caption         =   "SourceCaption:"
  74.       Height          =   240
  75.       Left            =   90
  76.       TabIndex        =   6
  77.       Top             =   90
  78.       Width           =   2700
  79.    End
  80.    Begin VB.Label lblSourceSortType 
  81.       Caption         =   "DestinationSortType:"
  82.       Height          =   240
  83.       Left            =   2985
  84.       TabIndex        =   5
  85.       Top             =   810
  86.       Width           =   2700
  87.    End
  88. End
  89. Attribute VB_Name = "General"
  90. Attribute VB_GlobalNameSpace = False
  91. Attribute VB_Creatable = True
  92. Attribute VB_PredeclaredId = False
  93. Attribute VB_Exposed = True
  94. Private Sub txtDestinationCaption_Change()
  95.     Changed = True
  96. End Sub
  97.  
  98.  
  99. Private Sub cboDestinationSortType_Click()
  100.     Changed = True
  101. End Sub
  102.  
  103.  
  104. Private Sub chkEnabled_Click()
  105.     Changed = True
  106. End Sub
  107.  
  108.  
  109. Private Sub txtSourceCaption_Change()
  110.     Changed = True
  111. End Sub
  112.  
  113.  
  114. Private Sub cboSourceSortType_Click()
  115.     Changed = True
  116. End Sub
  117.  
  118.  
  119. Private Sub PropertyPage_ApplyChanges()
  120.     SelectedControls(0).DestinationCaption = txtDestinationCaption.Text
  121.     SelectedControls(0).DestinationSortType = cboDestinationSortType.ListIndex
  122.     SelectedControls(0).Enabled = (chkEnabled.Value = vbChecked)
  123.     SelectedControls(0).SourceCaption = txtSourceCaption.Text
  124.     SelectedControls(0).SourceSortType = cboSourceSortType.ListIndex
  125. End Sub
  126.  
  127.  
  128. Private Sub PropertyPage_SelectionChanged()
  129.     txtDestinationCaption.Text = SelectedControls(0).DestinationCaption
  130.     cboDestinationSortType.ListIndex = SelectedControls(0).DestinationSortType
  131.     chkEnabled.Value = (SelectedControls(0).Enabled And vbChecked)
  132.     txtSourceCaption.Text = SelectedControls(0).SourceCaption
  133.     cboSourceSortType.ListIndex = SelectedControls(0).SourceSortType
  134.  
  135. End Sub
  136.