在VB中怎么显示图像的存储?
哪位大虾指导一下,谢谢

显示图像用 LoadPicture 过程在 Image 或 PictureBox 控件上显示，保存图片用 SavePicture Image1.Picture, "文件名" 或 SavePicture Picture1.Picture, "文件名" 。
什么叫显示图像的存储?

哦,谢谢,我主要是想问问怎么样实现图像的存储

楼主像把图像存到哪里？(存到数据库，还是存到文件)?

cliboard("picture data");

保存到文件: SavePicture Image1.Picture
保存到剪贴板:
Clipboard.Clear
Clipboard.SetData(Image1.Picture)
获取的时候就用:
If Clipboard.GetFormat(vbCFBitmap) Then
Image1.Picture = Clipboard.GetData()
End If

我是想把图片存到SQL数据库
请问怎么实现？

Set rs = con.Execute("select * from tsb")
Do Until rs.EOF
If rs.Fields(0).Value = Item.Text Then
Exit Do
End If
rs.MoveNext
Loop
If rs.Fields(7).ActualSize = 0 Then
Image1.Picture = LoadPicture(App.Path & "\NotPic.jpg")
Else
Dim PicFile As String '声明图片路径变量
Dim byt() As Byte '声明二进制数组接收数据库信息
Dim lngch As Long
PicFile = App.Path & "\BokPic\" & rs.Fields(0).Value & ".jpg"
'给该变量符值用图书书号作文件名创建一个图片文件
ReDim byt(rs.Fields(7).ActualSize)
'ActualSize指示字段的值的实际长度
byt = rs.Fields(7).Value
'得到数据库图片信息
lngch = FreeFile '取得空闲的文件号
'将二进制数组byt符值给PicFile的文件
Open PicFile For Binary As #lngch
Put #lngch, , byt
Close #lngch
Image1.Picture = LoadPicture(PicFile)
End If
rs.Close
Set rs = Nothing

以前写的SQL数据库存图片的程序，其中Image1为PictureBox控件。
SQL中存图片表的字段类型应为image类型。
另外item应该是一个文本框用来输入图片的文件名。
该程序的数据库中以图片的有存储文件名及图片的两个字段，该程序的作用就是输入图片的文件名从数据库中查找到该图片，读取并显示。

[此贴子已经被作者于2005-11-12 16:11:44编辑过]

与之对应的存储代码

''''''''''''''''''
'添加图片到数据库'
''''''''''''''''''
Dim fnm As Long '文件号变量
Dim txtf As String '图片路径变量
Dim byt() As Byte '二进制数组
On Error Resume Next
If ImgFile = "" Then
'判断用户是否选择了图片未选择就会把默认的图片符给数据库
ReDim byt(FileLen(App.Path & "\NotPic.jpg")) '给定数组长度
fnm = FreeFile '取得空闲文件号
txtf = App.Path & "\NotPic.jpg" '给定路径
Open txtf For Binary As #fnm '打开文件
Get #fnm, , byt '将文件写入二进制数组
Close #fnm '关闭文件号
rs.Fields(7).Value = byt '二进制数组写入数据库
Else
ReDim byt(FileLen(ImgFile))
fnm = FreeFile
txtf = ImgFile
Open txtf For Binary As #fnm
Get #fnm, , byt
Close #fnm
rs.Fields(7).Value = byt
End If
rs.Update
rs.Close
Set rs = Nothing

其实这个代码跟上面那个差不多区别就在红字标示的地方。

good