本来就很简单!!!
picture1.savetofile("filename")

解决方案 »

  1.   

    好象没有这样的用法:picture1.savetofile("filename")
      

  2.   

    trysavepicture picture1.image ,filename
      

  3.   

    没有呀?:)
    那有没有savepicture?
    难道只有loadpicture?哎呀,又糗了:(
    没有自己的pc,没法试呀
      

  4.   

    怎么了,
    好象是可以用
    picture1.savepicture("filename")
    的呀?!
    难道你想直接用api来存吗?
      

  5.   

    gameboy999,没事总是在这么简单的问题浪费时间。有空,解决论坛上“关于webbrowser的问题”!!!!!
      

  6.   

    不难!
    如我要保存一张叫text.bmp的图片,可
    Private Sub Form_Load
       Dim CX As Integer
       Dim CY As Integer
       Dim Limit As Integer
       Dim Radius As Integer
       CX = 1000
       CY = 1000
       For Radius = 0 To Limit
       Picture1.Circle(CX,CY),Radius,RGB(Rnd*255,Rnd*255,Rnd*255)
       Next Radius
       SavePicture Picture1.Image,"c:\text.bmp"
    End Sub* 在使用前把Picture1的AutoRedraw设为True.