回 帖 发 新 帖 刷新版面

主题:组合图片保存问题

各位高手好

我是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

回复列表 (共2个回复)

沙发

办法就是你不要用image控件
把图片直接加载到picture上。

板凳

老大好
首先谢谢你

问题是直接在picture1控件中加载图片时,我无法控制其大小,因为它总是只显示图片的左上角。

能在picture1控件中通过条码控制图片大小吗。我好像做不到。请提示一两句条码。谢谢。

我来回复

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