我建立了个filelistbox控件(里面我已经设置来只显示*.txt文件)和TEXT控件 如何通过双击filelistbox的任意一txt文件.就能将其内容显示在TEXT中..最好给完整代码 谢谢!
2楼你没明白我的意思...1楼和3楼的都可用谢谢..相对来说3楼的比较简洁易懂..把分给3楼了..但是3楼的也没完全符合我的要求..3楼能通过双击打开一个TXT文件显示在TEXT中..但是我FILELISTBOX里显示有好几个TXT文件 我双击打开了一个 但是再双击另外一个就不行了 我希望是先双击打开了一个TXT文件显示在TEXT中 如果接着双击另一个TXT文件..TEXT里的内容能替换为另一个TXT文件的内容! 3楼的能不能再加点命令实现我的要求..还有能不能让TEXT里显示的内容和TXT里的段落格式一致!
哥们,我给你写了并加上了非常详细的注释,希望能给我分呀~~o(∩_∩)o...
程序启动前 先将text的MultiLine属性设置为True(text可以接受多行文本),然后在filelistbox的双击事件里添加下面的代码就OK~~..
我给你修改了一下,这下应该就OK了~~.(忘记关闭文件号了,o(∩_∩)o...)
又改了改,这下段落就一致了,(每行加了个换行符,程序一直没有细致的做调试,不好意思啊,现在应该就达到你的要求了)
Private Sub File1_DblClick()
Dim fn As String, tem As String, fd As String
fn = File1.Path & "\" & File1.FileName
Open fn For Input As #1 '打开这个txt文件
Do Until EOF(1) '循环读取直到文件结尾
Line Input #1, tem '读取文件的一行数据
fd = fd & tem & vbCrLf '将数据赋给变量fd
Loop
Close #1
Text1.Text = fd '在text文本框中显示读出的所有数据
End Sub
程序启动前 先将text的MultiLine属性设置为True(text可以接受多行文本),然后在filelistbox的双击事件里添加下面的代码就OK~~..
我给你修改了一下,这下应该就OK了~~.(忘记关闭文件号了,o(∩_∩)o...)
又改了改,这下段落就一致了,(每行加了个换行符,程序一直没有细致的做调试,不好意思啊,现在应该就达到你的要求了)
Private Sub File1_DblClick()
Dim fn As String, tem As String, fd As String
fn = File1.Path & "\" & File1.FileName
Open fn For Input As #1 '打开这个txt文件
Do Until EOF(1) '循环读取直到文件结尾
Line Input #1, tem '读取文件的一行数据
fd = fd & tem & vbCrLf '将数据赋给变量fd
Loop
Close #1
Text1.Text = fd '在text文本框中显示读出的所有数据
End Sub
温馨提示：答案为网友推荐，仅供参考
第1个回答 2008-12-11
你应该有了Dirlistbox 、Filelistbox、Textbox
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Dim stk As String
Private Sub File1_Click() ’点击获得路径显示
stk = Dir1.Path & "\" & File1.FileName
Text1.Text = stk
End Sub
Private Sub File1_DblClick()
ShellExecute hwnd, "open", stk, vbNullString, vbNullString, 1 '凡是你电脑可以打开的文件都可以打开
End Sub
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Dim stk As String
Private Sub File1_Click() ’点击获得路径显示
stk = Dir1.Path & "\" & File1.FileName
Text1.Text = stk
End Sub
Private Sub File1_DblClick()
ShellExecute hwnd, "open", stk, vbNullString, vbNullString, 1 '凡是你电脑可以打开的文件都可以打开
End Sub
第2个回答 2008-12-11
Private Sub Command1_Click()
Dim TxtFileName$
If File1.ListIndex > 0 Then
TxtFileName = File1.Path & "\" & File1.List(File1.ListIndex)
Shell "notepad " & TxtFileName, 1
End If
End Sub
Private Sub Command2_Click()
Dim TxtFileName$
If File1.ListIndex > 0 Then
TxtFileName = File1.Path & "\" & File1.List(File1.ListIndex)
Kill TxtFileName
End If
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub File1_Click()
Dim a$
List1.Clear
Open File1.Path & "\" & File1.List(File1.ListIndex) For Input As #1
Do While Not EOF(1)
Line Input #1, a
If a <> "" Then List1.AddItem a
Loop
Close #1
End Sub
Private Sub Form_Load()
File1.Path = "D:\file\"
Command1.Caption = "修改"
Command2.Caption = "删除"
Command3.Caption = "退出"
File1.Pattern = "*.txt"
End Sub
显示在listbox 里 不是text
Dim TxtFileName$
If File1.ListIndex > 0 Then
TxtFileName = File1.Path & "\" & File1.List(File1.ListIndex)
Shell "notepad " & TxtFileName, 1
End If
End Sub
Private Sub Command2_Click()
Dim TxtFileName$
If File1.ListIndex > 0 Then
TxtFileName = File1.Path & "\" & File1.List(File1.ListIndex)
Kill TxtFileName
End If
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub File1_Click()
Dim a$
List1.Clear
Open File1.Path & "\" & File1.List(File1.ListIndex) For Input As #1
Do While Not EOF(1)
Line Input #1, a
If a <> "" Then List1.AddItem a
Loop
Close #1
End Sub
Private Sub Form_Load()
File1.Path = "D:\file\"
Command1.Caption = "修改"
Command2.Caption = "删除"
Command3.Caption = "退出"
File1.Pattern = "*.txt"
End Sub
显示在listbox 里 不是text
