home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 27 / IOPROG_27.ISO / SOFT / DATABASE.ZIP / ppVB6DB.pag < prev    next >
Encoding:
Text File  |  1999-04-30  |  2.7 KB  |  102 lines
  1. VERSION 5.00
  2. Begin VB.PropertyPage ppVB6DB 
  3.    Caption         =   "Selezione DB"
  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 Text3 
  12.       Height          =   915
  13.       Left            =   2940
  14.       Locked          =   -1  'True
  15.       MultiLine       =   -1  'True
  16.       TabIndex        =   4
  17.       Top             =   1740
  18.       Width           =   2655
  19.    End
  20.    Begin VB.TextBox Text2 
  21.       Height          =   555
  22.       Left            =   2940
  23.       Locked          =   -1  'True
  24.       MultiLine       =   -1  'True
  25.       TabIndex        =   3
  26.       Top             =   840
  27.       Width           =   2655
  28.    End
  29.    Begin VB.ListBox List1 
  30.       Height          =   1815
  31.       Left            =   120
  32.       MouseIcon       =   "ppVB6DB.pgx":0000
  33.       MousePointer    =   99  'Custom
  34.       TabIndex        =   2
  35.       Top             =   840
  36.       Width           =   2715
  37.    End
  38.    Begin VB.TextBox Text1 
  39.       Height          =   315
  40.       Left            =   120
  41.       Locked          =   -1  'True
  42.       TabIndex        =   1
  43.       Top             =   480
  44.       Width           =   2715
  45.    End
  46.    Begin VB.Label Label2 
  47.       AutoSize        =   -1  'True
  48.       Caption         =   "Recordset"
  49.       Height          =   195
  50.       Left            =   2940
  51.       TabIndex        =   6
  52.       Top             =   1500
  53.       Width           =   735
  54.    End
  55.    Begin VB.Label Label1 
  56.       AutoSize        =   -1  'True
  57.       Caption         =   "Database"
  58.       Height          =   195
  59.       Left            =   2940
  60.       TabIndex        =   5
  61.       Top             =   600
  62.       Width           =   690
  63.    End
  64.    Begin VB.Label lblNomeDB 
  65.       AutoSize        =   -1  'True
  66.       Caption         =   "Fonte dati DB"
  67.       Height          =   195
  68.       Left            =   120
  69.       TabIndex        =   0
  70.       Top             =   240
  71.       Width           =   975
  72.    End
  73. End
  74. Attribute VB_Name = "ppVB6DB"
  75. Attribute VB_GlobalNameSpace = False
  76. Attribute VB_Creatable = True
  77. Attribute VB_PredeclaredId = False
  78. Attribute VB_Exposed = True
  79.  
  80.  
  81.  
  82. Private Sub List1_Click()
  83.     Text1.Text = List1.List(List1.ListIndex)
  84.     SelectedControls(0).LeggiDB Text1.Text, Text2, Text3
  85.     Changed = True
  86. End Sub
  87.  
  88.  
  89. Private Sub PropertyPage_ApplyChanges()
  90.     SelectedControls(0).NomeDB = Text1.Text
  91. End Sub
  92.  
  93.  
  94. Private Sub PropertyPage_SelectionChanged()
  95.     List1.Clear
  96.     Text1.Text = SelectedControls(0).NomeDB
  97.     SelectedControls(0).TrovaDBControlli List1
  98.     
  99. End Sub
  100.  
  101.  
  102.