home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 6 / mastvb6.iso / ch_code / ch09 / rtfpad / search.frm (.txt) < prev   
Encoding:
Visual Basic Form  |  1996-04-30  |  8.6 KB  |  268 lines
  1. VERSION 5.00
  2. Begin VB.Form SearchForm 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Search & Replace"
  5.    ClientHeight    =   1980
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   6780
  9.    LinkTopic       =   "Form2"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   132
  13.    ScaleMode       =   3  'Pixel
  14.    ScaleWidth      =   452
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   3  'Windows Default
  17.    Begin VB.TextBox Text2 
  18.       BeginProperty Font 
  19.          Name            =   "Verdana"
  20.          Size            =   9
  21.          Charset         =   0
  22.          Weight          =   400
  23.          Underline       =   0   'False
  24.          Italic          =   0   'False
  25.          Strikethrough   =   0   'False
  26.       EndProperty
  27.       Height          =   285
  28.       Left            =   1740
  29.       TabIndex        =   8
  30.       Top             =   660
  31.       Width           =   2100
  32.    End
  33.    Begin VB.TextBox Text1 
  34.       BeginProperty Font 
  35.          Name            =   "Verdana"
  36.          Size            =   9
  37.          Charset         =   0
  38.          Weight          =   400
  39.          Underline       =   0   'False
  40.          Italic          =   0   'False
  41.          Strikethrough   =   0   'False
  42.       EndProperty
  43.       Height          =   285
  44.       Left            =   1740
  45.       TabIndex        =   7
  46.       Top             =   195
  47.       Width           =   2115
  48.    End
  49.    Begin VB.CheckBox Check2 
  50.       Caption         =   "Whole word only"
  51.       BeginProperty Font 
  52.          Name            =   "MS Sans Serif"
  53.          Size            =   9.75
  54.          Charset         =   0
  55.          Weight          =   400
  56.          Underline       =   0   'False
  57.          Italic          =   0   'False
  58.          Strikethrough   =   0   'False
  59.       EndProperty
  60.       Height          =   240
  61.       Left            =   210
  62.       TabIndex        =   6
  63.       Top             =   1575
  64.       Width           =   2040
  65.    End
  66.    Begin VB.CheckBox Check1 
  67.       Caption         =   "Case sensitive"
  68.       BeginProperty Font 
  69.          Name            =   "MS Sans Serif"
  70.          Size            =   9.75
  71.          Charset         =   0
  72.          Weight          =   400
  73.          Underline       =   0   'False
  74.          Italic          =   0   'False
  75.          Strikethrough   =   0   'False
  76.       EndProperty
  77.       Height          =   240
  78.       Left            =   210
  79.       TabIndex        =   5
  80.       Top             =   1275
  81.       Width           =   2040
  82.    End
  83.    Begin VB.CommandButton Command5 
  84.       Cancel          =   -1  'True
  85.       Caption         =   "Cancel"
  86.       BeginProperty Font 
  87.          Name            =   "MS Sans Serif"
  88.          Size            =   9.75
  89.          Charset         =   0
  90.          Weight          =   400
  91.          Underline       =   0   'False
  92.          Italic          =   0   'False
  93.          Strikethrough   =   0   'False
  94.       EndProperty
  95.       Height          =   480
  96.       Left            =   5460
  97.       TabIndex        =   4
  98.       Top             =   1335
  99.       Width           =   1245
  100.    End
  101.    Begin VB.CommandButton ReplaceAllButton 
  102.       Caption         =   "Replace All"
  103.       Enabled         =   0   'False
  104.       BeginProperty Font 
  105.          Name            =   "MS Sans Serif"
  106.          Size            =   9.75
  107.          Charset         =   0
  108.          Weight          =   400
  109.          Underline       =   0   'False
  110.          Italic          =   0   'False
  111.          Strikethrough   =   0   'False
  112.       EndProperty
  113.       Height          =   480
  114.       Left            =   5430
  115.       TabIndex        =   3
  116.       Top             =   630
  117.       Width           =   1275
  118.    End
  119.    Begin VB.CommandButton ReplaceButton 
  120.       Caption         =   "Replace"
  121.       Enabled         =   0   'False
  122.       BeginProperty Font 
  123.          Name            =   "MS Sans Serif"
  124.          Size            =   9.75
  125.          Charset         =   0
  126.          Weight          =   400
  127.          Underline       =   0   'False
  128.          Italic          =   0   'False
  129.          Strikethrough   =   0   'False
  130.       EndProperty
  131.       Height          =   480
  132.       Left            =   4065
  133.       TabIndex        =   2
  134.       Top             =   600
  135.       Width           =   1215
  136.    End
  137.    Begin VB.CommandButton FindNextButton 
  138.       Caption         =   "Find Again"
  139.       BeginProperty Font 
  140.          Name            =   "MS Sans Serif"
  141.          Size            =   9.75
  142.          Charset         =   0
  143.          Weight          =   400
  144.          Underline       =   0   'False
  145.          Italic          =   0   'False
  146.          Strikethrough   =   0   'False
  147.       EndProperty
  148.       Height          =   480
  149.       Left            =   5415
  150.       TabIndex        =   1
  151.       Top             =   120
  152.       Width           =   1305
  153.    End
  154.    Begin VB.CommandButton FindButton 
  155.       Caption         =   "Find"
  156.       Default         =   -1  'True
  157.       BeginProperty Font 
  158.          Name            =   "MS Sans Serif"
  159.          Size            =   9.75
  160.          Charset         =   0
  161.          Weight          =   400
  162.          Underline       =   0   'False
  163.          Italic          =   0   'False
  164.          Strikethrough   =   0   'False
  165.       EndProperty
  166.       Height          =   480
  167.       Left            =   4050
  168.       TabIndex        =   0
  169.       Top             =   105
  170.       Width           =   1230
  171.    End
  172.    Begin VB.Label Label2 
  173.       Caption         =   "Replace with"
  174.       BeginProperty Font 
  175.          Name            =   "MS Sans Serif"
  176.          Size            =   9.75
  177.          Charset         =   0
  178.          Weight          =   400
  179.          Underline       =   0   'False
  180.          Italic          =   0   'False
  181.          Strikethrough   =   0   'False
  182.       EndProperty
  183.       Height          =   255
  184.       Left            =   150
  185.       TabIndex        =   10
  186.       Top             =   660
  187.       Width           =   1485
  188.    End
  189.    Begin VB.Label Label1 
  190.       Caption         =   "Find what"
  191.       BeginProperty Font 
  192.          Name            =   "MS Sans Serif"
  193.          Size            =   9.75
  194.          Charset         =   0
  195.          Weight          =   400
  196.          Underline       =   0   'False
  197.          Italic          =   0   'False
  198.          Strikethrough   =   0   'False
  199.       EndProperty
  200.       Height          =   240
  201.       Left            =   150
  202.       TabIndex        =   9
  203.       Top             =   195
  204.       Width           =   1410
  205.    End
  206. Attribute VB_Name = "SearchForm"
  207. Attribute VB_GlobalNameSpace = False
  208. Attribute VB_Creatable = False
  209. Attribute VB_PredeclaredId = True
  210. Attribute VB_Exposed = False
  211. Option Explicit
  212. Dim Position As Integer
  213. Private Sub FindButton_Click()
  214. Dim FindFlags As Integer
  215.     Position = 0
  216.     FindFlags = Check1.Value * 4 + Check2.Value * 2
  217.     Position = EditorForm.RichTextBox1.Find(Text1.Text, Position + 1, , FindFlags)
  218.     If Position >= 0 Then
  219.         ReplaceButton.Enabled = True
  220.         ReplaceAllButton.Enabled = True
  221.         EditorForm.SetFocus
  222.     Else
  223.         MsgBox "String not found"
  224.         ReplaceButton.Enabled = False
  225.         ReplaceAllButton.Enabled = False
  226.     End If
  227. End Sub
  228. Private Sub FindNextButton_Click()
  229. Dim FindFlags
  230. FindFlags = Check1.Value * 4 + Check2.Value * 2
  231. Position = EditorForm.RichTextBox1.Find(Text1.Text, Position + 1, , FindFlags)
  232. If Position > 0 Then
  233.     EditorForm.SetFocus
  234.     MsgBox "String not found"
  235.     ReplaceButton.Enabled = False
  236.     ReplaceAllButton.Enabled = False
  237. End If
  238. End Sub
  239. Private Sub Command5_Click()
  240.     SearchForm.Hide
  241. End Sub
  242. Private Sub ReplaceButton_Click()
  243. Dim FindFlags As Integer
  244.     EditorForm.RichTextBox1.SelText = Text2.Text
  245.     FindFlags = Check1.Value * 4 + Check2.Value * 2
  246.     Position = EditorForm.RichTextBox1.Find(Text1.Text, Position + 1, , FindFlags)
  247.     If Position > 0 Then
  248.         EditorForm.SetFocus
  249.     Else
  250.         MsgBox "String not found"
  251.         ReplaceButton.Enabled = False
  252.         ReplaceAllButton.Enabled = False
  253.     End If
  254. End Sub
  255. Private Sub ReplaceAllButton_Click()
  256. Dim FindFlags As Integer
  257.     FindFlags = Check1.Value * 4 + Check2.Value * 2
  258.     EditorForm.RichTextBox1.SelText = Text2.Text
  259.     Position = EditorForm.RichTextBox1.Find(Text1.Text, Position + 1, , FindFlags)
  260.     While Position > 0
  261.         EditorForm.RichTextBox1.SelText = Text2.Text
  262.         Position = EditorForm.RichTextBox1.Find(Text1.Text, Position + 1, , FindFlags)
  263.     Wend
  264.         ReplaceButton.Enabled = False
  265.         ReplaceAllButton.Enabled = False
  266.         MsgBox "Done replacing"
  267. End Sub
  268.