各位高手,我想问下,如何实现通过双击FileListBox 中那个REDIST.TXT文件,让它的内容显示在 text1 中呀?? 知道的高手们说下哈,谢谢了~~

没人吗??? 急呀``

open ****文件名**** for input as
#1doline input #
1,lbuffertext1.text=text1.text & vbcrlf & lbufferloop eof(1)close #1

'添加 Drive1 Dir1 File1 Text1 Text1的Multiline设为TrueDim dirpath$, fname$, jj&Private Sub Drive1_Change() Dir1.Path = Drive1.DriveEnd SubPrivate Sub Dir1_Change() File1.Path = Dir1.PathEnd SubPrivate Sub File1_Click() dirpath = IIf(Right(Dir1.Path, 1) = "\", Dir1.Path, Dir1.Path & "\") jj = File1.ListIndex fname = dirpath & File1.List(jj) Open fname For Input As #1 Text1.Text = StrConv(InputB(LOF(1), 1), vbUnicode) Close #1End Sub

直接用richtextbox还简单～^_^