Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]显示第n个文件


  共有3330人关注过本帖树形打印复制链接

主题：[求助]显示第n个文件
帅哥哟，离线，有人找我吗？
天一生水
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1141 积分：11272 威望：0 精华：0 注册：2017/9/26 16:30:00 		[求助]显示第n个文件  发帖心情 Post By：2021/10/14 22:26:00 [显示全部帖子]

老师好！在文件打开窗口选择多个文件后，我要显示第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
 回到顶部
帅哥哟，离线，有人找我吗？
天一生水
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1141 积分：11272 威望：0 精华：0 注册：2017/9/26 16:30:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
天一生水
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1141 积分：11272 威望：0 精华：0 注册：2017/9/26 16:30:00 		  发帖心情 Post By：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
天一生水
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1141 积分：11272 威望：0 精华：0 注册：2017/9/26 16:30:00 		  发帖心情 Post By：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
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 5 次数据查询