主题：[求助]下拉列表框中，选中项目的背景色调整。

Dim drp As WinForm.DropDownBox = e.sender

If drp.DroppedDown Then '如果下拉窗口已经打开

    Dim trv As WinForm.TreeView = Forms("窗口1").Controls("TreeView1")

    If drp.Text > "" Then '如果内容为空

        For Each nd As WinForm.TreeNode In trv.AllNodes

            If nd.Text.IndexOf(drp.Text) >= 0 Then

                trv.StopRedraw()

                trv.SelectedNode = nd

                nd.EnsureVisible()

                trv.Select

                trv.ResumeRedraw()

                Exit For

            End If

        Next

    End If

End If