VB程序制作

你的TextBox要换成RichTextBox。

清除：

RichTextBox1.Text?=?""

打开：

'先加载部件Microsoft?Common?Control和?Microsoft?Rich?TextBox?Control

CommonDialog1.Filter?=?"文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"

CommonDialog1.ShowOpen

RichTextBox1.FileName?=?CommonDialog1.FileName

RichTextBox1.LoadFile?FileName

保存：

CommonDialog1.Filter?=?"文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"

CommonDialog1.ShowSave

FileType?=?CommonDialog1.FileTitle

FiType?=?LCase(Right(FileType,?3))

FileName?=?CommonDialog1.FileName

Select?Case?FiType

Case?"txt"

RichTextBox1.SaveFile?FileName,?rtfText

Case?"rtf"

RichTextBox1.SaveFile?FileName,?rtfRTF

Case?"*.*"

RichTextBox1.SaveFile?FileName

End?Select

剪切：

Clipboard.Clear

Clipboard.SetText?RichTextBox1.SelText

RichTextBox1.SelText?=?""

粘贴：

RichTextBox1.SelText?=?Clipboard.GetText

复制：

Clipboard.Clear

Clipboard.SetText?RichTextBox1.SelText

全选：

RichTextBox1.SelStart?=?0

RichTextBox1.SelLength?=?Len(RichTextBox1.Text)