发信人: fan_zw()
整理人: winsy(2003-03-05 16:24:23), 站内信件
|
【 在 hunterlsq (令狐冲) 的大作中提到: 】
如果mutiselect为0的话，用list1.text返回就可以了
如果mutiselect为1的话，举个例子：
Private Sub Command1_Click()
Dim i, j As Integer
Dim sel() As String
For i = 0 To List1.ListCount - 1
If List1.Selected(i) Then
ReDim Preserve sel(j)
sel(j) = List1.List(i)
Debug.Print sel(j)
j = j + 1
End If
Next i
End Sub
Private Sub Form_Load()
Dim i As Integer
For i = 0 To 5
List1.AddItem i, i
Next i
End Sub
--
万花丛中我最菜: )
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 210.72.255.245]
|
|