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

Saging

代码如下:

            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(AutoCAD.AcSelect.acSelectionSetAll, , , S_Filter, S_FData)'选择对象

      在这一句就通不过，提示过滤器的类型错误？是哪里不对？

Saging

找到问题了。S_Filter只能声明为SHORT类型。