'在一个公共类模块中有以下代码
Public Declare Function RegisterCallback1 Lib "XXX.DLL" (ByVal iAddress As Long)
Public Declare Function Start1 Lib "XXX.DLL" ()
Public Declare Function Stop1 Lib "XXX.DLL" ()
Public dev As Device
Public Function savePic(ByVal cd1 As C ......
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub Form_Load()
Dim l As String
Dim sql As String
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source =F:\scores.mdb; pwd=q1"
sql = ......
有这么段程序：function sum(sdata) as string
Dim（17）as integer,zh1 as interger
for k=1 to len(sdata)-1
zh(k)=val("&H"+mid(sdata,k,2)):zh1=zh1+zh(k)
next k
sum=right("00"+hex(zh1),2)
end function
是用来计算校验和的，其中的zh(k)=val("&H"+mid ......
DLL文件附带 .h .lib 文件
复制到工程文件夹目录后，使用VB--工程（菜单）----引用---浏览---选择目标DLL文件 提示：不能将引用加入指定文件
使用 运行--regsvr32 提示：已加载XX.Dll,但没有找到DllRegisterServer输入点。 无法注册这个文件。
我该怎么做才好？需要分析那个.h文件吗？里面都是C语言的，看不懂亚
ByVal ......
转帖，请勿鄙视！
与你有用者Mark之，与你无用者请一笑而过。
-------------------------------------------
VB启动控制面板大全
模块： control.exe
命令： rundll32.exe shell32.dll,Control_RunDLL
结果： 显示控制面板窗口。
例子：
Dim x
x = Shell( ......
刚建了一个群:中山VB编程(105787219)
有在中山及中山周边的程序员请加入.大家一起探讨问题.合作项目.
尽管俺不是中山的，也进来蹭分……
佛山的行吗,广州的行吗?
友情支持
回复内容太短了！
帮顶～～～～～～～～～～～～
帮顶
非中山的路过,友情帮顶
是什么项目呀？
东莞的行不？转� ......
最新文章 : vb