请教关于Image和Pictrue的问题，急

Question

请问如果Form窗体的Pictrue属性已经指定，如何还原成None，同理，如果Pictrue控件和Image控件的Pictrue属性已经指定，如何还原成None，另外，如何把Pictrue控件和Image控件的图片导出？？？？
急，请速答，马上给分。

Answer 1

savepicture picture1.picture,"c:\test.bmp"
savepicture picture1.image,"c:\test.bmp"savepicture image1.picture,"c:\test.bmp"

Answer 2

Dim Fs
Set Fs = CreateObject("Scripting.FileSystemObject"）
End Sub

Answer 3

SavePicture 语句
   从对象或控件（如果有一个与其相关）的 Picture 或 Image 属性中将图形保存到文件中。语法SavePicture picture, stringexpressionSavePicture 语句的语法包含下面部分：参数 描述 
picture 产生图形文件的 PictureBox 控件或 Image 控件。 
stringexpression 欲保存的图形文件名。 
说明无论在设计时还是运行时图形从文件加载到对象的 Picture 属性，而且它是位图、图标、元文件或增强元文件，则图形将以原始文件同样的格式保存。如果它是 GIF 或 JPEG 文件，则将保存为位图文件。Image 属性中的图形总是以位图的格式保存而不管其原始格式。

Answer 4

SavePicture 语句示例
本例使用 SavePicture 语句保存画在 Form 对象的 Picture 属性中的图形。要试用此例，可将以下代码粘贴到 Form 对象的声明部分，然后运行此例，单击 Form 对象。Private Sub Form_Click ()
   ' 声明变量。
   Dim CX, CY, Limit, Radius   as Integer, Msg as String
   ScaleMode = vbPixels   ' 设置比例模型为像素。
   AutoRedraw = True ' 打开 AutoRedraw。
   Width = Height   ' 改变宽度以便和高度匹配。
   CX = ScaleWidth / 2   ' 设置 X 位置。
   CY = ScaleHeight / 2   ' 设置 Y 位置。
   Limit = CX   ' 圆的尺寸限制。
   For Radius = 0 To Limit   ' 设置半径。
      Circle (CX, CY), Radius, RGB(Rnd * 255, Rnd * 255, Rnd * 255)
      DoEvents   ' 转移到其它操作。
   Next Radius
   Msg = "Choose OK to save the graphics from this form "
   Msg = Msg & "to a bitmap file."
   MsgBox Msg
   SavePicture Image, "TEST.BMP"   ' 将图片保存到文件。
End Sub

Answer 5

1.请问如果Form窗体的Pictrue属性已经指定，如何还原成None，
同理，如果Pictrue控件和Image控件的Pictrue属性已经指定，如何还原成None，
  set form.picture=nothing
  set picture.picture=nothing
2.另外，如何把Pictrue控件和Image控件的图片导出？？？？
  SavePicture 函数.

Answer 6

othing  语言参考 描述
在 VBScript 中，Nothing 关键字用于取消某对象变量与实际对象的关联。使用 Set 语句将对象变量赋值为 Nothing。例如：Set MyObject = Nothing多个对象变量可以引用同一个实际对象。当 Nothing 赋值给某对象变量后，此变量就不再引用任何实际对象。当多个对象变量引用同一个对象时，只有在所有对象变量都设置为 Nothing （在设置为 Nothing 的最后一个对象变量超出范围后，显式或隐式地使用 Set 命令）后，与变量所引用的对象相关联的内存和系统资源才被释放。

Answer 7

另外 to：
MSTOP(陈建华(东莞立晨企业资讯服务有限公司)) 用不着那么麻烦了直接在pictrue属性上按Del多省事啊