- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]显示第n个文件 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=172486)
-- 发布时间：2021/10/14 22:26:00
-- [求助]显示第n个文件
老师好！在文件打开窗口选择多个文件后，我要显示第3个文件，怎样写代码？
Dim dlg As New OpenFileDialog
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.OK Then
Dim i As Integer
For i = 1 To dlg.FileNames.Length
Output.Show( )
Next
End If
-- 发布时间：2021/10/14 22:36:00
--
Dim dlg As New OpenFileDialog
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.OK Then
if dlg.FileNames.Length > 2
Output.Show( dlg.FileNames(2) )
End If
End If
-- 发布时间：2021/10/14 22:50:00
--
这样为什么不显示？
Dim dlg As New OpenFileDialog
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.OK Then
Dim i As Integer
If i > 0 Then
For i = 0 To dlg.FileNames.Length
Output.Show(dlg.FileNames(i))
Next
End If
End If
-- 发布时间：2021/10/14 23:07:00
--
i没有赋值就是0，If i > 0 Then永远都不会成立
-- 发布时间：2021/10/15 20:25:00
--
蓝老师，我选中4个文件，循环显示i，怎么成了显示“4,0,1,2,3” 5个了？
另外，如果不判断，就报错，如图。
If i > 0 Then我知道不对，怎么才能正确显示？
谢谢！
此主题相关图片如下：截屏图片.jpg
[此贴子已经被作者于2021/10/15 20:25:48编辑过]
-- 发布时间：2021/10/16 9:12:00
--
从头学一下编程基础：http://www.foxtable.com/webhelp/topics/0225.htm
-- 发布时间：2021/10/16 12:09:00
--
谢谢!
Dim dlg As New OpenFileDialog
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.OK Then
Dim i As Integer
For i = 0 To dlg.FileNames.Length -1
Output.Show(i)
Output.Show(dlg.FileNames(i))
Next
End If