vb 单击command使listbox记录下移一条
1个回答
展开全部
大概例子,没有细调试:
Private Sub Command1_Click()
If List1.ListIndex < List1.ListCount Then
List1.Tag = List1.List(List1.ListIndex)
List1.List(List1.ListIndex) = List1.List(List1.ListIndex + 1)
List1.List(List1.ListIndex + 1) = List1.Tag
List1.ListIndex = List1.ListIndex + 1
List1.Tag = ""
End If
End Sub
Private Sub Form_Load()
Dim i As Integer
For i = 1 To 9
List1.AddItem i
Next
End Sub
Private Sub Command1_Click()
If List1.ListIndex < List1.ListCount Then
List1.Tag = List1.List(List1.ListIndex)
List1.List(List1.ListIndex) = List1.List(List1.ListIndex + 1)
List1.List(List1.ListIndex + 1) = List1.Tag
List1.ListIndex = List1.ListIndex + 1
List1.Tag = ""
End If
End Sub
Private Sub Form_Load()
Dim i As Integer
For i = 1 To 9
List1.AddItem i
Next
End Sub
更多追问追答
追问
修改后可用。
如果让记录上移呢?再麻烦一下!
追答
Private Sub Command2_Click()
If List1.ListIndex > 0 Then
List1.Tag = List1.List(List1.ListIndex-1)
List1.List(List1.ListIndex-1) = List1.List(List1.ListIndex)
List1.List(List1.ListIndex ) = List1.Tag
List1.ListIndex = List1.ListIndex - 1
List1.Tag = ""
End If
End Sub
大概这样,没测试,你自己测试吧。
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询