VB6.0中如何用RichTextBox显示word文件,求详细编写过程

Private Sub Command1_Click()CommonDialog1.ShowSave If CommonDialog1.FileName <> "" Then RichTextBox1.SaveFile(CommonDialog1.Filename, rtfText)end if End Sub 若要输出RichTextBox1选定的部分内容，则需要使用二楼的方法：Print #1, RichTextBox1.SelRTF ...

一. 显示时滚动条始终在下：// 让光标定位到文本框末尾 richTextBox1.Select(richTextBox1.TextLength, 0);//然后移动滚动条，使输入点(text entry point)(即光标所在的位置）显示出来 //这样也可以达到滚动到最下方的目的 richTextBox1.ScrollToCaret(); 二. 输入时滚动条始终在下：richTextBox1...

Set WordApp = CreateObject("Word.Application")WordApp.Visible = False WordApp.Documents.Open Text1.Text WordApp.ActiveDocument.SaveAs "C:\Temp\Temp.Rtf", wdFormatRTF WordApp.DisplayAlerts = False WordApp.Documents.Close WordApp.Quit RichTextBox1.LoadFile "C:\Temp\Temp.Rtf"ElseIf...

我复制你的代码，运行成功了。我推测你的错误就像那个人说的，是控件名的问题 你应该确认一下你显示文本的控件的Name是不是RichTextbox1 如图

Next If CDL1.FileName = "" Then Exit Sub FF(0) = FreeFile Open CDL1.FileName For Input As #FF(0)Text1 = ""Text1 = StrConv(InputB(LOF(FF(0)), #FF(0)), vbUnicode)Close #FF(0)End Sub 注：TEXT控件貌似之能放最多64KB的字符，如果太多可以使用richtextbox控件。。

请问这是怎么回事？？？谁能帮我一下啊！！谢谢！解析:找到RichTextBox.ocx或其相关的控件使用以下方法注册 VB中合理地利用控件能极大地提高程序开发的效率，但是许多人常遇到因控件未注册而无法使用的问题。下面就介绍几种注册控件的方法(假设待注册控件的文件名为MyCtrl.ocx)。1.在VB6环境中直接注册 ...

使用RichTextBox控件 Private Sub Command1_Click()RichTextBox1.SelStart = 3 '#要高亮的起始字符数 RichTextBox1.SelLength = 5 '#要高亮的字符数 RichTextBox1.SelColor = vbRed '#颜色 RichTextBox1.SelFontSize = 20 '#字体 RichTextBox1.SelBold = True '#加粗 End Sub ...

CMDG2.flags = 6 CMDG2.ShowOpen WJM = CMDG2.FileName '''If WJM = "" Then MsgBox "请选择文件！", vbOKOnly Exit Sub End If Open WJM For Input As #1 Input #1, SM1 text1.text=SM1 Input #1, SM1 text2.text=SM1 '………Close #1 End Sub ...

在VB6.0中，设richtext控件的名字为RichTextBox1（这里不需要先选中文字，要不然可以去掉2，3句） With RichTextBox1 .SelStart = 0 .SelLength = Len(.Text) .SelBold = True End With 在VB6.0以上设richtext控件的名字为RichTextBox1（需要先选中文字，不然先调用SelectAll方法） richTextBox1...

文本框在界面设置时把属性中的文本框大小设置得更大（只要把文本框拉大就会大小值变大了），然后在使用.text这个属性的地方加上autosize=true使得控件可以自动改变大小以显示所有内容，或者wordwrap=true来使得控件扩大以显示所有内容。