怎样会的listview1的连接地址

怎样会的listview1的连接地址

楼主的问题我知道了
这个需要设置下listview的一个属性，你是不是每次点击按钮都会出现第一行的内容
这是因为当窗体启动时，listview默认是第一行选中的，

我的代码

'程序senrea.pers
'作用选择选中项目
'说明：你说的直接添加不能实现，因为listview总是会默认最先一项选中的，所以
'你必须添加复选框





Private Sub Command1_Click()
Dim i
Dim Sel As Boolean
Sel = False
For i = 1 To 10
If ListView1.ListItems.Item(i).Checked = True Then
  Sel = True
  MsgBox ListView1.ListItems(i).Text
  Exit Sub
End If
Next

If Sel = False Then MsgBox "没有项目被选中啊！"
End Sub

Private Sub Form_Load()
Dim i As Integer
For i = 1 To 10
 ListView1.ListItems.Add , , i
Next
End Sub


'缺点：就是当复选框复选的时候，只提示第一项
'你可以自己改进下