这个问题也许太简单了：请问如何将Picture内的图像在硬盘上另存为BMP

这个问题也许太简单了：请问如何将Picture内的图像在硬盘上另存为BMP。  
  十万火急！！！！  
  望高手指点！！！！  
  Thank   you   very   much!!!!! 问题点数：10、回复次数：5Top

1 楼yfsteven1（水木之1）回复于 2001-05-01 13:03:00 得分 0

打少了几个字，应该是：请问如何将PictureBox内的图像在硬盘上另存为BMP。Top

2 楼duqiang2050（杜杜）回复于 2001-05-01 13:05:00 得分 3

SavePicture   Image,   "TEST.BMP"       Top

3 楼vbFly（思想决定一切）回复于 2001-05-01 13:57:00 得分 0

也可以用API吧?Top

4 楼xxlroad（土八路）回复于 2001-05-01 14:29:00 得分 7

从对象或控件（如果有一个与其相关）的   Picture   或   Image   属性中将图形保存到文件中。  
  语法  
  SavePicture   picture,   stringexpression  
   
  SavePicture   语句的语法包含下面部分：  
  参数 描述  
   
  picture 产生图形文件的   PictureBox   控件或   Image   控件。  
  stringexpression 欲保存的图形文件名。  
   
  说明  
  无论在设计时还是运行时图形从文件加载到对象的   Picture   属性，而且它是位图、图标、元文件或增强元文件，则图形将以原始文件同样的格式保存。如果它是   GIF   或   JPEG   文件，则将保存为位图文件。  
  Image   属性中的图形总是以位图的格式保存而不管其原始格式。  
   
  SavePicture   语句   示例  
   
   
  '把以下代码保存为bmp.frm  
  VERSION   5.00  
  Begin   VB.Form   Form1    
        Caption                   =       "Form1"  
        ClientHeight         =       3195  
        ClientLeft             =       60  
        ClientTop               =       345  
        ClientWidth           =       4680  
        LinkTopic               =       "Form1"  
        ScaleHeight           =       3195  
        ScaleWidth             =       4680  
        StartUpPosition   =       3     'Windows   Default  
  End  
  Attribute   VB_Name   =   "Form1"  
  Attribute   VB_GlobalNameSpace   =   False  
  Attribute   VB_Creatable   =   False  
  Attribute   VB_PredeclaredId   =   True  
  Attribute   VB_Exposed   =   False  
  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  
   
   
  '！！！！注意AutoRedraw   =   True   '   打开   AutoRedraw否则不能保存Top

5 楼duqiang2050（杜杜）回复于 2001-05-01 14:31:00 得分 0

楼上的说得多详细，快给分Top

相关问题

• 文件
• 图形
• 图像
• 硬盘
• 控件
• 属性
• vb
• savepicture
• 保存
• picture

• 帖主：yfsteven1
• duqiang2050
• xxlroad

• Visual Basic类图书
• Visual Basic类源码下载