SaveFile 方法示例(VBA)

gemini527

该示例显示一个对话框用来选择一个 .rtf 文件以存入一个 RichTextBox 控件的内容。
要试用此示例，在窗体中应建立一个 RichTextBox 控件，一个 CommandButton 控件和一个 CommonDialog 控件。
把下列代码粘贴到 CommandButton 控件的 Click 事件上，然后运行此例。
Private Sub Command1_Click()   
CommonDialog1.ShowSave   
RichTextBox1.SaveFile(CommonDialog1.Filename, rtfRTF)
End Sub

colin_duan

学习学习一下。