主题:组合图片保存问题
各位高手好
我是VB新手,自己试着编程时遇到一个图片保存问,请指导。
具体是:我在窗体form中添加了一个picture控件,然后在picture控件中添加一个image控件。
在image中添加了一图片,图片大小等同于picture控件的大小。然后我用picture1.cirle代码在
picture控件中画了一个圆,显示在image中的图片上。问题就是:我想把先添上的图片和画的圆
一起保存起来。结果不行。
savepicture picture1.image cmdl.filename'保存的文件中无任何图片
savepicture picture1.image1 cmdl.filename'保存时出现调试错误
savepicture image1 cmdl.filename'保存的文件中只有先添加的图片,没有circle画的圆。
请高手指点,怎样把二者同时保存,或者是否有其他程序代码可实现。
下面是主要代码
Private Sub Form_resize()
Image1.Height = Picture1.ScaleHeight‘定义图片大小
Image1.Width = Picture1.ScaleWidth
End Sub
Private Sub Command1_Click()
Picture1.Circle (m, n), 10, QBColor(5)’添加一个圆
End Sub
Private Sub mnusave_Click()‘保存图片
cmdl.Filter = "位图|*.bmp|JPEG图|*.jpeg"
cmdl.ShowSave
SavePicture Image1, cmdl.FileName
end sub
我是VB新手,自己试着编程时遇到一个图片保存问,请指导。
具体是:我在窗体form中添加了一个picture控件,然后在picture控件中添加一个image控件。
在image中添加了一图片,图片大小等同于picture控件的大小。然后我用picture1.cirle代码在
picture控件中画了一个圆,显示在image中的图片上。问题就是:我想把先添上的图片和画的圆
一起保存起来。结果不行。
savepicture picture1.image cmdl.filename'保存的文件中无任何图片
savepicture picture1.image1 cmdl.filename'保存时出现调试错误
savepicture image1 cmdl.filename'保存的文件中只有先添加的图片,没有circle画的圆。
请高手指点,怎样把二者同时保存,或者是否有其他程序代码可实现。
下面是主要代码
Private Sub Form_resize()
Image1.Height = Picture1.ScaleHeight‘定义图片大小
Image1.Width = Picture1.ScaleWidth
End Sub
Private Sub Command1_Click()
Picture1.Circle (m, n), 10, QBColor(5)’添加一个圆
End Sub
Private Sub mnusave_Click()‘保存图片
cmdl.Filter = "位图|*.bmp|JPEG图|*.jpeg"
cmdl.ShowSave
SavePicture Image1, cmdl.FileName
end sub