|
发表于 2007-12-26 16:15:20
|
显示全部楼层
原帖由 hexinchun 于 2007-12-26 10:31 发表
Private Sub Command1_Click()
'功能:测试加载jpg图片
'先要引用:Microsoft ActiveX Data objects 2.8 library
'貌似在资源编辑器里没有jgp格式的,只有添加到自定义文件里
'然后设置 类 ...
经过对魔灵兄程序的指导,对其进行精华吸收,总结读自定义格式,呵呵!
- Dim Filenumber As Long
- Dim file() As Byte
-
- file = LoadResData(8, "jpg")
-
- Filenumber = FreeFile
-
- Open App.Path & "\test.jpg" For Binary As #Filenumber
- Put #Filenumber, , file
- Close #Filenumber
- Image1.Picture = LoadPicture(App.Path & "\test.jpg")
复制代码
上面这段代码简单多了,希望大家都吸收!
格式:(其主要思想是通过二进制数据的操作)
'由于返回的是byte
Dim file() As Byte
file = LoadResData(标识符id, 你定义的格式)
Filenumber = FreeFile
Open App.Path & "\原文件格式的名称" For Binary As #Filenumber
Put #Filenumber, , file
Close #Filenumber
’下面就是你要操作的内容,比如加载图片到图片框;调用exe等等; |
评分
-
查看全部评分
|