文本框中查找到的字符，如何高亮显示？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 文本框中查找到的字符，如何高亮显示？

共有10586人关注过本帖树形打印复制链接主题：文本框中查找到的字符，如何高亮显示？

紙上不談兵

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：113 积分：731 威望：0 精华：1 注册：2011/8/16 14:13:00

Post By：2011/8/30 16:42:00 [显示全部帖子]

第一句已错了:

Dim c1 As winform.control=e.Form.controls("textbox1")

紙上不談兵

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：113 积分：731 威望：0 精华：1 注册：2011/8/16 14:13:00

Post By：2011/8/30 16:48:00 [显示全部帖子]

以下是引用lihe60在2011-8-30 16:46:00的发言：

但第三行是对的

Dim c1,c2 As WinForm.TextBox

c1 = e.Form.controls("textbox1")

c2 = e.Form.controls("textbox2")

Dim t1,t2,t3 As String

t1=e.Form.Controls("TextBox1").value

t2=e.Form.Controls("TextBox2").value

c1.Select()

If t2 <> "" Then

If Instr(t1,t2) <> 0 Then

c1.SelectionStart = Instr(t1,t2)-1

c1.SelectionLength = Len(t2)

Else

MessageBox.Show("没有找到!", "提示", MessageBoxButtons.ok, MessageBoxIcon.Question)

End If

Else

MessageBox.Show("请输入要查找的字符!", "提示", MessageBoxButtons.ok, MessageBoxIcon.Question)

End If

紙上不談兵

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：113 积分：731 威望：0 精华：1 注册：2011/8/16 14:13:00

Post By：2011/8/30 17:08:00 [显示全部帖子]

不习惯将MessageBox.Show写两次:

Dim c1,c2 As WinForm.TextBox

c1 = e.Form.controls("textbox1")

c2 = e.Form.controls("textbox2")

Dim t1,t2,t3 As String

t1=c1.value

t2=c2.value

t3 =iif(t2 = "","请输入要查找的字符!",iif(Instr(t1,t2) = 0,"没有找到!",""))

If t3 = "" Then

c1.Select()

c1.SelectionStart = Instr(t1,t2)-1

c1.SelectionLength = Len(t2)

Else

MessageBox.Show(t3, "提示",MessageBoxButtons.ok, MessageBoxIcon.Question)

End If

[此贴子已经被作者于2011-8-30 17:18:21编辑过]

下一主题 >> << 上一主题

主题：文本框中查找到的字符，如何高亮显示？