动漫游戏cp排行榜腐向:VB-请教LISTVIEW 两问!

来源:百度文库 编辑:高考问答 时间:2024/05/04 22:48:38
Q1:我想把LISTVIEW1的信息记录到程序目录下的1.text
Dim aic As Integer
Open App.path & "1.TXT" For Output As #3
For aic = 0 To LISTVIEW1.ListItems.Count - 1
Print #3, LISTVIEW1.ListItems(aic) '←在这里出问题浏览
Next
Close #3

可是它说我超出边界,那是为什么?
________________________________________
Q2:先按找以下代码配置LISTVIEW1:
LISTVIEW1.ColumnHeaders.Add , , "名字", 1500
LISTVIEW1.ColumnHeaders.Add , , "岁数", 3260
LISTVIEW1.LabelEdit = lvwManual
LISTVIEW1.FullRowSelect = True
LISTVIEW1.HideSelection = False
LISTVIEW1.HideColumnHeaders = False
LISTVIEW1.View = lvwReport
-----
再点击按钮CMD1:
Dim Plus As ListItem
Set Plus = lvwPrss.ListItems.Add(, , "19岁(PS:这个为变量)")
lavs.SubItems(1) = "我的朋友名字不公开" '这个是固定的,名字全都是这个
----
怎样才能使这个岁数写到名字后面?
要求不改变LISTVIEW1的样式配置.

Q1,listitems是以1为边界的,aic=1 to listview1.listitems.count才对

Q2.
with lvwPrss.ListItems.Add
.text="名字"
.subItems(1)="19岁"
end with