Office中国论坛/Access中国论坛

标题: [求助]如何把acc中剪贴板的内容存为一个变量？ [打印本页]

作者: wu8313 时间: 2006-11-6 03:52
标题: [求助]如何把acc中剪贴板的内容存为一个变量？
把acc中某个文本框中的内容，比如sdfg，使用鼠标选中 dfg 以后，然后复制，如何把 dfg 存为一个变量？

使用剪贴板作为关键词搜索到一些帖子，可是总不得要领。

谢谢！！

[此贴子已经被作者于2006-11-5 19:53:16编辑过]

作者: fan0217 时间: 2006-11-6 03:59
不明白你的意思，干吗非要到剪贴板转一圈呢？剪贴板中的数据类型很复杂，不单单是数字，或文本。

声明一个变量，然后赋值就可以了。

dim strTmp as string

sub Main()

strTmp=me.text1

end sub

[此贴子已经被作者于2006-11-5 20:01:22编辑过]

作者: fan0217 时间: 2006-11-6 04:00
发送文本到剪贴板的函数

Function SendToScrap(strSendText As String) As Boolean
'===============================================================================
'-函数名称:       SendToScrap
'-功能描述:       发送文本到剪贴板
'-输入参数说明:    必选：strSendText As String 发送的文本
'-返回参数说明:    发送成功：True  发送失败：False
'-使用语法示例:    SendToScrap("你好！")
'-参考:
'-使用注意:       需要引用Microsoft Forms2.0 Object Library (%system32%\FM20.DLL)
'-兼容性:
'-作者:          fan0217 fan0217@163.com
'-更新日期：       2006-02-24
'===============================================================================
On Error GoTo Err_SendToScrap
Dim tmpData As New DataObject
tmpData.SetText strSendText
tmpData.PutInClipboard

SendToScrap = True

Exit_SendToScrap:
Exit Function

Err_SendToScrap:
SendToScrap = False
MsgBox Err.Description
Resume Exit_SendToScrap

作者: wu8313 时间: 2006-11-7 03:39
已经手工注册了 fm20.dll 库，还是引用丢失。

在这里已经手工注册了。
[attach]21377[/attach]

可是在这里我看不到引用。

以 M 开头的引用并没有 Microsoft Forms2.0 Object Library

[attach]21379[/attach]

[此贴子已经被作者于2006-11-6 19:49:03编辑过]

作者: wu8313 时间: 2006-11-7 03:48

以下是引用fan0217在2006-11-5 19:59:00的发言：

不明白你的意思，干吗非要到剪贴板转一圈呢？剪贴板中的数据类型很复杂，不单单是数字，或文本。

声明一个变量，然后赋值就可以了。

dim strTmp as string

sub Main()

strTmp=me.text1

end sub

我不是要得到整个 text1，而是 text1 的一部分。

在复制前，我打算清空剪贴板。至于数据类型的问题，转换一下再说。

===========================

我的最终目的是，选中 text1 的一部分，复制后传送到一个变量，一律转化该变量的数据类型为string ,然后使用

filter 方法进行模糊筛选。

作者: fan0217 时间: 2006-11-7 03:54
模糊查询，我在论坛上发表了一种方法，使用很简单的，功能也很强大，不在乎是什么数据类型，都可以使用的。

http://www.office-cn.net/forum.php?mod=viewthread&tid=44013&replyID=&skin=1

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