filelistbox filelistbox控件


filelistbox filelistbox控件

文章插图
大家好,小豆豆来为大家解答以上的问题 。filelistbox控件,filelistbox这个很多人还不知道,现在让我们一起来看看吧!
1、在窗体控件中放置一个FileListBox控件和一个TextBox控件,将FileListBox的Pattern属性改为“*.txt”,将TextBox的MultiLine属性改为True 。
2、将以下语句复制到代码中OptionExplicitPrivateSubFile1_Click()DimtFileNameAsString,tFileNumberAsInteger,tLoadAsString,tTextAsStringtFileName=Replace(&""&ame,"\","")tFileNumber=FreeFileOpentFileNameForInputAs#tFileNumberDoWhileNotEOF(tFileNumber)LineInput#tFileNumber,tLoadtText=tText&tLoad&vbCrLfDoEventsLoopClose#=tTextEndSub运行 , 然后在文件列表框里选择文件后就会在Text1控件里显示文件内容 。
【filelistbox filelistbox控件】3、然后就是没有做DriveListBox和DirListBox的链接,这个你应该自己会吧?既然你没问我就权当你会了哦 。
4、:) 。
本文到此分享完毕 , 希望对大家有所帮助 。