Question

VB 如何得到 Data.Files(i1) 的数量？

Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)

'控件属性必须设成 OLEDropMode = 1

For i1 = 1 To UBound(Data.Files)‘ 貌似这里不能有点啊，如何定义数量。

Print Data.Files(i1)

Next

End Sub

Answer 1

For i1 = 1 To Data.Files.Count
Print Data.Files(i1)
Next