Question

我使用VB 6和SQL Server 2005.我已将数据库中主题字段的数据类型设置为“Image”。当我从图片控件保存图像时，它在DB上显示为二进制。但是我无法将二进制文件从DB加载到图片控件。如何使用图片控件以编程方式保存和加载图像？

Answer 1

它可能不是你的意思，但在这种情况下，我通常将字节转储到临时文件，然后使用标准VB6 LoadImage从磁盘转到图像对象。当然，之后您应该删除临时文件。这是我所知道的唯一不使用Win API和/或自定义类型库的方式。

Answer 2

一个相当简单的示例，将记录集（RS）中的图片加载到图像控件（Image1）中：

Set strStream = New ADODB.Stream
strStream.Type = adTypeBinary
strStream.Open

strStream.Write RS.Fields("**YourImageField**").Value

strStream.SaveToFile "C:\Temp.bmp", adSaveCreateOverWrite
Image1.Picture = LoadPicture("C:\Temp.bmp")
Kill ("C:\Temp.bmp")

如何保存＆amp;使用VB 6加载图像

2 个答案: