如题。谢谢。
解决方案 »
- VB如和判断TRACERT执行完成并生成了文件.
- 关于记录更新,求一sql语句
- TreeView控件,我如何判断用户点击的是最后一级别的节点以及取得其父亲节点和爷爷节点的值?
- DAO:用DbGrid控件连Data,查出一条记录后,再手工插入记录,提示:不能更新,数据库或对象为只读。
- 我想实现这样得极具有挑战性的功能,请高人指点
- 请问:在VB中如何方便的将access数据库中一个表的数据拷贝到另一个表中?
- 这个送女朋友好吗
- 关于Active Skin
- 为什么用GLOBAL不能声明全局变量,而PUBLIC却可以.请指点一二,有分的...
- 怎么会得不到edit的句柄呢?
- 求一个类似摇奖的随机先取数据库中的数据的代码,本人只有10分了,谢谢
- 想求一段代码求出当前的月份
Dim Ocx() As Byte 'OCX是个Btye类型的数组
Dim Counter As Long
Ocx = LoadResData(101, "CUSTOM") '将自定义资源中101号资源读入数组OCX
'注意,微软的帮助中对加载自定义资源的说明有错误,自定义资源标识为"CUSTOM"而不是帮助所说的数字10 If Right(App.Path, 1) = "\" Then '读取程序所在路径,判断是否为根目录并分别处理
'程序在根目录下
If Dir(App.Path & "CoolToolBar.ocx") = "" Then '程序路径下有无控件,无则生成控件
'以二进制方式写(生成)控件(CoolToolBar.ocx)到主程序所在的目录
Open App.Path & "CoolToolBar.ocx" For Binary As #1
For Counter = 0 To OCXSIZE - 1 '注意因为从0 Byte开始因此以文件大小 - 1Byte 为终值
Put #1, , Ocx(Counter)
Next Counter
Close #1
End if
Else
'程序不在根目录下
If Dir(App.Path & "\CoolToolBar.ocx") = "" Then '程序路径下有无控件,无则生成控件
'以二进制方式写(生成)控件(CoolToolBar.ocx)到主程序所在的目录
Open App.Path & "\CoolToolBar.ocx" For Binary As #1
For Counter = 0 To OCXSIZE - 1 '注意因为从0 Byte开始因此以文件大小 - 1Byte 为终值
Put #1, , Ocx(Counter)
Next Counter
Close #1
End if
End if
Form1.Visible = True '主程序所用控件已经生成,显示主窗体,进入主程序。
End Sub 注意:将以上代码作为一个模块添加到工程中,并在工程-工程属性设置中将启动对象选为Sub Main,即上面的脱壳代码。然后编译生成EXE文件,将该EXE文件拷贝到其他没有安装所用控件的计算机上运行一下看看是否实现了控件携带之金蝉脱壳。如果是那么OK!以上为使用一个控件的情况,使用多个控件方法基本相同,不在赘述。