knrt.net
当前位置:首页 >> VB里记事本的查找功能查找下一个,与替换功能! >>

VB里记事本的查找功能查找下一个,与替换功能!

假定所有控件都在一个窗体里,如果有其他问题LZ自己调下~ Dim last As Single Private Sub Command1_Click() ‘查找 For i = last To Len(Text1.Text) If Mid(Text1.Text, i, Len(Text2.Text)) = Text2.Text Then Text1.SetFocus Text1.SelStart ...

Dim n As Long, chazhao As String Private Sub Command1_Click()'这段代码为查找 Dim s As String s = Text1.Text chazhao = InputBox("") If chazhao = "" Then MsgBox "空字符串不能查找" Exit Sub End If n = InStr(s, chazhao) If n > 0 Th...

使用 Replace() 函数。

在FORM1中,加入1个按钮,和1个文本框, 在FORM2中,加入两个按钮,和两个文本框, Command1=查找下一个替换 Command2=全部替换 Form1.Text1.Text=需要替换的文本 Form1.Text1.Text=被替换字串 Form1.Text1.Text=替换字串 FORM2中的代码: Private Sub ...

实现查找功能的关键在于使用InStr函数,这个函数可以找到指定的字符串在另一字符串中最先出现的位置。我们先来看一看使用这个函数的语法: InStr([start, ]string1, string2[, compare]) 这个函数需要的的参数是起始位置、主体字符串、要查找的...

Form1的代码: Option Explicit Private Sub Command1_Click() Form2.Show vbModal End Sub Form2的代码: Option Explicit Private n As Long '记忆开始位置 Private Sub Command1_Click() Dim nStar As Long Dim nEnd As Long Dim SLen As Inte...

可以用line input。 假设你要读取的行数为i,文本地址为texturl Private Sub Command1_Click() Open texturl For Input As #1 Dim txt As String Dim n As Integer n = 1 Do While n

这是我写的代码,相信对你有用 Dim sFind As String '声明文件类型 Dim FileType, FiType As String '初始化程序 Private Sub Form_Load() '设置程序启动时的大小 Me.Height = 6000 Me.Width = 9000 End Sub '设置编辑框的位置和大小 Private Su...

在窗体上放一个TextBox--Text1,将Text1的MultiLine属性设为True.右键窗体-->菜单编辑器建立两个菜单.菜单一标题为"打开",名称为"Open".菜单二标题为"保存",名称为"Save".右键工具箱-->部件选中Microsoft Common Dialog Control-->确定添加一个Co...

'窗体代码 Option Explicit Dim filename As String Dim FileType As String Dim FiType As String Dim sFind As String Dim result As String Dim bWrap As Boolean Dim ask As Boolean Dim msgtext As String Dim Flag As String Private Sub ...

网站首页 | 网站地图
All rights reserved Powered by www.knrt.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com