Office中国论坛/Access中国论坛

标题: [原创分享]多关键字（中文）不同颜色显示-富文本控件应用-RichTextBox [打印本页]

作者: topses 时间: 2009-12-8 21:50
标题: [原创分享]多关键字（中文）不同颜色显示-富文本控件应用-RichTextBox
下午刚有网友提到关键字高亮显示。
近段时间正好自己开发数据库导入导出设计用的工具，中间正好要采用一个查询编辑器，需要不同颜色显示不同关键字
这就先试试

实现中文亮显
[attach]40711[/attach]

实现关键字亮显

[attach]40711[/attach]

作者: tmtony 时间: 2009-12-8 21:56
非常不错! 赞一个!

作者: topses 时间: 2009-12-8 22:09
代码如下

[attach]40712[/attach]

作者: topses 时间: 2009-12-8 22:26
总结如下：
1、此代码中，Unicode 与ANSI 字符串的处理是最重要的一环节。
Private Declare Function lstrLen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long 或 LenB(StrConv(sTemp, vbFromUnicode)) 是关键

2、RichTextBox.Find 第二个参数尽然是按照ANSI 码（一个汉字算两个字符）计算的，这个老问题搞了我近一个小时后来才想来这点。记住：其他方法属性都是按Unicode 计算的

3、用了SafeArrayGetDim API函数，用来判断数组为空或没有初始化的。这个跟数组的结构相关，需要明白安全数组的概念。

作者: goto2008 时间: 2009-12-8 22:28
谢谢分享。。。学习

作者: topses 时间: 2009-12-8 22:31
由于上面都是现在在网吧写，工具和帮助文件又少，有问题大家都来跟贴吧

作者: 67613188 时间: 2009-12-9 20:19
先看了再说

作者: 67613188 时间: 2009-12-9 20:22
怎么出错了？

作者: c101 时间: 2009-12-10 13:44
2003 会显示access不支持这种activex控件
請問新的控件那里可下载?

作者: asklove 时间: 2009-12-10 15:43
支持原创！！
但我的2007也一样，不行。。。。

作者: yanwei82123300 时间: 2009-12-10 15:46
谢谢分享。。。学习

作者: c101 时间: 2009-12-10 16:42
在2007已新增RTF的功能==>很棒

作者: jackysu78 时间: 2009-12-10 22:21
学习

作者: chaojianan 时间: 2009-12-13 20:41
非常好，谢谢，收藏了。

作者: topses 时间: 2009-12-16 16:23

2003 会显示access不支持这种activex控件
請問新的控件那里可下载?
c101 发表于 2009-12-10 13:44

支持原创！！
但我的2007也一样，不行。。。。
asklove 发表于 2009-12-10 15:43

我当时已经在2003和2010运行均可以的。
这个与你的控件有关，建议安装VB SP6 累计更新，可以解决此问题
http://www.microsoft.com/downloads/details.aspx?FamilyID=CB824E35-0403-45C4-9E41-459F0EB89E36&displaylang=zh-cn

文件名：	VB60SP6-KB957924-v2-x86-CHS.msi
版本：	6.0
知识库 (KB) 文章：	KB957924
发布日期：	2009/5/4
语言：	中文(简体)
下载大小：	9.8 MB

目前 richtx32.Ocx 最新版本为 6.1.98.16

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)