海克斯康三坐标测量技术官方论坛

注册

 

发新话题 回复该主题

请教VB编程 [复制链接]

1#
初学VB2008,是测量数据导入EXCEL,借用了论坛上发的代码,还请见谅!
        Dim app As PCDLRN.Application
        Dim cmds As PCDLRN.Commands
        Dim cmd As PCDLRN.Command
        Dim part As PCDLRN.PartProgram

        app = CreateObject("PCDLRN.Application")
        part = app.ActivePartProgram
        cmds = part.Commands

        For Each cmd In cmds
           If cmd.Type = DIMENSION_TRUE_START_POSITION
cmds 和  DIMENSION_TRUE_START_POSITION为什么上面的语句在 VB6.0上能通过,在VB2008上确出现错误?  cmds错误为“表达的类型为PCDLRN.Commands,该类型不是集合类型。”
DIMENSION_TRUE_START_POSITION提示为未声明 , 然我用CONST声明,也声明不了!请高手帮忙解决!万分感谢!
工具弄出来后,会分享给大家!
分享 转发
交流才有进步!因为专注,所以专业!
QQ:410855633
TOP
2#

发表新帖,提示出现错误。于是我一而在再而三的发,结果发了3个一样的贴!为了环保,我一而再的删。。。!  不转移话题了!还请高手指点一二!
交流才有进步!因为专注,所以专业!
QQ:410855633
TOP
3#

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim pcapp As PCDLRN.Application
        Dim pcpart As PCDLRN.PartProgram
        Dim pccmds As PCDLRN.Commands
        Dim pccmd As PCDLRN.Command
        pcapp = CreateObject("pcdlrn.application")
        pcpart = pcapp.ActivePartProgram
        pccmds = pcpart.Commands
        For ii = 1 To pccmds.Count
            pccmd = pccmds.Item(ii)
            If pccmd.IsDimension Then
                If pccmd.Type = PCDLRN.OBTYPE.DIMENSION_START_LOCATION Then
                    你的代码...
                End If
            End If
        Next
    End Sub
TOP
4#

顶一下。。。。
Best regards!!!!
QQ:56514053
E-mail:wkwk_1984@163.com
TOP
5#

回复 3楼arttk的帖子

  在此特别感谢版主 arttk 长期以来对我的帮助!
交流才有进步!因为专注,所以专业!
QQ:410855633
TOP
6#

“表达的类型为PCDLRN.Commands,该类型不是集合类型。”
先声明:
Dim cmds As Object
....
cmds = part.Commands
....
TOP
7#

楼上果然是高手,用object确实可行。但cmds的方法和属性的联想不太好使,要对语言相当熟才可,呵呵,感谢分享!
TOP
8#

顶一下。。。。
Best regards!!!!
QQ:56514053
E-mail:wkwk_1984@163.com
TOP
9#

回复 6楼liq的帖子

感谢!马上去试下!
交流才有进步!因为专注,所以专业!
QQ:410855633
TOP
10#

好东西,好好学习才是
激情飞扬,挥舞青春
TOP
发新话题 回复该主题