2个回答
展开全部
想要嵌入,必须要添加自定义资源,方法如下:
1.在菜单栏选择外接程序——外接程序管理器——选中VB6资源编辑器,在右下角加载行为中勾选“在启动中加载”和“加载/卸载”后点击确定,在工具栏里会增加“手抓魔方”按钮——单击按钮打开“VB 资源编辑器”
2.在“VB 资源编辑器”里单击“添加自定义资源”按钮打开对话框:“打开一个自定义资源”,选择你需要的"hiv"文件即可
这样之后,调用资源需要用到LoadResDeta语句
下面是代码参考:
Private Sub Form_Load()
Dim TempData() As Byte
TempDataPath = "f:\1.hiv" '引号里你可以自定义盘符和路径作为资源的存储地址
TempData = LoadResData(101, "CUSTOM") '这是那个文件编号,具体可以自己在整合资源的时候更改,默认是101与CUSTOM
Open TempDataPath For Binary Access Write As #1
Put #1, , TempData
Close #1
End Sub
输入以上代码,程序一运行f盘下就会出现你的那个hiv文件,是“1.hiv”文件
希望以上代码对你有帮助
1.在菜单栏选择外接程序——外接程序管理器——选中VB6资源编辑器,在右下角加载行为中勾选“在启动中加载”和“加载/卸载”后点击确定,在工具栏里会增加“手抓魔方”按钮——单击按钮打开“VB 资源编辑器”
2.在“VB 资源编辑器”里单击“添加自定义资源”按钮打开对话框:“打开一个自定义资源”,选择你需要的"hiv"文件即可
这样之后,调用资源需要用到LoadResDeta语句
下面是代码参考:
Private Sub Form_Load()
Dim TempData() As Byte
TempDataPath = "f:\1.hiv" '引号里你可以自定义盘符和路径作为资源的存储地址
TempData = LoadResData(101, "CUSTOM") '这是那个文件编号,具体可以自己在整合资源的时候更改,默认是101与CUSTOM
Open TempDataPath For Binary Access Write As #1
Put #1, , TempData
Close #1
End Sub
输入以上代码,程序一运行f盘下就会出现你的那个hiv文件,是“1.hiv”文件
希望以上代码对你有帮助
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询