frmreplace.frm

我同学艾大桥的记事本程序

VERSION 5.00
Begin VB.Form frmreplace 
   AutoRedraw      =   -1  'True
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "查找并替换"
   ClientHeight    =   2340
   ClientLeft      =   45
   ClientTop       =   285
   ClientWidth     =   5955
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2340
   ScaleWidth      =   5955
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton cmdall 
      Caption         =   "全部替换(&A)"
      Enabled         =   0   'False
      Height          =   375
      Left            =   4455
      TabIndex        =   9
      Top             =   1080
      Width           =   1455
   End
   Begin VB.CommandButton cmdrep 
      Caption         =   "替换(&R)"
      Enabled         =   0   'False
      Height          =   375
      Left            =   4455
      TabIndex        =   8
      Top             =   600
      Width           =   1455
   End
   Begin VB.TextBox txtrep 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Left            =   1320
      TabIndex        =   7
      Top             =   600
      Width           =   3015
   End
   Begin VB.CommandButton Cmdcancle 
      Cancel          =   -1  'True
      Caption         =   "取消"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   4455
      TabIndex        =   5
      Top             =   1560
      Width           =   1455
   End
   Begin VB.CommandButton cmdstart 
      Caption         =   "查找下一个(&F)"
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   4455
      TabIndex        =   4
      Top             =   120
      Width           =   1455
   End
   Begin VB.CheckBox chkop2 
      Caption         =   "区分大小写(&C)"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   105
      TabIndex        =   3
      Top             =   1680
      Width           =   1815
   End
   Begin VB.CheckBox chkop1 
      Caption         =   "全字匹配(&W)"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   105
      TabIndex        =   2
      Top             =   1320
      Width           =   1455
   End
   Begin VB.TextBox txtfind 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Left            =   1335
      TabIndex        =   1
      Top             =   120
      Width           =   3015
   End
   Begin VB.Label labreptop 
      Caption         =   "替换为(&P):"
      Height          =   180
      Left            =   120
      TabIndex        =   6
      Top             =   600
      Width           =   1080
   End
   Begin VB.Label labtopic 
      BackStyle       =   0  'Transparent
      Caption         =   "查找内容(&N):"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   180
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   1080
   End
End
Attribute VB_Name = "frmreplace"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'查找与替换
'作者：艾大桥
'2004年11月10日
Option Explicit

Private Sub chkop1_Click()                  '全字匹配查找
  If chkop1.Value = 1 Then                  '全字匹配被选中
    blnall = True
    intoption = 2
  End If
End Sub

Private Sub chkop2_Click()                 '区分大小写查找
  If chkop2.Value = 1 Then                 '大小写是否区分
    blnMatch = True
    intoption = 4
  End If
End Sub

Private Sub cmdall_Click()                  '全部替换
    Call cmdstart_Click
    
    Do While blnfind
        frmnote.rtxtfile.SelText = strreplace
        Call cmdstart_Click
    Loop
       
End Sub

Private Sub cmdrep_Click()                 '替换
    Call cmdstart_Click
    If blnfind Then frmnote.rtxtfile.SelText = strreplace
        
        End If
        
End Sub

Private Sub cmdstart_Click()                      '开始查找
  If blnMatch = False And blnall = False Then    '如果复选框均未被选中
      Call find
 ElseIf blnall = True And blnMatch = True Then '如果复选框均被选中
    intoption = 6
    Call find
       
 ElseIf blnall = True Then Call find        '如果全字匹配被选中
       
 ElseIf blnMatch = True Then Call find      '如果大小写匹配被选中
 
 End If
End Sub
'
'Private Sub find()                          '查找过程
' If frmnote.rtxtfile.find(strfind, intnum, , intoption) <> -1 Then
'            blnfind = True
'            intnum = frmnote.rtxtfile.find(strfind, intnum, , intoption)
'            intnum = intnum + 1
'
'Else
'            blnfind = False
'            intnum = 0
'End If
'
'If blnfind = False Then MsgBox "记事本已经完成文档搜索。", 64 + 0, "记事本"
'End Sub
Private Sub Cmdcancle_Click()              '退出
 Unload Me
End Sub


Private Sub Form_Load()                    '置每次开始查找的位置
intnum = 0
intoption = 0                              '置每次开始时options值为0
cmdstart.Enabled = False                   '置查找替换各按钮不可用
cmdrep.Enabled = False
cmdall.Enabled = False
End Sub

Private Sub txtrep_Change()                '确定要替换的文字
    strreplace = txtrep.Text
   
End Sub

Private Sub txtfind_Change()             '确定要查找的文字
    strfind = txtfind.Text
    If strfind <> "" Then
        cmdstart.Enabled = True         '如果要查找的文字不为空，则
        cmdrep.Enabled = True           '使查找替换各按钮可用
        cmdall.Enabled = True
    Else
        cmdstart.Enabled = False        '否则，不可用
        cmdrep.Enabled = False
        cmdall.Enabled = False
    End If
End Sub