怎样清除VB中picture控件中插入的jpg图片
我在窗体中设置了两个按钮.当点击command1时就在picturebox中插入图片,同时不显示我在picturebox中画的三角形。当点击command2时就清除先插入...
我在窗体中设置了两个按钮.当点击command1时就在picturebox中插入图片,同时不显示我在picturebox中画的三角形。当点击command2时就清除先插入的图片然后显示我在picturebox中画的三角形。
请高手指教 展开
请高手指教 展开
推荐于2017-09-18 · 知道合伙人软件行家
关注
展开全部
VB可对图片框的Picture属性使用LoadPicture 函数来实现清除里面的所有内容。
PictureBox 控件
PictureBox 控件可以显示来自位图、图标或者元文件,以及来自增强的元文件、JPEG 或 GIF
文件的图形。如果控件不足以显示整幅图象,则裁剪图象以适应控件的大小。
Picture 属性
返回或设置控件中要显示的图片。对于 OLE 容器控件,在设计时不可用在运行时为只读。
LoadPicture 函数
将图形载入到窗体的 Picture 属性、PictureBox 控件或 Image 控件。
Cls 方法
清除运行时 Form 或 PictureBox 所生成的图形和文本。
以下代码体现上述各知识点的应用:
Private Sub Command1_Click()
Picture1.Picture = LoadPicture("") ' 可删除图片框所有内容
End Sub
Private Sub Command2_Click()
Picture1.Cls '只能清除绘制的图
End Sub
Private Sub Form_Load()
Picture1.Picture = LoadPicture("C:\Sunset.jpg")
Picture1.ForeColor = QBColor(15)
Picture1.Print Now
End Sub
PictureBox 控件
PictureBox 控件可以显示来自位图、图标或者元文件,以及来自增强的元文件、JPEG 或 GIF
文件的图形。如果控件不足以显示整幅图象,则裁剪图象以适应控件的大小。
Picture 属性
返回或设置控件中要显示的图片。对于 OLE 容器控件,在设计时不可用在运行时为只读。
LoadPicture 函数
将图形载入到窗体的 Picture 属性、PictureBox 控件或 Image 控件。
Cls 方法
清除运行时 Form 或 PictureBox 所生成的图形和文本。
以下代码体现上述各知识点的应用:
Private Sub Command1_Click()
Picture1.Picture = LoadPicture("") ' 可删除图片框所有内容
End Sub
Private Sub Command2_Click()
Picture1.Cls '只能清除绘制的图
End Sub
Private Sub Form_Load()
Picture1.Picture = LoadPicture("C:\Sunset.jpg")
Picture1.ForeColor = QBColor(15)
Picture1.Print Now
End Sub
TableDI
2024-07-18 广告
2024-07-18 广告
在上海悉息信息科技有限公司,我们深知Excel在数据处理中的重要作用。在Excel中引用不同工作表(sheet)的数据是常见的操作,这有助于整合和分析跨多个工作表的信息。通过在工作表名称前加上感叹号“!”,您可以轻松地引用其他工作表中的数据...
点击进入详情页
本回答由TableDI提供
展开全部
Private Sub Command1_Click()
Picture1 = LoadPicture("图片文件")
End Sub
Private Sub Command2_Click()
Picture1 = Nothing
Picture1.AutoRedraw = True
Picture1.Line (100, 100)-(200, 200)
Picture1.Line (200, 200)-(100, 300)
Picture1.Line (100, 300)-(100, 100)
End Sub
Picture1 = LoadPicture("图片文件")
End Sub
Private Sub Command2_Click()
Picture1 = Nothing
Picture1.AutoRedraw = True
Picture1.Line (100, 100)-(200, 200)
Picture1.Line (200, 200)-(100, 300)
Picture1.Line (100, 300)-(100, 100)
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
绘图清除
Picture1.Cls
图片清除
Picture1.Picture = LoadPicture("")
Picture1.Cls
图片清除
Picture1.Picture = LoadPicture("")
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询