richTextBox1 的 RichTextBox 控件的 Form 类中。
Public Sub LoadMyFile()
' Create an OpenFileDialog to request a file to open.
Dim openFile1 As New OpenFileDialog()
' Initialize the OpenFileDialog to look for RTF files.
openFile1.DefaultExt = "*.rtf"
openFile1.Filter = "RTF Files|*.rtf"
' Determine whether the user selected a file from the OpenFileDialog.
If (openFile1.ShowDialog() = System.Windows.Forms.DialogResult.OK) _
And (openFile1.FileName.Length >0) Then
' Load the contents of the file into the RichTextBox.
richTextBox1.LoadFile(openFile1.FileName)
End If
End Sub
楼主大概误解这个菜单的意思了位置:[工程]-添加文件(内赋相关文档)
作用:[工程]下拉菜单的外置功能菜单,实事上是该菜单上面7大菜单的全部缩影.当你不需要从内部建立 窗体 模块 类模块....等时,可以使用 添加该命令选择外部文件.
其实不属于vb内部的文件均是不可以加载的,但txt文类件例外,因为这可以通过txt文件加载来方便源代码的导入,当然前提条件是txt文件得有代码.
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)