最后一次提问这个问题(VB)

问了好多次，前后不下十几天，可是至今都没有找到满意的答案，真不甘心。
问题是这样的，我要编一个小程序，将RichTextBox1中录入的文字和放入的图片的路径，保存到数据库中。
现在其它的都不成问题，但有一样难住了：图片无法变成图片路径。
这个问题肯定有解决办法的，因为图片是从图片路径提交装载后录入的，用的是下面的程序：

Private Sub Image1_Click()
Clipboard.SetData LoadPicture(App.Path & "\bq15.gif")
SendMessage RichTextBox1.hwnd, WM_PASTE, ByVal 0&, ByVal 0
Text2.Text = Text2.Text & "bq15.gif"
Clipboard.Clear
End Sub

思路可以用一个TEXT2来装入图片路径，将其与RichTextBox1中录入的文本续起来。

但无法解决的问题是：在TEXT2中装入后，如何设置图片路径在所有录入的文本中的位置？还有就是当有好几个图片的路径存在的时候，如果在RichTextBox1中删除了一个或几个图片，TEXT2中应如何才能进行相应修改？

请VB高手指点迷津。
这个问题应叫一个什么问题呢？互联网上是否有相似的答案？

之前曾有人提议用动态添加控件的方法，可是如何处理想不出来。

一直都在线等，一有最佳答案可以解决问题就会立即结贴的了。

不要用Text2直接用RichTextBox1.OLEObjects(i).Key保存路径即可

Private Sub Image1_Click()
Clipboard.SetData LoadPicture(App.Path & "\bq15.gif")
SendMessage RichTextBox1.hwnd, WM_PASTE, ByVal 0&, ByVal 0
Clipboard.Clear

RichTextBox1.OLEObjects(RichTextBox1.OLEObjects.Count - 1).Key = App.Path & "\bq15.gif"

End Sub

1.从你给的代码看,图片是通过剪贴板粘入到richtextbox中,所以图片的位置只能取决于,richtextbox中光标的当前位置.
2.text2中尽管有图片的地址,但这一信息并未记录中rtf文件中.其中只记录了数据格式,图片高宽以及图片诸像素的信息等.你可以自己看看rtf文件的代码.
======================
3.如果确想实现你预想的目标,可以试试向rtf源码中加入另外的信息.
以下是图片的基本信息:
\pict\wmetafile8\picwxxx\pichxxx\picwgoalxxx\pichgoalxxx
(xxx是数字)
你可以自定一个属性,如"\picadr"(以'\'开头),后接图片地址.
粘图片后随即把\picadr.....加入rtf码中
删除图片时,依据\picadr的地址更新你的text2,或数据库.

老兄，你应该去csdn的，在那里出200分可不一般啊，牛人会蜂拥而至的！

可以去别的地方问问~
或者找精通vc的人帮你转一个vb的

走了得了

给你（无法解决的问题）一个思路吧：