首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

VB Picturebox控件图片有关问题

2013-04-22 
VB Picturebox控件图片问题Picturebox添加一张图片A.jpg也能够正确显示,我现在的问题是如何在这个图片上在

VB Picturebox控件图片问题
Picturebox添加一张图片A.jpg也能够正确显示,我现在的问题是如何在这个图片上在添加一个B.JPG(Logo图片)logo图片添加在A图片的左下角,点击保存后logo图片能够正确在A图片中显示出来,请群里面的专家帮我看看有没有什么好办法,谢谢! 图片 VB PictureBox
[解决办法]
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)

[解决办法]

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

热点排行