C-free 5.0 建对话框程序工程时 怎么进资源编辑器???
答案:2 悬赏:20 手机版
解决时间 2021-03-11 13:32
- 提问者网友:龅牙恐龙妹
- 2021-03-11 02:14
或者说C-free 5.0 要怎么内嵌音乐在exe程序中??
最佳答案
- 五星知识达人网友:酒醒三更
- 2021-03-11 02:51
用resed软件
全部回答
- 1楼网友:老鼠爱大米
- 2021-03-11 03:26
用vb实现“绿色”软件
现在很流行“绿色”软件,不须要什么安装程序只要一个 exe 文件就可以运行程序了,而在 vb 的编程中有许多地方需要调用第三方的控件(非常难用 api 函数搞定所有的功能),这就须要制做一个安装程序,把所需要的控件、dll 文件或其他文件打包进去了,那么在 vb 中怎么用变通的方法实现“绿色”软件呢,请看示例:
1、主程序.exe
用 vb6.0 编写的程序,调用了 winsock 控件,要是在没有安装vb5.0、6.0 的机器上运行则会出现错误,导致程序运行失败,这时如果按一般的方法,唯有把这个程序用vb5.0、6.0 的安装程序进行打包,不然唯有用用2的方法来解决了。
2、注册程序.exe
用 vb6.0 编写的程序,使用资源文件的方法,把 winsock 控件封装到本程序中,在运行主程序.exe之前,先运行本程序,通过api函数getsystemdirectory取得系统的winddows\system的目录,然后把winsock控件复制到该目录下,并用shell来完成控件的注册。
⑴启动 vb6.0,在“外接程序→外接程序管理器”中加载“visual basic 6 资源编辑器”
⑵在 vb 资源编辑器窗口中,点击“添加自定义资料”,增加 winsock 控件(c:\winddows\system\nsck.ocx),再双击刚刚创建的自定义资源,弹出”编辑属性”窗口,定义如下:
类型: “ocx”
标识号: 101
语言: 中文(中国)
⑶保存资源文件,写如下代码:
option explicit
private declare function getsystemdirectory lib "kernel32" alias "getsystemdirectorya" (byval lpbuffer as string, byval nsize as long) as long
const max_path = 260 注释:定义足够长的字符串
private sub form_load()
dim tempfile() as byte
dim filenum as integer
dim tempdir as string
tempdir = getwinsysdir 注释:自定义函数取得系统的 winddows\system 的目录
tempfile = loadresdata(101, "ocx") 注释:用以从资源 (.res) 文件装载若干可能类型的数据,并返回一个 byte 数组
filenum = freefile
open tempdir
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯