19888.html
来自「VB技巧问答10000例 VB技巧问答10000例」· HTML 代码 · 共 23 行
HTML
23 行
<html> <head> <title>Re: 小琳.....help me......thanks！</title> </head> <body bgcolor="#FFFFFF" vlink="#808080"> <center> <h1>Re: 小琳.....help me......thanks！</h1> </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by <a href="mailto:luo570@ms31.hinet.net">小琳</a> on October 10, 1999 at 17:34:54:<p>In Reply to: <a href="19841.html">小琳.....help me......thanks！</a> posted by sos gril on October 09, 1999 at 01:08:48:<p>: 如何将listview1中的所有内容全部加入到listview2中呢(不是一项一项的点选加入喔!)?又如何将listview中的内容一次全部移除掉呢? <br>: 可否直接写段范例程式以供参考，因为本人实在是不太会写程式，须有例子做辅助．．．．Thanks！ <p>:::"饭粒"如下：（二个Listview及二个按钮）<br>Option Explicit<p>Private Sub Command1_Click()<br> Dim i As Integer, j As Integer<br> <br> j = ListView1.ListItems.Count<br> For i = 1 To j<br> With ListView2<br> .ListItems.Add , , ListView1.ListItems(i).Text<br> .ListItems(i).ListSubItems.Add , , ListView1.ListItems(i).ListSubItems(1).Text<br> End With<br> Next i<br>End Sub<p>Private Sub Form_Activate()<br> With ListView1<br> .ColumnHeaders.Add , , "姓名"<br> .ColumnHeaders.Add , , "内容"<br> .ListItems.Add , , "aaa"<br> .ListItems.Add , , "bbb"<br> .ListItems.Add , , "ccc"<br> .ListItems(1).ListSubItems.Add , , "a1"<br> .ListItems(2).ListSubItems.Add , , "b1"<br> .ListItems(3).ListSubItems.Add , , "c1"<br> End With<br> With ListView2<br> .ColumnHeaders.Add , , "姓名"<br> .ColumnHeaders.Add , , "内容"<br> End With<br>End Sub<p>Private Sub Command2_Click()<br> ListView2.ListItems.Clear<br>End Sub<br><br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 19888--></ul><!--end: 19888--><br><hr size=7 width=75%><p></body></html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?