社区
消息协作
帖子详情
想利用Notes控制扫描仪,把扫描好的文档直接保存到document的Rtf域中。各位可以提供点方案。谢谢!
xxxding
2003-11-05 05:46:57
想利用Notes控制扫描仪,把扫描好的文档直接保存到document的Rtf域中。各位可以提供点方案。谢谢!
...全文
66
2
打赏
收藏
想利用Notes控制扫描仪,把扫描好的文档直接保存到document的Rtf域中。各位可以提供点方案。谢谢!
想利用Notes控制扫描仪,把扫描好的文档直接保存到document的Rtf域中。各位可以提供点方案。谢谢!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
2 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
xxxding
2003-11-06
打赏
举报
回复
万分谢谢,先看看!
rombus
2003-11-06
打赏
举报
回复
有段代码你看下:作用是把TWAIN扫描仪扫的图片插入RTF
Declare Function GetActiveWindow Lib_
{User32} () As Long
Declare Sub SetActiveWindow Lib {User32}_
(Byval hwnd As Long)
Sub Click(Source As Button)
On Error Goto ErrorHandler
Const SCANFILEPATH$={C:Tempscan.jpg}
Const IMPORTFILETYPE$={JPEG}
Const RTFNAME$={Body}
Const SCANOBJNAME$={objScan}
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim wndhnd As Long
Dim strFile As String
Dim strRTFName As String
Dim objScan As Variant
Set uidoc = ws.CurrentDocument
Set objScan = uidoc.GetObject(SCANOBJNAME)
wndhnd&=GetActiveWindow()
If objScan.ScannerAvailable=True Then
objScan.ShowSelectScanner
objScan.Image=SCANFILEPATH
objScan.ScanTo=2 'StoreOnly
objScan.PageOption=6 'CreateReplace
objScan.ShowSetupBeforeScan=True
'ShowScanDialog
Call objScan.ShowScanPreferences
'ShowScanQualityDialog
Call objScan.StartScan
Call uidoc.GotoField(RTFNAME)
Call uidoc.import(IMPORTFILETYPE, SCANFILEPATH)
Call objScan.CloseScanner
Call SetActiveWindow(wndhnd&)
Else
Msgbox {Error: TWAIN driver not found!}
End If
TheEnd:
Exit Sub
ErrorHandler:
Messagebox {The following unexpected error_
has occured: } & Trim$(Str(Err)) & {: } & _
Error$, 0+48+0+0, {Error Message..}
Resume TheEnd
End Sub
在www.goldenclasp.com上的代码共享里有
AJAX必知必会:老程序员手把手带您完成一个【My
Notes
】Web前端项目
本课程主要介绍了AJAX基本原理,并演示了原理的实现过程,最后还安排一个实战项目——My
Notes
。
【转】
Notes
函数详解
一、
Notes
事件 数据库、视图、表单或
域
事件的 Script 运行在用户的工作站上。 事件列表: click 操作、按钮或热
点
,在它们被选
中
时发生 Entering 第一个
域
,表单在编辑模式下被打开时发生
域
,进入编辑模式时发生Exiting
域
,退出编辑模式时发生 Initialize Script 库,使用它的对象被打开时发生视图,打开数据库装入视图时发生视图,新的视图被装入时发生数据库,...
Notes
函数详解
一、
Notes
事件 数据库、视图、表单或
域
事件的 Script 运行在用户的工作站上。 事件列表: click 操作、按钮或热
点
,在它们被选
中
时发生 Entering 第一个
域
,表单在编辑模式下被打开时发生
域
,进入编辑模式时发生 Exiting
域
,退出编辑模式时发生 Initialize Script 库,使用它的对象被打开时发生 视图,打...
Lotus
Notes
/domino事件、属性、函数和命令
Lotus
Notes
/domino事件、属性、函数和命令
Notes
事件 数据库、视图、表单或
域
事件的 Script 运行在用户的工作站上。 事件列...
windos工具和一些
域
渗透工具
RTF
是一种文本文件格式,旨在存储文本
文档
的格式化信息,例如字体、颜色和样式,而无需包含实际的二进制图像或多媒体数据。
消息协作
535
社区成员
39,101
社区内容
发帖
与我相关
我的任务
消息协作
企业开发 Exchange Server
复制链接
扫一扫
分享
社区描述
企业开发 Exchange Server
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章