modstat.bas

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

Attribute VB_Name = "modstat"
Option Explicit
Public intnum As Integer            '设置查找的位置
Public strfind As String            '存放查找的文本内容
Public strreplace As String         '存放替换的文本内容
Public blnall As Boolean            '判断是否全字匹配
Public blnfind As Boolean           '判断是否找到
Public blnMatch As Boolean          '是否区分大小写
Public intoption As Integer         'options的值


Public Sub find()                          '查找过程
 If frmnote.rtxtfile.find(strfind, intnum, , intoption) <> -1 Then
            blnfind = True
'            intnum = intnum + 1
            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