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

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

本帖最后由 作者 于 2009-3-30 13:38:51 编辑 <br /><br /> <p>代码如下:</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; m_CAD_docu = m_CAD_app.Documents.Open(ListBox1.Items(i))'打开文件</p><p><br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; m_CAD_Sels = m_CAD_docu.SelectionSets.Add("EndSelections")'建立选择集</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; m_Filters(0) = 1 '建立过滤器<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If CheckBox3.Checked Then '全字匹配<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; FilterData(0) = TextBox2.Text<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; FilterData(0) = "*" &amp; TextBox2.Text &amp; "*"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</p><p><br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; S_Filter = m_Filters<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; S_FData = FilterData<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <font style="BACKGROUND-COLOR: #ffff00;">m_CAD_Sels.Select(AutoCAD.AcSelect.acSelectionSetAll, , , S_Filter, S_FData)'选择对象</font></p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 在这一句就通不过，提示过滤器的类型错误？是哪里不对？</p>

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

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