Saging 发表于 2009-3-25 23:53:00

[求助]在VB.NET中如何使用过滤器?(已解决)

代码如下:
            m_CAD_docu = m_CAD_app.Documents.Open(ListBox1.Items(i))'打开文件
            m_CAD_Sels = m_CAD_docu.SelectionSets.Add("EndSelections")'建立选择集
            m_Filters(0) = 1 '建立过滤器
            If CheckBox3.Checked Then '全字匹配
                FilterData(0) = TextBox2.Text
            Else
                FilterData(0) = "*" & TextBox2.Text & "*"
            End If
            S_Filter = m_Filters
            S_FData = FilterData
            m_CAD_Sels.Select(.AcSelect.acSelectionSetAll, , , S_Filter, S_FData)'选择对象
      在这一句就通不过,提示过滤器的类型错误?是哪里不对?

Saging 发表于 2009-3-26 15:21:00

找到问题了。S_Filter只能声明为SHORT类型。
页: [1]
查看完整版本: [求助]在VB.NET中如何使用过滤器?(已解决)