技术小站8

网站首页 综合 > 正文

filelistbox控件(filelistbox)

2022-10-12 00:51:33 综合 来源:
导读 大家好,小豆豆来为大家解答以上的问题。filelistbox控件,filelistbox这个很多人还不知道,现在让我们一起来看看吧!1、在窗体控件中放置一

大家好,小豆豆来为大家解答以上的问题。filelistbox控件,filelistbox这个很多人还不知道,现在让我们一起来看看吧!

1、在窗体控件中放置一个FileListBox控件和一个TextBox控件,将FileListBox的Pattern属性改为“*.txt”,将TextBox的MultiLine属性改为True。

2、将以下语句复制到代码中OptionExplicitPrivateSubFile1_Click()DimtFileNameAsString,tFileNumberAsInteger,tLoadAsString,tTextAsStringtFileName=Replace(File1.Path&""&File1.FileName,"\","")tFileNumber=FreeFileOpentFileNameForInputAs#tFileNumberDoWhileNotEOF(tFileNumber)LineInput#tFileNumber,tLoadtText=tText&tLoad&vbCrLfDoEventsLoopClose#tFileNumberText1.Text=tTextEndSub运行,然后在文件列表框里选择文件后就会在Text1控件里显示文件内容。

3、然后就是没有做DriveListBox和DirListBox的链接,这个你应该自己会吧?既然你没问我就权当你会了哦。

4、:)。

本文到此分享完毕,希望对大家有所帮助。


版权说明: 本文版权归原作者所有,转载文章仅为传播更多信息之目的,如作者信息标记有误,请第一时间联系我们修改或删除,多谢。


标签:




热点推荐
热评文章
随机文章