vb如何将多张图片写入到一个文件中并分别调用？

来源：百度知道 编辑：UC知道 时间：2024/05/15 17:20:24
程序中需要调用1万多张图片，图片直接放在程序文件夹下显得不好，有没有办法将图片隐藏起来。
我的想法是将所有图片都写到一个文件中去，比如pic.dat ，里面给每个文件分配固定长度的大小，调用的时候按内存地址去找每一个文件，但是我不知道怎么写代码或者vb能不能支持
各位高手有没有什么好的办法可以解决这个问题 让用户看不到这么多图片

使用流对象保存和显示图片
打开vb6,新建工程。

添加两个按钮,一个image控件
注意:Access中的photo字段类型为OLE对象.
SqlServer中的photo字段类型为Image

'** 引用 Microsoft ActiveX Data Objects 2.5 Library 及以上版本
‘2.5版本以下不支持Stream对象
Dim iConcstr As String
Dim iConc As ADODB.Connection

'保存文件到数据库中
Sub s_SaveFile()
Dim iStm As ADODB.Stream
Dim iRe As ADODB.Recordset
Dim iConcstr As String

'读取文件到内容
Set iStm = New ADODB.Stream
With iStm
.Type = adTypeBinary '二进制模式
.Open
.LoadFromFile App.Path + "\test.jpg"
End With

'打开保存文件的表
Set iRe = New ADODB.Recordset