home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / axdata / ppdata.pag < prev    next >
Encoding:
Text File  |  1998-03-06  |  1.4 KB  |  52 lines
  1. VERSION 5.00
  2. Begin VB.PropertyPage ppData 
  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.ComboBox cboDataControls 
  12.       Height          =   315
  13.       Left            =   225
  14.       TabIndex        =   1
  15.       Text            =   "Combo1"
  16.       Top             =   585
  17.       Width           =   2580
  18.    End
  19.    Begin VB.Label lblMSDataControl 
  20.       Caption         =   "MS Data Control:"
  21.       Height          =   240
  22.       Left            =   225
  23.       TabIndex        =   0
  24.       Top             =   300
  25.       Width           =   2700
  26.    End
  27. End
  28. Attribute VB_Name = "ppData"
  29. Attribute VB_GlobalNameSpace = False
  30. Attribute VB_Creatable = True
  31. Attribute VB_PredeclaredId = False
  32. Attribute VB_Exposed = True
  33. Private Sub cboDataControls_Click()
  34.     Changed = True
  35. End Sub
  36.  
  37. Private Sub cboDataControls_KeyPress(KeyAscii As Integer)
  38.     Changed = True
  39. End Sub
  40.  
  41. Private Sub PropertyPage_ApplyChanges()
  42.     SelectedControls(0).MSDataControl = cboDataControls.Text
  43. End Sub
  44.  
  45.  
  46. Private Sub PropertyPage_SelectionChanged()
  47.     cboDataControls.Text = SelectedControls(0).MSDataControl
  48.     SelectedControls(0).GetDataControls cboDataControls
  49. End Sub
  50.  
  51.  
  52.