1,216
社区成员
发帖
与我相关
我的任务
分享如何跳过"打开文件对话框",直接显示文本文件内容?谢谢指点!
我想在一个picture控件中显示一个文本文件的内容,用到"通用对话框",我想在程序运行时直接在picture中显示出指定文本文件的内容(比如"帮助文件.txt"),从而跳过"通用对话框"的提示窗口,但不知道如何实现这个跳过功能"通用对话框"的功能,另外如何指定呢?恳请大家指点!
我的代码如下:
Private Sub Form_Load()
Dim fso As New FileSystemObject, fil As File, ts As TextStream
Dim str As String
With CommonDialog1
.Filter = "Text Files|*.txt"
.FileName = "帮助文件.txt"
.InitDir = App.Path
.ShowOpen '如何跳过这个打开对话框???
End With
Set fil = fso.GetFile(CommonDialog1.FileName)
Set ts = fil.OpenAsTextStream(ForReading)
str = ts.ReadAll
ts.Close
End Sub
我的代码如下:
Private Sub Form_Load()
Dim fso As New FileSystemObject, fil As File, ts As TextStream
Dim str As String
With CommonDialog1
.Filter = "Text Files|*.txt"
.FileName = "帮助文件.txt"
.InitDir = App.Path
.ShowOpen '如何跳过这个打开对话框???
End With
Set fil = fso.GetFile(CommonDialog1.FileName)
Set ts = fil.OpenAsTextStream(ForReading)
str = ts.ReadAll
ts.Close
End Sub
...全文
请发表友善的回复…
发表回复
longgen 2005-09-28
- 打赏
- 举报
楼上 northwolves(狼行天下) 酷! 最敏捷的方法一点即透!
楼主不要再找了,楼上的就是你要答案!
楼主不要再找了,楼上的就是你要答案!
northwolves 2005-09-27
- 打赏
- 举报
Private Sub Form_Load()
showtxt "c:\123.txt", Picture1
End Sub
Sub showtxt(ByVal filepath As String, ByVal pic As PictureBox)
pic.AutoRedraw = True
pic.Cls
Dim b() As Byte
Open filepath For Binary As #1
ReDim b(LOF(1))
Get #1, , b
Close #1
pic.Print StrConv(b, vbUnicode)
Erase b
End Sub
showtxt "c:\123.txt", Picture1
End Sub
Sub showtxt(ByVal filepath As String, ByVal pic As PictureBox)
pic.AutoRedraw = True
pic.Cls
Dim b() As Byte
Open filepath For Binary As #1
ReDim b(LOF(1))
Get #1, , b
Close #1
pic.Print StrConv(b, vbUnicode)
Erase b
End Sub
weiweiplay 2005-09-27
- 打赏
- 举报
Set fil = fso.GetFile(你要打开的文件路径)
liuwangxin 2005-09-27
- 打赏
- 举报
请问有其它办法实现在picture控件中显示指定文本文件吗?
cangwu_lee 2005-09-27
- 打赏
- 举报
那你还要 CommonDialog1 干什么！
