home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1999 April / CD_Shareware_Magazine_31.iso / Free / Prg / FindPart.exe / FINDPART.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-03-02  |  4.5 KB  |  134 lines
  1. VERSION 4.00
  2. Begin VB.Form frmFindPart 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Search Application Captions"
  5.    ClientHeight    =   1425
  6.    ClientLeft      =   1095
  7.    ClientTop       =   1485
  8.    ClientWidth     =   4875
  9.    BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  10.       Name            =   "MS Sans Serif"
  11.       Size            =   8.25
  12.       Charset         =   0
  13.       Weight          =   700
  14.       Underline       =   0   'False
  15.       Italic          =   0   'False
  16.       Strikethrough   =   0   'False
  17.    EndProperty
  18.    ForeColor       =   &H80000008&
  19.    Height          =   1830
  20.    Left            =   1035
  21.    LinkTopic       =   "Form1"
  22.    ScaleHeight     =   1425
  23.    ScaleWidth      =   4875
  24.    Top             =   1140
  25.    Width           =   4995
  26.    Begin VB.CommandButton Command1 
  27.       Caption         =   "&Activate"
  28.       Default         =   -1  'True
  29.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  30.          Name            =   "MS Sans Serif"
  31.          Size            =   8.25
  32.          Charset         =   0
  33.          Weight          =   400
  34.          Underline       =   0   'False
  35.          Italic          =   0   'False
  36.          Strikethrough   =   0   'False
  37.       EndProperty
  38.       Height          =   330
  39.       Left            =   3510
  40.       TabIndex        =   4
  41.       Top             =   900
  42.       Width           =   1095
  43.    End
  44.    Begin VB.OptionButton Option1 
  45.       Caption         =   "&Contains"
  46.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  47.          Name            =   "MS Sans Serif"
  48.          Size            =   8.25
  49.          Charset         =   0
  50.          Weight          =   400
  51.          Underline       =   0   'False
  52.          Italic          =   0   'False
  53.          Strikethrough   =   0   'False
  54.       EndProperty
  55.       Height          =   240
  56.       Index           =   1
  57.       Left            =   1845
  58.       TabIndex        =   3
  59.       Top             =   945
  60.       Width           =   1455
  61.    End
  62.    Begin VB.OptionButton Option1 
  63.       Caption         =   "&Starts With"
  64.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  65.          Name            =   "MS Sans Serif"
  66.          Size            =   8.25
  67.          Charset         =   0
  68.          Weight          =   400
  69.          Underline       =   0   'False
  70.          Italic          =   0   'False
  71.          Strikethrough   =   0   'False
  72.       EndProperty
  73.       Height          =   240
  74.       Index           =   0
  75.       Left            =   270
  76.       TabIndex        =   2
  77.       Top             =   945
  78.       Value           =   -1  'True
  79.       Width           =   1455
  80.    End
  81.    Begin VB.TextBox Text1 
  82.       Height          =   330
  83.       Left            =   270
  84.       TabIndex        =   1
  85.       Text            =   "Text1"
  86.       Top             =   450
  87.       Width           =   4335
  88.    End
  89.    Begin VB.Label Label1 
  90.       Appearance      =   0  'Flat
  91.       AutoSize        =   -1  'True
  92.       Caption         =   "Partial Window &Title:"
  93.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  94.          Name            =   "MS Sans Serif"
  95.          Size            =   8.25
  96.          Charset         =   0
  97.          Weight          =   400
  98.          Underline       =   0   'False
  99.          Italic          =   0   'False
  100.          Strikethrough   =   0   'False
  101.       EndProperty
  102.       ForeColor       =   &H80000008&
  103.       Height          =   195
  104.       Left            =   270
  105.       TabIndex        =   0
  106.       Top             =   180
  107.       Width           =   1455
  108.    End
  109. Attribute VB_Name = "frmFindPart"
  110. Attribute VB_Creatable = False
  111. Attribute VB_Exposed = False
  112. ' *********************************************************************
  113. '  Copyright 
  114. 1995-97 Karl E. Peterson, All Rights Reserved
  115. ' *********************************************************************
  116. '  You are free to use this code within your own applications, but you
  117. '  are expressly forbidden from selling or otherwise distributing this
  118. '  source code without prior written consent.
  119. ' *********************************************************************
  120. Option Explicit
  121. Private Sub Command1_Click()
  122.    Const optStartsWith = 0
  123.    Const optContains = 1
  124.    ' Search using method user chose.
  125.    If Option1(optStartsWith) Then
  126.       AppActivatePartial Trim(Text1), FWP_STARTSWITH
  127.    ElseIf Option1(optContains) Then
  128.       AppActivatePartial Trim(Text1), FWP_CONTAINS
  129.    End If
  130. End Sub
  131. Private Sub Form_Load()
  132.    Text1 = ""
  133. End Sub
  134.