3,245
社区成员
发帖
与我相关
我的任务
分享电子盖章问题
现在用VC6+MFC做个电子盖章ocx，请问要怎么嵌入到OFFICE中，
还有画板上的印章怎么显示在OFFICE文档中。
谢谢
...全文
请发表友善的回复…
发表回复
做鸡真好吃 2009-07-24
- 打赏
- 举报
mark~
hongjinqu 2009-07-24
- 打赏
- 举报
mark!!
fengrx 2009-07-24
- 打赏
- 举报
1.实现插入控件到WORD文档中：
说明：控件在WORD文档中是以SHAPE对象出现，微软提供了接口。我写一段VB的代码，楼主可以修改成VC的。
代码：
'Sign.SignCtrl表示 "类库.类名"
Set sealContainerInline = oDoc.Application.Selection.InlineShapes.AddOLEControl("Sign.SignCtrl")
Set sealContainer = sealContainerInline.ConvertToShape
With sealContainer
.LockAnchor = False
.WrapFormat.AllowOverlap = True
.WrapFormat.Side = 0
.WrapFormat.Type = 3
If iStampPosType = 0 Then '最底层
.ZOrder 5
Else '最顶层
.ZOrder 4
End If
End With
2.实现画图：
由于SHAPE本身就是公章控件了，所以直接在控件中画图会自动显示在SHAPE上面的。
画图操作在ondraw函数中进行。
说明：控件在WORD文档中是以SHAPE对象出现，微软提供了接口。我写一段VB的代码，楼主可以修改成VC的。
代码：
'Sign.SignCtrl表示 "类库.类名"
Set sealContainerInline = oDoc.Application.Selection.InlineShapes.AddOLEControl("Sign.SignCtrl")
Set sealContainer = sealContainerInline.ConvertToShape
With sealContainer
.LockAnchor = False
.WrapFormat.AllowOverlap = True
.WrapFormat.Side = 0
.WrapFormat.Type = 3
If iStampPosType = 0 Then '最底层
.ZOrder 5
Else '最顶层
.ZOrder 4
End If
End With
2.实现画图：
由于SHAPE本身就是公章控件了，所以直接在控件中画图会自动显示在SHAPE上面的。
画图操作在ondraw函数中进行。
hongjinqu 2009-07-24
- 打赏
- 举报
继续顶，顶到高手看见！！
hongjinqu 2009-07-22
- 打赏
- 举报
up
hongjinqu 2009-07-22
- 打赏
- 举报
顶
雪影 2009-07-21
- 打赏
- 举报
mark 关注
hongjinqu 2009-07-21
- 打赏
- 举报
顶啊，这么好的问题，竟然没人回答！
wshcdr 2009-07-21
- 打赏
- 举报
找一些 关于 office addin的资料来看
