如listview的单击事件代码如下
Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
If lvw.Current IsNot Nothing Then
Forms("窗口3").Show
End If
如有listview控件的窗口,加载后执行事件代码
Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
lvw.Groups.Clear() '清除原来的分组
lvw.Rows.Clear() '清除原来的行
lvw.Images.Clear() '清除原来的图片
lvw.View = ViewMode.LargeIcon '用大图标模式
Dim gps() As String = {"欧洲","亚洲","非洲"} '定义分组名称
Dim nms() As String = {"中国","德国","英国","日本","俄罗斯","法国","埃及","利比亚","赞比亚"} '定义标题
Dim ics() As String = {"China","Germany","UK","Japan","Russia","France","Egypt","Libya","Zambia"} '定义图标键值
For Each gp As String In gps
Dim vg As WinForm.ListViewGroup = lvw.Groups.Add() '增加分组
vg.Name = gp '指定分组名称
vg.Text = gp & "国家" '指定分组标题
Next
For i As Integer = 0 To nms.Length - 1
lvw.Images.AddImage(ics(i),ics(i) & ".ico", ics(i) & "48.ico") '添加代表这个国家的小图标
Dim r As WinForm.ListViewRow = lvw.Rows.Add() '增加一行
r.Text = nms(i) '指定标题
r.ImageKey = ics(i) '指定图标键值
Select Case nms(i) '指定各个国家所属的分组
Case "德国","英国","俄罗斯","法国"
r.Group = "欧洲"
Case "中国","日本"
r.Group = "亚洲"
Case "埃及","利比亚","赞比亚"
r.Group = "非洲"
End Select
Next
所有小旗按钮单击,只显示窗口三;小旗是listview中显示的按钮,应该是单击不同小旗按钮,打开不同窗口如窗口四、窗口五窗口六,才导航;
咋改代码?
单击9个国家不同的小旗按钮,就打开分别不同的窗口
[此贴子已经被作者于2015/5/29 23:33:24编辑过]