VSTO中关于ListView的应用

andysky · 发表于 2018-11-10 10:51

源代码：

ListView的应用.rar (261.54 KB, 下载次数: 104) 演示ListView的应用，从表中提取已及格的人员息信，罗列在窗体中。效果如下：

图片.jpg

用ListView不用列表框，是因为ListView可以显示表格线及标题，比较美观。

补充内容 (2019-2-2 13:50):
10楼升级了

02761752696 · 发表于 2018-11-10 11:43

谢谢版主分享，请问怎么引用啊

liucqa · 发表于 2018-11-13 18:31

没什么用。

zsmtch · 发表于 2018-11-30 09:16

罗版，有没对listview中item点击事件的示例？试了好久没做出来

andysky · 发表于 2018-11-30 11:42

zsmtch 发表于 2018-11-30 09:16
罗版，有没对listview中item点击事件的示例？试了好久没做出来

Private Sub ListView1_Click(sender As Object, e As System.EventArgs) Handles ListView1.Click '读写ListView1
      MsgBox(ListView1.SelectedItems.Item(0).Text) '获取第一列的值
      MsgBox(ListView1.SelectedItems.Item(0).SubItems(1).Text) '获取第二列的值
      ListView1.Items.Item(1).SubItems(2).Text = "800" '修改第二行的第三列(下标为0)
      ListView1.Items.Item(0).SubItems(0).Text = "800" '修改第1行的第1列(下标为0)
      ListView1.Items.Item(1).Remove() '删除第二行
End Sub

你想要的都有了

zsmtch · 发表于 2018-11-30 15:45

andysky 发表于 2018-11-30 11:42
Private Sub ListView1_Click(sender As Object, e As System.EventArgs) Handles ListView1.Click ' ...

非常感谢，终于OK了。

andysky · 发表于 2018-12-21 09:22

zsmtch 发表于 2018-11-30 15:45
非常感谢，终于OK了。

VSTO中数组以及集合的下标是0，不像VBA大多数情况都是1开始
当然VSTO中也有特殊情况下，从1开始的，极少

zsmtch · 发表于 2018-12-26 10:34

andysky 发表于 2018-12-21 09:22
VSTO中数组以及集合的下标是0，不像VBA大多数情况都是1开始
当然VSTO中也有特殊情况下，从1开始的，极少

好的，谢谢，明白了。

KS0810203 · 发表于 2019-1-23 20:44

不错学习一下。

andysky · 发表于 2019-2-2 13:49

本帖最后由 andysky 于 2019-2-2 13:56 编辑

改进一下

ListView的应用.rar (257.5 KB, 下载次数: 96)

1.增加单击列标题排序的功能
2.排序时，在标题中指定当前的排序方式3.每列的宽度会根据内容的长度自动调整，即宽度自适应。

如果只是按首列排序的话，用不到类模块，只需要简单一句代码就好：
If ListView1.Sorting = Windows.Forms.SortOrder.Ascending Then ListView1.Sorting = Windows.Forms.SortOrder.Descending Else ListView1.Sorting = Windows.Forms.SortOrder.Ascending

		自动登录	找回密码
密码			免费注册

[分享] VSTO中关于ListView的应用