VB6 及 Excel Form 2.0中列錶框 如何實現上移 下移的操作

VB6 及 Excel Form 2.0中列錶框 如果實現上移 下移的操作

主要原理就是把當前項的值與上一項（上移）或下一項（下移）的值進行對調以實現列錶框項目上移或下調的目的

源創作者：tmtony

Private Sub cmdUp_Click()
Dim strCurrData As String
Dim strPreviousData As String
If lstQQ.ListIndex > 0 Then  '如果當前項不是第一項（因爲第一項就無法再上移瞭）
 lstQQ.Tag = lstQQ.List(lstQQ.ListIndex)   '把當前項的值臨時保存在Tag屬性裡
 strCurrData = lstQQ.ItemData(lstQQ.ListIndex)
 strPreviousData = lstQQ.ItemData(lstQQ.ListIndex - 1)

 lstQQ.List(lstQQ.ListIndex) = lstQQ.List(lstQQ.ListIndex - 1) '當前項賦值爲上一項
 lstQQ.List(lstQQ.ListIndex - 1) = lstQQ.Tag '上一項賦值爲當前項

 lstQQ.ItemData(lstQQ.ListIndex - 1) = strCurrData
 lstQQ.ItemData(lstQQ.ListIndex) = strPreviousData

 lstQQ.ListIndex = lstQQ.ListIndex - 1 '設上一項爲當前項
End If

End Sub



Private Sub cmdDown_Click()
Dim strCurrData As String
Dim strNextData As String
If lstQQ.ListIndex < lstQQ.ListCount - 1 Then '如果當前項不是最後一項（原理衕上Access中國） lstQQ.Tag = lstQQ.List(lstQQ.ListIndex) '把當前項的值臨時保存在Tag屬性裡 strCurrData = lstQQ.ItemData(lstQQ.ListIndex) strNextData = lstQQ.ItemData(lstQQ.ListIndex + 1) lstQQ.List(lstQQ.ListIndex) = lstQQ.List(lstQQ.ListIndex + 1) '當前項賦值爲下一項 lstQQ.List(lstQQ.ListIndex + 1) = lstQQ.Tag '下一項賦值爲當前項 lstQQ.ItemData(lstQQ.ListIndex + 1) = strCurrData lstQQ.ItemData(lstQQ.ListIndex) = strNextData lstQQ.ListIndex = lstQQ.ListIndex + 1 '設下一項爲當前項 office中國 End If End Sub