ListView 对象（报表模式） 的简单扩展

• 下载源代码文件（包含演示）- 50.9 Kb

引言

您好，感谢您下载此实用程序。Lvx（Listviewextra）是 Windows 控件中常规 ListView（详细模式）的一个简单扩展。此增强功能的目的是按任何列排序、生成打印输出、打开和保存、选择、添加和删除项目，所有都在一个控件中。

我已经将实际的 ListView、PageSetupDialog 和 PrintDocument 对象对您透明（即：您仍然可以访问所有通常的方法）。因此，您可以实现自己的代码或使用额外的代码。

*所选项目索引从控件的 lvx.index 返回。

示例（供您在代码中实现）

Private Sub Delete_Click(ByVal sender _
  As System.Object, ByVal e As System.EventArgs) Handles Delete.Click

    Lvx1.delete(lvx1.index)
End Sub

addcolumn(text As String, width As Integer, datatype As String)

注释

1. 列文本对齐方式默认为左对齐，小数除外。
2. 在初始化控件时，您必须提供 3 种数据类型
   • "s" 代表 String
   • "d" 代表 Decimal
   • "dt" 代表 Date

*** 在构建控件时，这种预先赋值对于排序是必要的。

示例

Sub columns()
    Lv.addcolumn("date", 80, "dt")
    Lv.addcolumn("payee", 80, "s")
    Lv.addcolumn("category", 80, "s")
    Lv.addcolumn("Description", 80, "s")
    Lv.addcolumn("details", 80, "s")
    Lv.addcolumn("Expense", 80, "d")
    Lv.addcolumn("Income", 80, "d")
End Sub

* fillwith（包含项目及其子项的数组）

示例

Structure itm
    Dim dates As Date
    Dim payee As String
    Dim expense As Decimal
    Dim income As Decimal
End Structure

Sub additem()
    Dim item As itm
    item.dates="01/01/2005"
    item.payee="microsoft"
    item.expense=£1050.99
    dim t(4) as string
    t(1)=item.dates.tostring
    t(2)=item.payee.tostring
    t(3)=item.expense.tostring
    t(4)=item.income.tostring
    lvx1.fillwith(t)
End Sub

请勿使用 t(0)。

注意：t(0) 将由 lvx 分配项目的索引。

• spreview

  是 show print preview（显示打印预览）的缩写。

• open (filename.txt As String)

  文件名必须具有“txt”扩展名。

• save (filename.txt As String)

  文件名必须具有“txt”扩展名。

• print

  打印 ListView 的内容。

注意：为了在包含的演示中显示或删除所选项目的字段，我已将上下文菜单与 ListView 相关联。

我希望我的工作对您有所帮助。 任何反馈或想法都将不胜感激。 请通过 london_man_46@yahoo.co.uk 给我的电子邮件。 谢谢。