比较着急的问题，图片的修改

Question

有什么办法能在原来的图片底部家上一天高50象素的白条，也就是说图片的高怎增加50象素，用白色填充，然后在这个区域打上文字

Answer 1

Picture1.AutoSize = true
picture1.picture=loadpicture("d:\d.bmp")
picture1.refresh
Picture1.AutoSize = False
Picture1.Height = Picture1.Height + 750
Picture1.CurrentX = 0
Picture1.CurrentY = Picture1.ScaleHeight - 550
Picture1.Print "sadkchasdkf"
SavePicture Picture1.Image, "d:\d.bmp"

Answer 2

少写一句：
Picture1.AutoSize = true
picture1.backcolor=vbwhite
picture1.picture=loadpicture("d:\d.bmp")
picture1.refresh
'上面几句最好都写form_load事件里面或者在IDE状态下把属性设置好
Picture1.AutoSize = False
Picture1.Height = Picture1.Height + 750
Picture1.CurrentX = 0
Picture1.CurrentY = Picture1.ScaleHeight - 550
Picture1.Print "sadkchasdkf"
SavePicture Picture1.Image, "d:\d.bmp"

Answer 3

又少写一句，最前面再加个picture1.autoredraw=true
＾＿＾
抢楼太心急~~

Answer 4

这样是可以啊，但是我操作的是JPG，然后，可一控制Print时的位置吗？？
我要让那些字显示在白的那块的中间

Answer 5

Picture1.CurrentX = 0
Picture1.CurrentY = Picture1.ScaleHeight - 550
这两句就是控制打印位置的啊如果你要把修改后的文件又存回JPG格式的话我就不知道了,没研究过