三个问题问高手

[wmxhxj]

转了一圈，还是VFP查询快呀，
用VB+SQL，查询一个3万条数据库，找到2千条数据显示时需要 5-7秒，2000以上就更慢了，但用VFP，找到两万条显示时，也只用好像不到一秒。其他方面不论，单就显示查询结果这方面 ，还VFP快呀。

三个问题问高手
1，如何通过命令在文本框中选中指定的字符串。
比如，在一个EDIT里已经有一段文本，在一个text框中输入要指定的字符，然后command,那么，在这 个EDIT里就把指定的字符选中，并且焦点显示出来，如果它出现在EDIT的流动条下面，它也能自动滚动出来并且选中显示。

2，在文本框中，如何双击后，选中当前一行文本

3，如何调用系统写字板，打开剪贴板里面的文本。
程序里调用剪贴板是_CLIPTEXT ，调用剪贴板 是 ! /n Write.exe 。
一般情况下是先将文本保存到一个TXT文件，然后再用写字板打开这个TXT文件，
COPY TO &txt_name DELIMITED WITH ' '
! /n Write.exe txt_name
但我想直接用系统写字板打开剪贴板的文本，
显然这样是不行的：
! /n Write.exe _CLIPTEXT

[都市夜猫]

1. 找到并设置 Editbox 的 SelStart 和 SelLength 属性，并设置为活动(焦点)控件即可 2. 默认动作是双击：加亮一个词，三击：加亮整行。不过，同样可以在 DblClick 中设置 Textbox 的 SelStart 和 SelLength 属性来加亮 3. 先用 Run 打开写字板，再用 FindWindowEx 查找写字板窗口句柄，再找编辑控件的子窗口句柄，最后用 SendMessage 发送 WM_PASTE 消息即可

[十豆三]

1、 lcSearchStr='bb' && 要查找的字符串 lnPosition=At(lcSearchStr,Thisform.Edit1.Value) If lnPosition>0 Thisform.Edit1.SelStart=lnPosition-1 Thisform.Edit1.SelLength=Len(lcSearchStr) Thisform.Edit1.SetFocus Endif 2、自带功能。 3、虽然有其他方法，但通过文本的方法最简单 =StrToFile(_CLIPTEXT,'Mytemp.txt') ! /n Write.exe Mytemp.txt

[wmxhxj]

引用 1 楼 dkfdtf 的回复:

1. 找到并设置 Editbox 的 SelStart 和 SelLength 属性，并设置为活动(焦点)控件即可 2. 默认动作是双击：加亮一个词，三击：加亮整行。不过，同样可以在 DblClick 中设置 Textbox 的 SelStart 和 SelLength 属性来加亮 3. 先用 Run 打开写字板，再用 FindWindowEx 查找写字板窗口句柄，再找编辑控件的子窗口句柄，最后用 SendMessage 发送 WM_PASTE 消息即可

老大，能否给个实例.谢谢。

[都市夜猫]

查找写字板的窗口类名，我用的是 WordPadClass，编辑控件窗口类名是 RICHEDIT50W，我机器上只有 win7，不知xp,win8,win10的写字板类名是否也是如此，不是再说吧 示例：http://download.csdn.net/detail/dkfdtf/9650140

[dfwxj]

一楼二楼回答得很好

[xilaianzxsc]

老师永远是老师。 真是很佩服

[捧剑者]

差别那么大？vfp+sql server？还是本地数据库？

[mysdxxieming]

路过，学习一下

[xilaianzxsc]

老师一到,问题迎刃而解

[o0风箫吟0o]

学习到了一个新招术。谢谢老师。