BDYCAD 发表于 2004-3-24 08:55:00

剛在學VBA, 把樓主的代碼拷下來, 搞了半天. 是這樣的效果吧! 呵呵!!


rscenter 发表于 2004-4-13 17:24:00

VERSION 1.0 CLASSBEGIN<BR>       MultiUse = -1       'True<BR>End<BR>Attribute VB_Name = "Curve"<BR>Attribute VB_GlobalNameSpace = False<BR>Attribute VB_Creatable = False<BR>Attribute VB_PredeclaredId = False<BR>Attribute VB_Exposed = False


斜的部分不能为红色，如何操作？？？？？

mccad 发表于 2004-4-13 18:28:00

rscenter发表于2004-4-13 17:24:00static/image/common/back.gifVERSION 1.0 CLASSBEGIN       MultiUse = -1       'TrueEnd        ...

<BR>必须整个文件用导入的方法，如果是拷贝，则前面这几行不必须拷贝。

rscenter 发表于 2004-4-14 16:10:00

也就是说：前面的代码不要了，包括：<BR><FONT color=#ff0000>VERSION 1.0 CLASS<BR>BEGIN<BR>       MultiUse = -1       'True<BR>End<BR>Attribute VB_Name = "VLAX"<BR>Attribute VB_GlobalNameSpace = False<BR>Attribute VB_Creatable = False<BR>Attribute VB_PredeclaredId = False<BR>Attribute VB_Exposed = False</FONT>



不过在运行的时候，出现错误，为什么，老是不通！出错在模块的第二段代码，如下：<BR><FONT color=#0000ff>        Set ObjCurve = New Curve</FONT>


出错提示为图片所示，谢谢指教。<A href="mailto:rscenter@tom.com" target="_blank" >rscenter@tom.com</A>


hojing7 发表于 2004-5-8 09:29:00

下載學習

莫名 发表于 2004-5-14 17:51:00

学习

ntchjie 发表于 2004-5-14 21:34:00

总是调试不成功，哪位能不能将调试文件发给我，谢谢了。


nt_jie@hotmail.com

yingxunxue 发表于 2004-5-19 10:47:00

Sub Example_GetInterfaceObject()<BR>                       ' This example returns top level object of another application.<BR>                       On Error GoTo ERRORHANDLER<BR>                       <BR>                       Dim poly As Object<BR>                       Set poly = ThisDrawing.Application.GetInterfaceObject("Polycad.Application")


ERRORHANDLER:<BR>                       MsgBox Err.Description, , "GetInterfaceObject Example"<BR>                       <BR>End Sub


这段程序怎么老是出现"加载应用程序出错"


请帮忙

yingxunxue 发表于 2004-5-19 10:54:00

请问为什么出现上面的问题,我是根据版主的程序来调试的.

yingxunxue 发表于 2004-5-19 10:55:00

下面是出错的图片
页: 1 [2] 3 4 5 6 7 8
查看完整版本: VLAX类及曲线操作