Option Explicit
Dim str1 As String
Dim str As String
Private Sub Command1_Click()
CommonDialog1.ShowOpen
Text1 = ""
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Input #1, str1
str = str & str1 & Chr(13) & Chr(10)
Text1 = str
Loop
Close #1
End Sub
VB问题:如何使一个记事本文件的内容在VB的text控件中显示?
请设置TEXT的属性MultiLine为True:Option Explicit Dim str1 As String Dim str As String Private Sub Command1_Click()CommonDialog1.ShowOpen Text1 = ""Open CommonDialog1.FileName For Input As #1 Do While Not EOF(1)Input #1, str1 str = str & str1 & Chr(13) & Chr(10)Text1...
vb中如何在text控件中显示word文档内容
这个不大现实，因为Word不光是字符，还有好多隐性的代码，打开就乱套了，好多乱码，你要是打开文本文件还是可以的。Private Sub Command1_Click()Dim oFSO As New FileSystemObject Dim tTextStream As TextStream Dim cPath, cFilename As String CommonDialog1.ShowOpen cPath = CommonDialog1.FileName...
VB如何把文件内容显示在文本框中?
CommonDialog1.FilterIndex = 2 ' 显示“打开”对话框 CommonDialog1.ShowOpen ' 显示选定文件的名字 Debug.Print CommonDialog1.FileName Str = CommonDialog1.FileName Open CommonDialog1.FileName For Input As #1 Do Until EOF(1)Line Input #1, s Text1.Text = Text1.Text & s & vbCrLf...
...问题,如何实现双击*.txt文件用自己编的一个记事本打开,并显示其内容...
用command返回命令行参数 就是TXT文件的路径，但有可能带有双引号 filename= replace(command,""","")
如何在VB中打开一个记事本窗口并获取窗口句柄,向其中发送富文本框中的...
1.新建三个命令按钮Command1命名“写字”，Command1命名“禁用”，Command1命名“关闭”；2.在窗体写下如下代码：Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function FindWindowEx Lib...
Excel的vb编程如何打开和关闭一个文本文件
用Shell语句直接调出Windows的记事本，给个文件名即可轻而易举地打开文本文件。此法适合于打开程序的Readme文件(注意：在可执行文件和要打开的文本文件之间要有空格)：Shell "NotePad.EXE f:\\d.txt ",vbNormalFucus 方法五：用RichTextBox控件自身的LoadFile属性打开文件：RichTextBox1.LoadFile ...
VB.net怎么才能实现记事本中的查找上一个的功能(在Richtextbox中)?
查找一次后记入查找内容的位置，百查找下一个功能度 这时候的开始位置就是刚才查找内容的位置加上查找内容的长度，版突出显示其实就是选权定文本，富文本框有SelectionStart，SelectionLength 两个属性
怎么用vb做记事本
步骤一:绘制界面。 新建一个标准EXE工程,将其Caption属性改为“超级记事本”,点击Icon属性给它找个合适的Icon图标。单击菜单“工程”-“部件”,在弹出的“部件”对话框里找到Microsoft RichText Box 6.0和公共对话框Microsoft Common Dialog 6.0并选中它们,单击“确定”按钮。这时左边的工具栏上出现了我们刚才新添的...
...并能够将所编写的内容存入一个文本文件中。
VB好象有点力不从心，建议使用VB。NET~~他是VB的一个最新的版本，功能相当的强大，而且一些在vb中很难实现的功能，在.net里很容易实现，如果你使用.net的话。在联络
vb问题 Richtextbox 如何增加内容
一、把下面代码放入模块中：Option Explicit Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Declare Function SendMessageByNum Lib "User32" Alias "SendMessageA" ...
