憨_居_居 2017-02-23 07:49 采纳率: 31.4%
浏览 1057
已采纳

vb.net的文件系统编程问题

vb.net怎么没有DriveListBox控件和DirListBox控件和FileListBox控件啊,我在工具箱选项添加了也没用啊,还是我操作步骤错了,来个大神详细说明下嘛

  • 写回答

3条回答 默认 最新

  • 郑国荣 2017-02-24 01:45
    关注

    DriveListBox控件、DirListBox控件和FileListBox控件是VB6.0才有的文件系统控件,在升级到VB.NET之后,已经不支持这几个控件了,取而代之的是
    OpenFileDialog控件,能够完成同样类似的工作,给你个例子:

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        OpenFileDialog1.InitialDirectory = "c:\"
        OpenFileDialog1.Filter = "EXCEL文件(*.xls)|*.xls"
        OpenFileDialog1.Multiselect = False
        OpenFileDialog1.ReadOnlyChecked = True
        If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Dim myExcelFileName As New System.IO.StreamReader(OpenFileDialog1.FileName)
            MsgBox("打开的文件名是:" + OpenFileDialog1.FileName)
            Dim mExcelApplication As Object = CreateObject("Excel.Application")
            mExcelApplication.Workbooks.Open(Filename:=OpenFileDialog1.FileName)
            mExcelApplication.Visible = True   '如果隐式打开可以用False
            myExcelFileName.Close()
        End If
    End Sub
    
    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论
  • threenewbee 2017-02-23 08:46
    关注

    上次不是有人回答过你了么,你有先添加 Microsoft.VisualBasic.Compatibility 引用么

    评论
  • 憨_居_居 2017-02-23 09:20
    关注

    图片说明就这样,然后呢

    评论
查看更多回答(2条)

报告相同问题?

悬赏问题

  • ¥60 PCDN如何使用宽带的电视业务通道拨号叠加带宽?
  • ¥15 遇到这种校园宽带网络应该怎么样解决?
  • ¥30 AXI VIP验证多余打印问题
  • ¥15 利用加权最小二乘法求某品牌手机价格指标,已按照总销量计算出权重,各类型号手机价格已知,如何求得价格指标?
  • ¥15 如何自制一个硬件钱包,有兴趣的朋友一起交流
  • ¥15 (关键词-聊天软件)
  • ¥15 求大家看看这个编程的编法没有思路啊
  • ¥20 WSL打开图形化程序子窗口无法点击
  • ¥15 Jupyter Notebook 数学公式不渲染
  • ¥20 ERR_CACHE_MISS 确认重新提交表单