vb jpg图像怎么变成资源文件 怎么从资源文件里面调用到image中 、、、、有新的疑惑求解释
Picture1.Picture=LoadPicture(App.Path&"\1\"&"1.jpg")这个不就直接可以显示JPG图片吗那还用下面的程序吗,我的目的就是把...
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") 展开
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") 展开
展开全部
题主你好,可能刚才你没明白我的意思,如果是放在 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)
我在这里构造了一个 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)
来自:求助得到的回答
2013-09-06
展开全部
1、如果你的图片只有几个,可以在程序中新建一个窗体,在这个窗体中放置几个Picture,分别放置你的图片,然后在需要的窗体调用即可。
2、如果你的图片特别多,只能采用移植图片文件夹或将图片用二进制数据存储在数据库中的方法,否则你的程序在其他电脑上是无法显示图片的。
2、如果你的图片特别多,只能采用移植图片文件夹或将图片用二进制数据存储在数据库中的方法,否则你的程序在其他电脑上是无法显示图片的。
追问
二进制数据存储在数据库中的方法 是怎么操作呢 有代码吗 麻烦给个 谢谢最好详细点的
追答
你的数据库是什么数据库?数据库不同,代码不一样。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |