如何向listview控件中添加信息和输出信息.txt

VB技巧问答10000例 VB技巧问答10000例

要 添 加 信 息 ， 可 以 先 用 ListItems.Add方 法 ， 如 ： 
     Dim l As ListItem 
     Set l = ListView1.ListItems.Add(2, , Text1.Text) 
    这 里 2是 加 入 的 位 置 ， 如 果 添 加 到 末 尾 ， 可 以 省 略 这 个 参 数 。 
    如 果 有 多 个 列 ， 可 以 使 用 SubItems数 组 添 加 其 他 列 ， 如 
    l.SubItems(1) = Text2.Text 
    l.SubItems(2) = Text3.Text 
    类 似 的 也 可 以 返 回 信 息 到 文 本 框 没 ， 如 ： 
     Dim l As ListItem 
     Set l = ListView1.ListItems(2) 
     Text1.Text = l.Text 
     Text2.Text = l.SubItems(1) 
     Text3.Text = l.SubItems(2) 
    如 果 要 删 除 某 一 行 ， 可 以 使 用 
    ListView1.ListItems.Remove 行 号 
    这 样 后 面 的 行 自 然 替 补 上 去 。 
<END>