主题：用listview做导航界面

前面n人告诉你n个方法，我做的例子就告诉你如何显示单击的项目的标题（这是单击不同项目打开对应窗口的基础）

设计好对应的窗口，将Treeview的Click事件如下修改，根据标题打开对应的窗口:

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
Select Case lvw.Current.Text
    Case "英国"
        Forms("窗口名称1").Open()
    Case "德国"
        Forms("窗口名称2").Open()
    Case "中国"
        Forms("窗口名称3").Open()
    Case "日本"
        Forms("窗口名称4").Open()
    Case "俄罗斯"
        Forms("窗口名称5").Open()
    Case "法国"
        Forms("窗口名称6").Open()
    Case "埃及"
        Forms("窗口名称7").Open()
    Case "利比亚"
        Forms("窗口名称8").Open()
    Case "赞比亚
        Forms("窗口名称9").Open()
End Select

请教，

好像，ListViewRow的EnsureVisible() 方法没起作用？开发版

如下代码：

If lvw.Rows.Contains(_功能)  Then '判断是否存在名为全局变量“_功能”对应值的行
    lvw.Rows(_功能).Selected = True  '选定名为全局变量“_功能”对应值的行
   

    Dim int As Integer
    Int = lvw.Rows(_功能).Index  '使得全局变量“_功能”对应的ListViewRow可见

    lvw.Rows(Int).EnsureVisible() '自动滚动ListView使得“_功能”对应行可见
   
End If