VB2008怎么制作DLL
我用VB2008作了一个cxb2.DLL，用regsvr32注册时失败，显示“模块cxb2.DLL已加载，但找不到入口点DllregisterServer。请确保cxb2.dll为有效的Dll或OCX文件，然后重试”cxb2.dll源程序代码不多
Public Class cxb4
Public Function test(ByVal returnOBJ As Autodesk.AutoCAD.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?
页:
[1]