怎樣取得多欄列表框第N欄的數(shù)據(jù)
發(fā)布時(shí)間:2008-08-14 閱讀數(shù): 次 來源:網(wǎng)樂原科技
們?cè)谟昧斜砜驎r(shí),經(jīng)常會(huì)用到多欄列表。
但怎樣取得多欄列表框第N欄的數(shù)據(jù),請(qǐng)看下面代碼:
Dim I As Integer '定義變量存儲(chǔ)被選中行的序號(hào)
For I = 0 To 列表1.ListCount - 1
If 列表1.Selected(I) Then
Exit For
End If
Next I
'報(bào)出第一欄與第二欄的值
msgbox 列表1.Column(0, I) & " " & 列表1.Column(1, I)