主题：如何让窗体一运行就自动打开rtf文件内容并显示？
ihorse
[专家分：970] 发布于 2008-05-16 17:17:00
各位老师好，我是一个VB初学者，现有以下问题，请多多指教，谢谢!
一个窗体中，已经放置了一个Richtextbox,我现在想达到的目的是，窗体一运行，就自动打开D:\1.RTF文件并显示在该Richtextbox中。请问如何实现？
非常感谢您的指教!
回复列表 （共4个回复）
沙发
p1s [专家分：4100] 发布于 2008-05-16 22:14:00
双击窗口标题，为窗口编写OnLoad事件代码。
RichTextBox应该有加载文件的代码，写在那个事件里。
板凳
ihorse [专家分：970] 发布于 2008-05-19 18:06:00
谢谢，此问题已经解决!
3 楼
老大徒伤悲 [专家分：29120] 发布于 2008-05-19 18:41:00
奥？
为什么不说说是怎么解决的，让大家也分享一下？
4 楼
ihorse [专家分：970] 发布于 2008-05-20 16:19:00
Private Sub Form_Load()
If fso.FileExists("d:\1.RTF") = Flase Then
Open "D:\1.RTF" For Output As #1
Print #1, " 警告：" & Chr(13) & "上机说明文件内容丢失，请联系管理员。"
Close #1
End If
RichTextBox1.FileName = "D:\1.RTF"
End Sub
我来回复
您所在位置：