Question

VB高手请进，richtextbox 插入图片问题

请教各位VB高手：VB中richtextbox可任意设置字号大小、且点击可以插入存在于VB6运行后界面的图片、并将路径存入数据库中的实现代码。

我的希望是实现一个VB文本编辑器，并在其中加插些已有的图片，而后存入数据库。
请问44670:

你的方法可行,那么如何将RichTextBox2内容包括图片command发送到RichTextBox1,以及如何获得图片文件名呢?

Answer 1

获得文件名是完全不可行的，因为把图片插入后不会保存文件名信息
至于复制这样写
Private Sub Command2_Click()
RichTextBox2.TextRTF=RichTextBox1.TextRTF
End Sub

顺便帮你写了个改变字体大小的
再加一个CommonDialog
Private Sub Command1_Click()
On Error Resume Next
With CommonDialog1
.FontName = RichTextBox1.SelFontName
.FontSize = RichTextBox1.SelFontSize
.Color = RichTextBox1.SelColor
.FontBold = RichTextBox1.SelBold
.FontItalic = RichTextBox1.SelItalic
.FontUnderline = RichTextBox1.SelUnderline
.FontStrikethru = RichTextBox1.SelStrikeThru
End With
CommonDialog1.Flags = cdlCFEffects Or cdlCFForceFontExist Or cdlCFScreenFonts
CommonDialog1.ShowFont
With RichTextBox1
.SelFontName = CommonDialog1.FontName
.SelFontSize = CommonDialog1.FontSize
.SelColor = CommonDialog1.Color
.SelBold = CommonDialog1.FontBold
.SelItalic = CommonDialog1.FontItalic
.SelUnderline = CommonDialog1.FontUnderline
.SelStrikeThru = CommonDialog1.FontStrikethru
End With
RichTextBox1.SetFocus
End Sub

新建一个Command，一个Richtextbox

Private Sub Command1_Click()
RichTextBox1.OLEObjects.Add , , "C:\1.bmp"
End Sub

注："C:\1.bmp"可以改为其它文件名
添加图片后，图片会嵌入在文本里，不需要原来的图片文件

附方法2：
再加一个Picturebox,命名为PicInsert
Autosize=true Autoredraw=true

Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_PASTE = &H302

Private Sub Command1_Click()
PicInsert.Picture = LoadPicture("c:\1.bmp")
PicInsert.Picture = PicInsert.Image
DoEvents
Clipboard.Clear
Clipboard.SetData PicInsert.Picture
SendMessage RichTextBox1.hwnd, WM_PASTE, 0, 0
End Sub

Answer 2

http://www.supersvc.com/code/3093.htm
这个看看

Answer 3

不要什么事情总问别人，自己动脑子好好想一想，对于面向对象的语言总是比面向过程的语言实现要容易的多！
努力吧 你是最棒的！

Answer 4

http://www.supersvc.com/code/3093.htm

Answer 5

http://www.redlib.cn/html/GuoFangKeJi_2092/RSDD1032333.htm