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


  共有10497人关注过本帖树形打印复制链接

主题：文本框中查找到的字符，如何高亮显示？
美女呀，离线，留言给我吧！
yangming
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：超级版主 帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00 		文本框中查找到的字符，如何高亮显示？  发帖心情 Post By：2011/8/30 15:20:00 [只看该作者]

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

比如，文本框１里输入了一行字符串，文本框２中输入要查找的字符，当我在文本框１中查找到字符后，如何让其能高亮显示？

我的代码如下：

Dim t1,t2 As String
t1=e.Form.Controls("TextBox1").text
t2=e.Form.Controls("TextBox2").text
If t2 <> "" Then
    If Instr(t1,t2) <> 0 Then
        e.Form.Controls("TextBox1").SelectionStart = Instr(t1,t2)-1
        e.Form.Controls("TextBox1").SelectionLength = Len(t2)
    Else
        MessageBox.Show("没有找到!", "提示", MessageBoxButtons.ok, MessageBoxIcon.Question)
    End If
Else
    MessageBox.Show("请输入要查找的字符!", "提示", MessageBoxButtons.ok, MessageBoxIcon.Question)
End If

[此贴子已经被作者于2011-8-30 15:21:07编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2011/8/30 15:26:00 [只看该作者]

代码没看出问题来，难道不行？

 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9875 积分：57584 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/8/30 15:30:00 [只看该作者]

老大,杨姐姐要问如何高亮显示,代码不是显示高亮的吧?

 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2011/8/30 15:32:00 [只看该作者]

Dim t1,t2 As String
t1=e.Form.Controls("TextBox1").text
t2=e.Form.Controls("TextBox2").text

e.Form.Controls("TextBox1").Select()
If t2 <> "" Then
    If Instr(t1,t2) <> 0 Then
        e.Form.Controls("TextBox1").SelectionStart = Instr(t1,t2)-1
        e.Form.Controls("TextBox1").SelectionLength = Len(t2)
    Else
        MessageBox.Show("没有找到!", "提示", MessageBoxButtons.ok, MessageBoxIcon.Question)
    End If
Else
    MessageBox.Show("请输入要查找的字符!", "提示", MessageBoxButtons.ok, MessageBoxIcon.Question)
End If

[此贴子已经被作者于2011-8-30 15:32:24编辑过]
 回到顶部
美女呀，离线，留言给我吧！
yangming
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：超级版主 帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00 		  发帖心情 Post By：2011/8/30 15:41:00 [只看该作者]

加了贺老师的　这段代码就可以了，呵　e.Form.Controls("TextBox1").Select()

 回到顶部
帅哥哟，离线，有人找我吗？
lihe60
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6835 积分：43243 威望：0 精华：0 注册：2009/3/2 14:07:00 		  发帖心情 Post By：2011/8/30 16:24:00 [只看该作者]

Dim c1 As winform.control=e.Form.controls("textbox1")
Dim c2 As winform.control=e.Form.controls("textbox2")
Dim t1 As String=e.Form.Controls("TextBox1").text
Dim t2 As String=e.Form.Controls("TextBox2").text

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

 

这段代码看似没有问题，但不能保存，求助。

[此贴子已经被作者于2011-8-30 16:27:48编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
紙上不談兵
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | 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")

 回到顶部
帅哥哟，离线，有人找我吗？
lihe60
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6835 积分：43243 威望：0 精华：0 注册：2009/3/2 14:07:00 		  发帖心情 Post By：2011/8/30 16:46:00 [只看该作者]

以下是引用紙上不談兵在2011-8-30 16:42:00的发言：
第一句已错了:
 Dim c1 As winform.control=e.Form.controls("textbox1")

但第三行是对的
 回到顶部
帅哥哟，离线，有人找我吗？
紙上不談兵
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
帅哥哟，离线，有人找我吗？
紙上不談兵
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04102 秒, 4 次数据查询