怎样在VB listview 中添加 图标而不是图片？

以下是LISTVIEW的现实图标实例，添加一个LISTVIEW,一个imagelist控件，复制代码即可

ListView1.View

=

lvwIcon

'ListView1.View

=

lvwList

'ListView1.View

=

lvwReport

'ListView1.View

=

lvwSmallIcon

Set

ListView1.Icons

=

ImageList1

ListView1.ListItems.Add

1,

"实例",

"实例",

1

使用Adapter的notifyDataSetChanged方法会回调Adapter的getView方法，你可以在这个getView方法里添加标志位，只有是当前执行的Item才显示图标，这个图标可以每个Item都有，然后其他的GONE，当然这种方法比较浪费资源；也可以执行到这个Item时向这个Item动态添加一个ImageView，执行完时再移除这个ImageView.

PathFileName

=

OpenDialog1->FileName

Edit1->Text

=

ExtractFileName(PathFileName)

Edit2->Text

=

PathFileName

TIcon

*Icon

WORD

IconIndex

Icon

=

new

TIcon//问题出在这一步，你没有为Icon申请一个地址。记得要释放

Icon->Handle

=

ExtractAssociatedIcon(Application->Handle,PathFileName.c_str(),

&IconIndex)

ListView1->LargeImages->AddIcon(Icon)

//另外，ListView1的LargeImage属性要确实连接得有TImageList控件，否则也没有空间装载AddIcon()函数也会失败。

---