主题：listview 控件的图片 默认在根目录里？

listview  控件的图片 默认在根目录里？能不能在指定目录中？

代码如下

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
lvw.Groups.Clear() '清除原来的分组
lvw.Rows.Clear() '清除原来的行
lvw.Images.Clear() '清除原来的图片
lvw.View = ViewMode.LargeIcon '用大图标模式
lvw.Images.LargeSize = New Size(32,32)
Dim gps() As  String  = {"采购","销售","财务","仓库","查询"} '定义分组名称
Dim nms() As String = {"采购单","销售订单","付款","库存","销售查询","采购退货","收款"} '定义标题 次序不管先后 只要在就可以
Dim ics() As String = {"cgrkd","cgthd","cgfkd","xsskd","xsck","xsth","skd","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.Addlargeimage(ics(i), ics(i) & ".gif") '添加代表这个国家的小图标
    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 = "财务"
           

Dim picroad As String =" e.ProjectPath" & "\pic\"
For i As Integer = 0 To nms.Length - 1
   ' lvw.Images.Addlargeimage(ics(i), ics(i) & ".gif") '添加代表这个国家的小图标
     lvw.Images.Addlargeimage(ics(i),picroad & ics(i) & ".gif")
    Dim r As  WinForm.ListViewRow =  lvw.Rows.Add() '增加一行
    r.Text = nms(i) '指定标题

这样的图片路径设定后 图片没有显示出来 也不报错

可以了