从包含vb6中特定单词的组合框中选择项目

Question

我的问题是我的VB6应用程序中有以下组合框：

For Each sectionNodeTCbte In sectionsTCbte
            idTC = sectionNodeTCbte.selectSingleNode("Id").Text
            cmbTipoCbte.AddItem (sectionNodeTCbte.selectSingleNode("Desc").Text)
            cmbTipoCbte.ItemData(cmbTipoCbte.NewIndex) = idTC
Next

这个组合框给我带来了：

• 文件1
• 文件2
• StyleSheet 1
• StyleSheet 2
• 文件3

我只需要显示带有“文档”一词的人。我应该使用if？或者我如何解决，任何想法？

感谢您自述，对不起我的英文！

Answer 1

使用其他变量尝试此If：

Dim description As String

For Each sectionNodeTCbte In sectionsTCbte
    description = sectionNodeTCbte.selectSingleNode("Desc").Text
    If InStr(description, "Document") > 0 Then
        idTC = sectionNodeTCbte.selectSingleNode("Id").Text
        cmbTipoCbte.AddItem description
        cmbTipoCbte.ItemData(cmbTipoCbte.NewIndex) = idTC
    End If
Next

Answer 2

两个建议，如果它们在你的情况下很重要

1. 如果列表中可能有“文档1”，而不是“文档1”，则应使用vbTextCompare忽略该情况。
2. 如果您只想要以“Document”开头的项目，可以检查InStr（）= 1.使用InStr（）＆gt; 0对于“本文档”是正确的，您可能不需要。

如果InStr（描述，“文档”，vbTextCompare）= 1那么