VB Picturebox控件图片问题

xuruiyi 2013-04-19 05:18:51

Picturebox添加一张图片A.jpg也能够正确显示，我现在的问题是如何在这个图片上在添加一个B.JPG（Logo图片）logo图片添加在A图片的左下角，点击保存后logo图片能够正确在A图片中显示出来，请群里面的专家帮我看看有没有什么好办法，谢谢！

...全文

239 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

酷心 2013-04-22

打赏
举报


Option Explicit

Private Sub Command1_Click()
  Picture1.PaintPicture Picture2.Picture, 0, Picture1.Height - Picture2.Height, Picture2.Width, Picture2.Height
  Set Picture1.Picture = Picture1.Image
  Call SavePicture(Picture1.Picture, "xxx")
End Sub

Private Sub Form_Load()
  Picture1.AutoRedraw = True
  Picture1.AutoSize = True
  Set Picture1.Picture = LoadPicture("xxx")
  Picture2.AutoSize = True
  Set Picture2.Picture = LoadPicture("xxx")
End Sub

xuruiyi 2013-04-22

打赏
举报

Set Picture1.Picture = LoadPicture(xxx) Picture2.AutoSize = True Picture1.AutoSize = True Set Picture2.Picture = LoadPicture(xxx) Picture1.PaintPicture Picture2.Picture, 0, Picture1.Height - Picture2.Height,Picture2.Width, Picture2.Height Set Picture1.Picture = Picture1.Image Call SavePicture(Picture1.Picture, xxx) Picture2并没有叠加在Picture1上面知道的人请回复一下兄弟啊，在这里跪求了~~~~

酷心 2013-04-20

打赏
举报

加上Picture1.AutoRedraw = True

xuruiyi 2013-04-20

打赏
举报

这个好像还是不行啊

酷心 2013-04-19

打赏
举报

PaintPicture,你试一下吧


Set Picture1.Picture = LoadPicture(xxx)
Picture2.AutoSize = True
Set Picture2.Picture = LoadPicture(xxx)
Picture1.PaintPicture Picture2.Picture, 0, Picture1.Height - Picture2.Height, Picture2.Width, Picture2.Height
Set Picture1.Picture = Picture1.Image
Call SavePicture(Picture1.Picture, xxx)

xuruiyi 2013-04-19