★★★敬请留意★★★:和微软一模一样的记事本的源代码(4)

原创 2001年06月06日 16:48:00


Option Explicit

Private Sub CancelButton_Click()
OKButton_Click
Form1.Text1.SelText = Text2.Text
End Sub

Private Sub Command1_Click()
 If Fstring = "" Then
    Fstring = Text1.Text
Else
    If Text1.Text <> Fstring And Text1.Text <> "" Then
    Fstring = Text1.Text
    End If
   
End If
   
For StartPos = 0 To Len(Form1.Text1)
    If Check1.Value = 1 Then
        FoundPos = Form1.Text1.Find(Fstring, StartPos, , 4)
   
    Else
        FoundPos = Form1.Text1.Find(Fstring, StartPos)
    End If
    If FoundPos <> -1 Then
        Form1.Text1.SelText = Text2.Text
   
    End If
Next StartPos
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
OKButton.Enabled = False
CancelButton.Enabled = False
Command1.Enabled = False
End Sub

Private Sub OKButton_Click()

   If Fstring = "" Then
    Fstring = Text1.Text
Else
    If Text1.Text <> Fstring And Text1.Text <> "" Then
    Fstring = Text1.Text
    End If
   
End If
   
    StartPos = Form1.Text1.SelStart + Form1.Text1.SelLength
    EndPos = Len(Form1.Text1)
    If Check1.Value = 1 Then
        FoundPos = Form1.Text1.Find(Fstring, StartPos, EndPos, 4)
   
    Else
        FoundPos = Form1.Text1.Find(Fstring, StartPos, EndPos)
    End If
    If FoundPos <> -1 Then
        StartPos = FoundPos + 1
    Else
        MsgBox "find   not   " + Chr(34) + Fstring + Chr(34)
    End If

'Gstring = Fstring
End Sub

Private Sub Text1_Change()

If Text1.Text <> "" Then
    OKButton.Enabled = True
    CancelButton.Enabled = True
    Command1.Enabled = True
Else
    OKButton.Enabled = False
    CancelButton.Enabled = False
    Command1.Enabled = False
   
End If


End Sub

android 记事本程序源码

应用实现密码登陆,记事本内容可增删改除等操作,实现了记事本的基本功能。 1、代码的目录 密码登陆使用的是sharepreference记录输入的密码 SharedPreferences pref...
  • u011324501
  • u011324501
  • 2016年05月30日 10:18
  • 9318

不用写一行代码,用MFC向导实现的文本编辑器(类似Windows下的记事本)

不用写一行代码,用MFC向导实现的文本编辑器(类似Windows下的记事本) 源码下载:http://download.csdn.net/detail/gencheng/6647927   这个东...
  • gencheng
  • gencheng
  • 2013年12月03日 10:35
  • 4998

使用C#写出一个简单的记事本程序

上周老师下课的时候说到,写出来记事本的同学可以期末加分,于是乎,就用两个晚上的时间写出了这个简单的记事本程序。编程语言: C# 编程环境: Visual Studio 2013 运行环境: .NE...
  • mayuko2012
  • mayuko2012
  • 2016年06月07日 21:41
  • 6189

★Dw4HelpCn.chm

  • 2007年05月23日 22:13
  • 3.76MB
  • 下载

★春林文件批量改名系统7.0.3

  • 2014年10月28日 13:02
  • 600KB
  • 下载

★ Jblend 可自动联机游戏 自动开启蓝牙听歌

  • 2010年04月28日 09:14
  • 2.27MB
  • 下载

★C51语言配套程序

  • 2010年08月08日 20:05
  • 523KB
  • 下载

★PowerQuest PartitionMagic 8.0 (Build 1242)简装汉化版

  • 2008年08月26日 16:20
  • 6.17MB
  • 下载

★春林文件批量改名系统6.5

  • 2014年04月30日 14:03
  • 580KB
  • 下载

【USACO1.1_4】★Broken Necklace 破碎的项链

/* ID: letgoto1 PROG: beads LANG: C++ */ #include #include #include using namespace std; int ma...
  • zwcwu31
  • zwcwu31
  • 2014年04月07日 14:50
  • 1548
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:★★★敬请留意★★★:和微软一模一样的记事本的源代码(4)
举报原因:
原因补充:

(最多只允许输入30个字)