# Re: 请问二个问题~

Posted by 老洪 on July 26, 1999 at 09:23:44:

In Reply to: 请问二个问题~ posted by 小洪 on July 25, 1999 at 15:38:53:

: 请问您一个读档的问题，为什么用以下的语法读一个档的全部内容的话
: 如果被读取的该档是中文的话就会显示"输入己超过档案结尾"的错误讯息
: Text1.Text = Input#(LOF(1), 1)

试试如下的方法:
dim barr() as byte

Open "c:\test.txt" for Input as #1
barr=InputB(LOF(1),1)
Text1.Text=StrConv(barr,vbUnicode)
close #1

: 另一个问题则是，要怎样让一行文字中的第n个文字变色呢？
RichTextBox1.SelStart = n+1
RichTextBox1.SelLength = 1
RichTextBox1.SelColor = QBColor(12)

Follow Ups:

- Re: 请问二个问题~ 小洪 12:32:42 7/26/99 (1)
  - Re: 请问二个问题~ 老洪 17:40:57 7/26/99 (0)