Colors 根据另一个列表框值为一个列表框着色

Colors 根据另一个列表框值为一个列表框着色,colors,listbox,Colors,Listbox,我正在用visual basic 8构建一个程序来管理我的DVD收藏 我将一个文件读入listbox1,其中包含我的所有数据,其格式如下: DVD4数字的标题 闹鬼山上的房子1049 《步行死亡》第1季光盘12022 活死人之夜2044 死亡的黎明3011 我在你的坟墓上吐痰 我在listbox1中搜索减去最后4个数字的任何匹配项 匹配的标题被放入listbox2,4位数字被放入listbox3 我想给listbox2中的项目上色,其中listbox2中有一个3 如果我在标题中加上4位数字,我可

我正在用visual basic 8构建一个程序来管理我的DVD收藏 我将一个文件读入listbox1,其中包含我的所有数据,其格式如下: DVD4数字的标题 闹鬼山上的房子1049 《步行死亡》第1季光盘12022 活死人之夜2044 死亡的黎明3011 我在你的坟墓上吐痰

我在listbox1中搜索减去最后4个数字的任何匹配项 匹配的标题被放入listbox2,4位数字被放入listbox3 我想给listbox2中的项目上色,其中listbox2中有一个3

如果我在标题中加上4位数字,我可以使用这里的代码更改颜色

所以如果我搜索“死亡”,我会进入列表框2 《行尸走肉》第1季光盘1这是黑色的,因为它不是以3开头的 《活死人之夜》这是黑色的,因为它不是以3开头的 《死亡的黎明》此项将为绿色,因为listbox3中的值为3011

私有子ListBox1_DrawItemsender作为System.Object,e作为System.Windows.Forms.DrawItemEventArgs处理ListBox1.DrawItem e、 牵引地

If ListBox1.Items(e.Index).ToString() = "herp" Then

    e.Graphics.FillRectangle(Brushes.LightGreen, e.Bounds)
End If
e.Graphics.DrawString(ListBox1.Items(e.Index).ToString(), e.Font, Brushes.Black, New System.Drawing.PointF(e.Bounds.X, e.Bounds.Y))
e.DrawFocusRectangle()
端接头

上面的代码我在这个网站上找到,但我找不到如何使用两个列表框


很抱歉我解释得不好-我只是在玩visual basic-我在学校学习了fortran、cobol和RPGII

我一直在弄乱IF语句-发现我可以引用其他列表框,并且能够影响所讨论的列表框

如果MidListBox3.Itemse.Index.ToString为1,1=3,则

这样,它只看了四个数字中的第一个数字,如果点击了,可能会匹配列表框,只显示dvd的标题