home *** CD-ROM | disk | FTP | other *** search
/ The Net: Ultimate Internet Guide / WWLCD1.ISO / mac / SiteBldr / AMOVIE / SDK / _SETUP / COMMON.Z / registry.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-02-16  |  2.1 KB  |  78 lines
  1. VERSION 4.00
  2. Begin VB.Form Registry 
  3.    Caption         =   "Insert Filters"
  4.    ClientHeight    =   2790
  5.    ClientLeft      =   1680
  6.    ClientTop       =   1725
  7.    ClientWidth     =   4140
  8.    Height          =   3255
  9.    Left            =   1590
  10.    LinkTopic       =   "Form2"
  11.    ScaleHeight     =   2790
  12.    ScaleWidth      =   4140
  13.    Top             =   1350
  14.    Width           =   4320
  15.    Begin VB.CommandButton Cancel 
  16.       Cancel          =   -1  'True
  17.       Caption         =   "Cancel"
  18.       Height          =   375
  19.       Left            =   2640
  20.       TabIndex        =   2
  21.       Top             =   720
  22.       Width           =   855
  23.    End
  24.    Begin VB.CommandButton OK 
  25.       Caption         =   "OK"
  26.       Default         =   -1  'True
  27.       Height          =   375
  28.       Left            =   2640
  29.       TabIndex        =   1
  30.       Top             =   240
  31.       Width           =   855
  32.    End
  33.    Begin VB.ListBox List1 
  34.       Height          =   2400
  35.       Left            =   480
  36.       TabIndex        =   0
  37.       Top             =   120
  38.       Width           =   1935
  39.    End
  40.    Begin MSComDlg.CommonDialog CommonDialog1 
  41.       Left            =   3240
  42.       Top             =   1440
  43.       _Version        =   65536
  44.       _ExtentX        =   847
  45.       _ExtentY        =   847
  46.       _StockProps     =   0
  47.       Flags           =   4096
  48.    End
  49. Attribute VB_Name = "Registry"
  50. Attribute VB_Creatable = False
  51. Attribute VB_Exposed = False
  52. Public RegFilters As Object
  53. Private Sub Cancel_Click()
  54.     Hide
  55. End Sub
  56. Private Sub Form_Load()
  57.     Dim filter As IRegFilterInfo
  58.     List1.Clear
  59.     For Each filter In RegFilters
  60.         List1.AddItem filter.Name
  61.     Next filter
  62. End Sub
  63. Private Sub OK_Click()
  64.     Dim filter As IRegFilterInfo
  65.     For Each filter In RegFilters
  66.         If filter.Name = List1.Text Then
  67.             Dim f As IFilterInfo
  68.             filter.filter f
  69.             If f.IsFileSource Then
  70.                CommonDialog1.ShowOpen
  71.                f.filename = CommonDialog1.filename
  72.             End If
  73.             Exit For
  74.         End If
  75.     Next filter
  76.     Hide
  77. End Sub
  78.