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

2019-07-07 09:29:00
zstmtony
原創
125

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



分享