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 = "财务"
           

 可以，指定的时候，加上路径，比如

lvw.Images.Addlargeimage(ics(i), "d:\\" & ics(i) & ".gif") \'添加代表这个国家的小图标

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) \'指定标题

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

可以了