高手请帮帮改代码

klj123 2008-03-30 11:03:08
下面是一段打印代码
picMCRBox将picCanvas作容器,我相定位picMCRBox于picCanvas的固定位置,但打印出来picMCRBox位于picCanvas左上角,请高手帮改一下,谢谢!
Private Sub Command2_Click()
On Error GoTo Errhandle
Screen.MousePointer = 11
Printer.PaperSize = vbPRPSA4
Printer.PrintQuality = 4
picMCRBox.Left = 230
picMCRBox.Top = 190
Printer.PaintPicture picCanvas.Image, 0, 0: Printer.PaintPicture picMCRBox.Image, 188, 196
Printer.EndDoc
Screen.MousePointer = 0
Exit Sub
Errhandle:
Screen.MousePointer = 0
MsgBox "错误号为:" & Err.Number & "!" & Chr(13) & "错误类型为:" & Err.Description & "!", vbOKOnly + vbExclamation
End Sub
...全文
80 点赞 收藏 11
写回复
11 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
DoemingRau 2008-03-30
Private Sub Command2_Click()
On Error GoTo Errhandle
Screen.MousePointer = 11
Printer.PaperSize = vbPRPSA4
Printer.PrintQuality = 4
picMCRBox.Left = 230
picMCRBox.Top = 190
Printer.PaintPicture picCanvas.Image, 0, 0: Printer.PaintPicture picMCRBox.Image, picMCRBox.Left +188, picMCRBox.Top +196
Printer.EndDoc
Screen.MousePointer = 0
Exit Sub
Errhandle:
Screen.MousePointer = 0
MsgBox "错误号为:" & Err.Number & "!" & Chr(13) & "错误类型为:" & Err.Description & "!", vbOKOnly + vbExclamation
End Sub
回复
klj123 2008-03-30
还是不行
那个picMCRBox还是跑到picCanvas的左上角无法定位,哪位高手知道错在哪儿吗?
回复
DoemingRau 2008-03-30
上述修正下
Printer.PaintPicture picMCRBox.Image, 188, 196
改为
Printer.PaintPicture picMCRBox.Image, picCanvas.CurrentX + 188, picCanvas.CurrentX + 196
回复
DoemingRau 2008-03-30
Printer.PaintPicture picMCRBox.Image, 188, 196
改为
Printer.PaintPicture picMCRBox.Image, picCanvas.x+188, picCanvas.y+196
回复
klj123 2008-03-30
是这样的,我先在picCanvas导入一张图片,用picMCRBox拷,再用picCanvas导入另一张图片,这张图片是处在picMCRBox后面,做出叠加的样式(我不会图片叠加才这样做),调好位置后就打印,效果像叠加一样。
回复
cbm6666 2008-03-30
"能否将picMCRBox做成透明?"

那只小鸟就是picMCRBox而且是透明的啊

"picMCRBox中的图片是从picCanvas拷过来"

两张图片一样? 那为何要拷呢 ? 搞不懂 ?
回复
klj123 2008-03-30
cbm666朋友,我是用昨天你给的代码加以扩展的,picMCRBox中的图片是从picCanvas拷过来在的问题是
1、打印福娃加上小鸟, 并将小鸟置于福娃的中间。
2、能否将picMCRBox做成透明?

回复
神奇,美术这么好。
回复
cbm6666 2008-03-30
我打印出来的效果就是与上面的效果图一样.

小鸟部份,因我这张图片是将.gif加载在picMCRBox里面的, 如你需要透明,则picMCRBox的图片也要有固定色的背景我就可以使它透明的打印出来.
回复
forbearORfolie 2008-03-30
哈哈,山姆大哥的美术确实不错,赞一个
回复
cbm6666 2008-03-30
下图的福娃是你的picCanvas, 小鸟是picMCRBox的图片(我已将小鸟的背景去除透明化了)

你是要打印福娃加上小鸟, 并将小鸟置于福娃的中间是吗 ? 还是定位在某个X Y 只打印小鸟部份 ?


效果图:
http://p.blog.csdn.net/images/p_blog_csdn_net/cbm666/366646/o_FWBIRD.jpg


回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7490

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2008-03-30 11:03
社区公告
暂无公告