VB2008怎么制作DLL

[复制链接]

xiguao

15 主题	34 帖子	6 银币

初露锋芒

Rank: 3 Rank: 3 Rank: 3

铜币: 94

发消息

发表于 2012-1-6 10:17:00 | 显示全部楼层 |阅读模式

我用VB2008作了一个cxb2.DLL，用regsvr32注册时失败，显示“模块cxb2.DLL已加载，但找不到入口点DllregisterServer。请确保cxb2.dll为有效的Dll或OCX文件，然后重试”
cxb2.dll源程序代码不多
Public Class cxb4
Public Function test(ByVal returnOBJ As Autodesk..Interop.Common.IAcadEntity) As Autodesk.AutoCAD.Interop.Common.IAcadEntity
      '转到图层
      Dim Aa As Autodesk.AutoCAD.Interop.AcadApplication
      Aa = GetObject(, "AutoCAD.Application")
Dim Ad As Autodesk.AutoCAD.Interop.AcadDocument
      Ad = Aa.ActiveDocument
Ad.SetVariable("clayer", returnOBJ.Layer)
Ad.SetVariable("CELTYPE", returnOBJ.Linetype)
Ad.SetVariable("CECOLOR", CStr(returnOBJ.color))
Ad.SetVariable("CELTSCALE", returnOBJ.LinetypeScale)
Ad.SetVariable("CELWEIGHT", returnOBJ.Lineweight)
test = returnOBJ
End Function
End Class
如何制作一个DLL?

使用道具举报