Question

保存图片的方法

大家好！我现在想用VB里面的image或picturebox控件来保存图片，因为图片很多，大多都是JPG格式的，请教高手有没有什么方法给我参考一下，保存图片可以动态调整的，也就是可以随时添加图片，完成后可以在datagrid表中点击后在旁边的图片框中可以预览相应的图片。多谢！

Answer 1

　　1、对着要保存的图片按鼠标右键，在弹出菜单中选择“图片另存为”，然后选择好要保存的路径和文件名就可以了。

　　2、想保存的图片网页，在IE浏览器中点击“文件”菜单中的“另存为”，把整个网页保存到硬盘，然后从中找到图片即可。

　　注意：要选择“保存类型”中的“网页,全部(*.htm;*.html)”。

　　3、在桌面上按鼠标右键，在弹出菜单中选择“新建”→“文件夹”，随便起个名字即可，这个文件夹就是用来保存图片的文件夹。当网页上看到喜欢的图片时，按住鼠标左键拖到图片到文件夹中就可以了。

　　4、运行看图软件ACDSee，点击“查看→导航面板→文件夹”，或者在文件浏览窗口中点击“文件夹”标签，找到TemporaryInternetFiles文件夹，预览里面的图片，然后把保存的图片另存下来即可。

　　5、利用工具软件网文快捕WebCatcher。

　　

Answer 2

SavePicture 语句

从对象或控件（如果有一个与其相关）的 Picture 或 Image 属性中将图形保存到文件中。

语法

SavePicture picture, stringexpression

SavePicture 语句的语法包含下面部分：

参数 描述
picture 产生图形文件的 PictureBox 控件或 Image 控件。
stringexpression 欲保存的图形文件名。

说明

无论在设计时还是运行时图形从文件加载到对象的 Picture 属性，而且它是位图、图标、元文件或增强元文件，则图形将以原始文件同样的格式保存。如果它是 GIF 或 JPEG 文件，则将保存为位图文件。

Image 属性中的图形总是以位图的格式保存而不管其原始格式。
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 3

从对象或控件（如果有一个与其相关）的 Picture 或 Image 属性中将图形保存到文件中。

语法

SavePicture picture, stringexpression

SavePicture 语句的语法包含下面部分：

参数 描述
picture 产生图形文件的 PictureBox 控件或 Image 控件。
stringexpression 欲保存的图形文件名。

说明

无论在设计时还是运行时图形从文件加载到对象的 Picture 属性，而且它是位图、图标、元文件或增强元文件，则图形将以原始文件同样的格式保存。如果它是 GIF 或 JPEG 文件，则将保存为位图文件。

Image 属性中的图形总是以位图的格式保存而不管其原始格式。
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 赞同0| 评论

Answer 4

Picture1.Picture = LoadPicture("c:\tmp\123.jpg")
或
Image1.Picture = LoadPicture("c:\tmp\123.jpg")

追问

请看清楚提问不要不答完全。谢谢，最好能全面一点的，专业一点的。

追答

你的提问也不完全啊，至少应该提供相应的代码，几行也好，我们才好下手啊

Answer 5

Dear friends ! !
Including shipping 70 usd, about 7-15 working days , thank you ! ! !

Dear friends ! !
Including shipping 70 usd, about 7-15 working days , thank you ! ! !

Dear friends ! !
Including shipping 70 usd, about 7-15 working days , thank you ! ! !

Dear friends ! !
Including shipping 70 usd, about 7-15 working days , thank you ! ! !

Dear friends ! !
Including shipping 70 usd, about 7-15 working days , thank you ! ! !

Dear friends ! !
Including shipping 70 usd, about 7-15 working days , thank you ! ! !

Dear friends ! !
Including shipping 70 usd, about 7-15 working days , thank you ! ! !

Dear friends ! !
Including shipping 70 usd, about 7-15 working days , thank you ! ! !

Dear friends ! !
Including shipping 70 usd, about 7-15 working days , thank you ! ! !

Dear friends ! !
Including shipping 70 usd, about 7-15 working days , thank you ! ! !

Dear friends ! !
Including shipping 70 usd, about 7-15 working days , thank you ! ! !

Dear friends ! !
Including shipping 70 usd, about 7-15 working days , thank you ! ! !

Dear friends ! !
Including shipping 70 usd, about 7-15 working days , thank you ! ! !