UC知道关于cls的问题，请高人指点下
来源：百度知道 编辑：UC知道 时间：2024/06/05 17:15:47
Private Sub Command1_Click()
Picture1.Picture = LoadPicture("d:\red.jpg")
Picture1.Cls
Picture1.Print "test"
End Sub
该程序运行的结果我认为是图片框内显示test无图片因为图片被清除了
可是正确的结果是图片和文字都有，请问什么原因啊？
Picture1.Picture = LoadPicture("d:\red.jpg")
Picture1.Cls
Picture1.Print "test"
End Sub
该程序运行的结果我认为是图片框内显示test无图片因为图片被清除了
可是正确的结果是图片和文字都有，请问什么原因啊？
Cls 方法
清除运行时 Form 或 PictureBox 所生成的图形和文本。
语法
object.Cls
object 所在处代表一个对象表达式，其值为“应用于”列表中的一个对象。如果省略 object，则带有焦点的 Form 就被认为是 object。
说明
Cls 将清除图形和打印语句在运行时所产生的文本和图形，而设计时在 Form 中使用 Picture 属性设置的背景位图和放置的控件不受 Cls 影响。如果激活 Cls 之前 AutoRedraw 属性设置为 False， 调用时该属性设置为 True，则放置在 Form 或 PictureBox 中的图形和文本也不受影响。 这就是说，通过对正在处理的对象的 AutoRedraw 属性进行操作，可以保持 Form 或 PictureBox 中的图形和文本。
若要全部清除使用：
Private Sub Command2_Click()
Picture1.Picture = Nothing
End Sub
画出来的可以PictureBox1.cls
否则清空用：
Picture1 = LoadPicture()
或者用:
Set Picture1.Picture = Nothing