不需要代码,图片直接往里面粘就行了。这些是自动功能。保存的时候用SaveFile方法直接存为文件,也可以自己读写文件,但保存其TextRTF属性内容才有图片,Text只有文本内容。
就只有一个文本框……
例如图片为1.bmpPrivate Sub Command1_Click()Clipboard.SetData LoadPicture("d:\1.bmp")RichTextBox1.SetFocusSendKeys "^v", TrueEnd Sub