1,453
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
bbhere 2006-03-06
- 打赏
- 举报
Dim fld() as String
For i = 0 To List1.ListCount - 1
fld(i)=List1.List(i)
Next
For i = 0 To List1.ListCount - 1
fld(i)=List1.List(i)
Next
faysky2 2006-03-06
- 打赏
- 举报
Private Sub Command1_Click()
Dim i As Long
For i = 0 To List1.ListCount - 1
Debug.Print List1.List(i)
Next
End Sub
Private Sub Form_Load()
Dim i As Long
For i = 1 To 10
List1.AddItem i
Next
End Sub
Dim i As Long
For i = 0 To List1.ListCount - 1
Debug.Print List1.List(i)
Next
End Sub
Private Sub Form_Load()
Dim i As Long
For i = 1 To 10
List1.AddItem i
Next
End Sub
AnnaBear 2006-03-06
- 打赏
- 举报
faysky2() ^_*
