大航海2琥珀:VB 调用的问题

来源:百度文库 编辑:神马品牌网 时间:2024/03/29 13:29:59
我对VB接触不深,请问,VB里怎样把一部分源码存储为另外一个文件,但是程序编译后,运行程序,程序会去那个文件读取那部分需要的代码。

一定能实现的,我手上有这样的程序,但是不知道是怎么做的

他是把程序的一些 public function 存为了 xsp 文件,存在程序所在目录下,在程序编译后,我运行程序,到了需要那部分代码的时候,程序会去那个 xsp 文件里找出需要的那部分。

请问这是怎么实现的?????

我打开他的XSP文件,里面全是public function

<%--
'入库脚本开始
'取分类ID,不存则自动增加
Public Function getClassID(ByVal sClassName)
'sClassName 指大分类名称
'如:女歌手,男歌手
Dim strSQL
Call CheckObjRec
strSQL = "select * from sclass where sclass='" & sFilter(sClassName) & "'"
With objRec
objRec.Open strSQL, objConn, 1, 3
'条件开始
If .EOF Then
lblInfo.Caption = "分类:[" & sClassName & "]在库中不存在,自动添加!"
.AddNew
.Fields("sclass") = sClassName
.Fields("classid") = 1
.Update
.Close
'=======================================
'取出新增分类的id
'=======================================
strSQL = "select Max(SClassid) as SClassid from sclass"
.Open strSQL, objConn, 1, 1
End If
'条件结束
getClassID = .Fields("sclassid") '分类id号
.Close
End With
lblInfo.Caption = "分类ID取出成功:" & Get_TypeID
End Function
--%>

就这样,请问这怎么做到的?

你可以把那个程序发给我吗?
hjcvb@163.com

封装成Active.dll不行吗。