load读文消蔽件如果不成功会导致错误,例如文件不存在、格式不正确,进而导致后续的代码无法执行。
解决这个问题可以考虑拿枯州使用try-catch结构:
try% 执行load文件 *** 作
catch
% 如果load错误,要败前执行的 *** 作
end
LoadFile 方法向 RichTextBox 控件加载一个 .rtf 文件或文本文件。不支持命名的参数。
语法
object.LoadFile pathname, filetype
LoadFile 方法的语法包含下面部分:
部分 描述
object 必需的。对象表达式,其值是“应用于”列埋厅表中的一个对象。
pathname 必需的。字符串表达式,它定义加载控件的文件路径和文件名。
filetype 可选的。整数或常数,按照“设置值”中的描述确定装入文件的类型。
设置值
filetype 的设置值是:
常数 值 描述
rtfRTF 0 (缺省)RTF。被加载的文件必须是一个合法的 .rtf 文肢和件。
rtfText 1 文本。RichTextBox 控件可加载任一文本文件。
说明
当用 LoadFile 方法加载一个文件时,加载文件的内容将取代 RichTextBox 控件的弯饥隐全部内容。这将使 Text 和 RTFText 属性的值改变。
也可用 Visual Basic 的 Input 函数和 RichTextBox 控件的 TextRTF 和 SelRTF 属性读取 .rtf 文件。例如,可按如下方式加载一个 .rtf 文件的内容到 RichTextBox 控件中:
Open "mytext.rtf" For Input As 1
RichTextBox1.TextRTF = Strconv(InputB$(LOF(1), 1), vbUnicode)
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)