cls的用法

Question

请举例子

Answer 1

Me.Cls  '清除在窗体的画图
PicTure1.Cls '清除在图片框的画图

Answer 2

试了,cls只能清窗体用print显示的文字,不能清任何图像,用picture1.cls也没用

Answer 3

抱歉!Cls 方法
清除运行时 Form 或 PictureBox 所生成的图形和文本。
清任何图片框装载的图像
Picture1.Picture = LoadPicture()   '清除 picturebox。

Answer 4

Cls 方法
清除运行时 Form 或 PictureBox 所生成的图形和文本。
语法
object.Cls
object 所在处代表一个对象表达式，其值为“应用于”列表中的一个对象。如果省略 object，则带有焦点的 Form 就被认为是 object。
说明
Cls 将清除图形和打印语句在运行时所产生的文本和图形，而设计时在 Form 中使用 Picture 属性设置的背景位图和放置的控件不受 Cls 影响。如果激活 Cls 之前 AutoRedraw 属性设置为 False， 调用时该属性设置为 True，则放置在 Form 或 PictureBox 中的图形和文本也不受影响。 这就是说，通过对正在处理的对象的 AutoRedraw 属性进行操作，可以保持 Form 或 PictureBox 中的图形和文本。
调用 Cls 之后，object 的 CurrentX 和 CurrentY 属性复位为 0。Cls 方法示例
本示例使用 Cls 方法从一个窗体中删除打印信息。要检验此示例，可将本例代码粘贴到一个窗体的声明部分，然后按 F5 并单击该窗体。Private Sub Form_Click ()
   Dim Msg   ' 声明变量。
   AutoRedraw = -1   ' 打开 AutoRedraw。
   ForeColor = QBColor(15)   ' 将前景设置为白色。
   BackColor = QBColor(1)    ' 将背景设置为蓝色。
   FillStyle = 7   ' 设置对角线菱形。
   Line (0, 0)-(ScaleWidth, ScaleHeight), , B  ' 将框放在窗体上。
   Msg = "This is information printed on the form background."
   CurrentX = ScaleWidth / 2 - TextWidth(Msg) / 2  ' 设置 X 的位置。
   CurrentY = 2 * TextHeight(Msg)   ' 设置 Y 的位置。
   Print Msg   ' 打印信息至窗体。
   Msg = "Choose OK to clear the information and background "
   Msg = Msg & "pattern just displayed on the form."
   MsgBox Msg   ' 显示信息。
   Cls   ' 清除窗体的背景。
End Sub

Answer 5

#6楼,我在CLS前加了一句Form1.Picture = LoadPicture("........")加入图形,无法清除.

Answer 6

cls方法是用来清除form1.line之类的方法画出来的东西。
loadpicture方法加入的图形是底图，用：
Form1.Picture = LoadPicture("")清除

Answer 7

参考6楼。多查阅MSDN是正解。