耐克篮球鞋的科技:VB SHOWOPEN`

来源:百度文库 编辑:中科新闻网 时间:2024/05/16 05:30:22
用showopen 打开文本文档到text1请问怎么实现`
有人会SHOWOPEN吗 ?写写给我看`谢谢`

dim fso as new filesystemobject
with commdialog1
open
if filename<>"" then
text1=fso.opentextfile(filename,ForReading,false).readall
end if
end with

注意使用fso要引用microsoft running time库

你用richedit这个控件,自己添加一下,它本身有个读取文件的方法,很方便.

SHOWOPEN的例子有吗