明天电脑考试作弊一下
Private Sub Command1_Click()
CommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"
CommonDialog1.ShowOpen
FileName = CommonDialog1.FileName
RichTextBox1.LoadFile FileName
End Sub
Private Sub Command2_Click()
CommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"
CommonDialog1.ShowSave
FileName = CommonDialog1.FileName
RichTextBox1.SaveFile FileName
End Sub
Private Sub Command3_Click()
Clipboard.Clear
Clipboard.SetText RichTextBox1.SelText
End Sub
Private Sub Command4_Click()
RichTextBox1.SelText = Clipboard.GetText
End Sub
明天再来看 。。。