Question

vb jpg图像怎么变成资源文件 怎么从资源文件里面调用到image中 、、、、有新的疑惑求解释

Picture1.Picture = LoadPicture(App.Path & "\1\" & "1.jpg")这个不就直接可以显示JPG图片吗 那还用下面的程序吗， 我的目的就是把JPG文件绑定到资源文件中 也就是能够和生成的exe文件一起移动后 还可以使用的那种 您能明白吗 求解释谢谢
Function UnRes(ByVal ResID As Integer, ByVal ResName As String, ByVal UnResPath As String)
Dim Temp() As Byte
Temp = LoadResData(ResID, ResName)
Open UnResPath For Binary As #2
Put #2, , Temp()
Close #2
End Function

Call UnRes(101, "CUSTOM", App.Path & "\" & "temp.jpg")
Me.Picture = LoadPicture(App.Path & "\" & "temp.jpg")

Answer 1

题主你好，可能刚才你没明白我的意思，如果是放在 RES 资源文件中想要直接调用的话，VB 只支持 BMP 格式的，如果非要调用 JPG 的话，需要把 JPG 从资源文件中释放到本地的硬盘目录下才可以。

我在这里构造了一个 UnRes() 的函数来释放文件。

Call UnRes(101, "CUSTOM", App.Path & "\" & "temp.jpg") 这句是把 101 这个文件释放到当前程序同一个目录下的 temp.jpg 里。

Me.Picture = LoadPicture(App.Path & "\" & "temp.jpg") 然后再载入这张图片。

如果题主不想这种先释放到本地，再载入的话只能用 BMP 来实现，具体方法：
Me.Picture = LoadResPicture(101, 0)

Answer 2

1、如果你的图片只有几个，可以在程序中新建一个窗体，在这个窗体中放置几个Picture，分别放置你的图片，然后在需要的窗体调用即可。
2、如果你的图片特别多，只能采用移植图片文件夹或将图片用二进制数据存储在数据库中的方法，否则你的程序在其他电脑上是无法显示图片的。

追问

二进制数据存储在数据库中的方法 是怎么操作呢 有代码吗 麻烦给个 谢谢最好详细点的

追答

你的数据库是什么数据库？数据库不同，代码不一样。