求助VB里画图的一个问题 — 编程爱好者社区

主题：求助VB里画图的一个问题

xuyanfei3166 [专家分：0] 发布于 2009-04-12 21:35:00

有哪位高手帮帮忙，由于刚学VB，不会熟练运用。我用鼠标事件实现了画图的功能，当我用鼠标画好一个图后，我想在点击一个按钮后怎样才能实现将整个图形向上偏移一段距离呢？

本帖地址： http://bbs.pfan.cn/post/297970.html

回复列表（共5个回复）

沙发

一江秋水 [专家分：9680] 发布于 2009-04-13 08:41:00

最简单的办法是增加一个图片框，其大小与原图片框相同，再使用PaintPicture方法。
假设你是在PIC1上画图，增加一个PIC2，那么代码如下：

Pic2.PaintPicture Pic1,0，0，pic1.width,pic1.height - 1,0,1 '1就是你要上移的距离，你可以改为2、3.....
pic1.cls
Pic1.PaintPicture Pic2,0,0 '再复制到PIC1上

板凳

plane8410 [专家分：0] 发布于 2009-04-13 17:04:00

学习！

3 楼

xuyanfei3166 [专家分：0] 发布于 2009-04-13 19:10:00

真是太感谢了！！！

4 楼

xuyanfei3166 [专家分：0] 发布于 2009-04-15 15:05:00

还是有点小问题哦，如果要想原图不变呢，我去掉pic1.cls后程序提示报错。不过还是谢谢你啦！

5 楼

小令00 [专家分：1040] 发布于 2009-04-19 07:53:00

直接调用move方法不行么?

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：求助VB里画图的一个问题

回复列表（共5个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：求助VB里画图的一个问题

回复列表 （共5个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共5个回复）