home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / sightmap / frmpickf.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-01-18  |  3.1 KB  |  106 lines
  1. VERSION 5.00
  2. Begin VB.Form frmPickFilter 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Filter Definition"
  5.    ClientHeight    =   3195
  6.    ClientLeft      =   2760
  7.    ClientTop       =   3750
  8.    ClientWidth     =   6075
  9.    Icon            =   "frmPickFilter.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   3195
  14.    ScaleWidth      =   6075
  15.    ShowInTaskbar   =   0   'False
  16.    Begin VB.TextBox txtFilter 
  17.       Height          =   375
  18.       Left            =   3960
  19.       TabIndex        =   4
  20.       Top             =   1440
  21.       Width           =   1095
  22.    End
  23.    Begin VB.ListBox lstFilters 
  24.       Height          =   2010
  25.       Left            =   240
  26.       TabIndex        =   3
  27.       Top             =   600
  28.       Width           =   1815
  29.    End
  30.    Begin VB.CommandButton cmdDelete 
  31.       Caption         =   "Delete"
  32.       Height          =   375
  33.       Left            =   2160
  34.       TabIndex        =   2
  35.       Top             =   2280
  36.       Width           =   735
  37.    End
  38.    Begin VB.CommandButton cmdAdd 
  39.       Caption         =   "Add"
  40.       Height          =   375
  41.       Left            =   4200
  42.       TabIndex        =   1
  43.       Top             =   2160
  44.       Width           =   735
  45.    End
  46.    Begin VB.CommandButton OKButton 
  47.       Caption         =   "OK"
  48.       Height          =   375
  49.       Left            =   4680
  50.       TabIndex        =   0
  51.       Top             =   120
  52.       Width           =   1215
  53.    End
  54. Attribute VB_Name = "frmPickFilter"
  55. Attribute VB_GlobalNameSpace = False
  56. Attribute VB_Creatable = False
  57. Attribute VB_PredeclaredId = True
  58. Attribute VB_Exposed = False
  59. Option Explicit
  60. Public mSite As Site
  61. Private Sub cmdAdd_Click()
  62. Dim strItem As String
  63. Dim i As Integer
  64.     If Len(txtFilter.Text) = 0 Then Exit Sub
  65.     strItem = txtFilter.Text
  66.     For i = 1 To mSite.FilterCount
  67.         If mSite.FilterEntry(i) = strItem Then
  68.             MsgBox "Filter already included."
  69.             Exit Sub
  70.         End If
  71.     Next
  72.     lstFilters.AddItem strItem
  73.     mSite.FilterCount = mSite.FilterCount + 1
  74.     mSite.FilterEntry(mSite.FilterCount) = strItem
  75.     txtFilter.Text = ""
  76. End Sub
  77. Private Sub cmdDelete_Click()
  78. Dim strItem As String
  79. Dim i As Integer
  80.     If mSite.FilterCount <= 1 Then
  81.         MsgBox "You must have at least one file filter."
  82.         Exit Sub
  83.     End If
  84.     strItem = lstFilters.List(lstFilters.ListIndex)
  85.     For i = 1 To mSite.FilterCount
  86.         If mSite.FilterEntry(i) = strItem Then
  87.             mSite.RemoveFilter i
  88.             Exit For
  89.         End If
  90.     Next
  91.     lstFilters.RemoveItem (lstFilters.ListIndex)
  92.     If lstFilters.ListCount > 0 Then
  93.         lstFilters.ListIndex = 0
  94.         lstFilters.Selected(lstFilters.ListIndex) = True
  95.     End If
  96. End Sub
  97. Private Sub Form_Activate()
  98.     If lstFilters.ListCount > 0 Then
  99.         lstFilters.ListIndex = 0
  100.         lstFilters.Selected(lstFilters.ListIndex) = True
  101.     End If
  102. End Sub
  103. Private Sub OKButton_Click()
  104.     Unload Me
  105. End Sub
  106.