VB中有沒有圖文控件，或怎樣實現圖文並茂？

Question

Textbox只可輸入與顯示“文字”PictureBox只可載入顯示“圖片”在VB中，有沒有一個控件可以實現，像Word那樣，想打字就打字，想插入圖片，就插入圖片？謝謝。

Answer 1

RichtextBox 怎樣載入圖片？能說一下嗎？

Answer 2

就用TEXT控件吧,,,,你只需把PictureBox放到TEXT控件上就可以啊,,,,这样又可以在text 上打字,又可以随意插入图片,,

Answer 3

一个简单的例子：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 = &H302Private Sub Command1_Click()
Dim pic1 As PictureBox
Set pic1 = Controls.Add("vb.picturebox", "pic1", Me)
pic1.Picture = LoadPicture("d:\1.jpg")
Clipboard.Clear
Clipboard.SetData pic1.Picture
SendMessage RichTextBox1.hwnd, wm_paste, 0, 0
Controls.Remove pic1
End SubPrivate Sub Form_Load()
RichTextBox1.Text = "一个图片：" & vbCrLf
RichTextBox1.SelStart = Len(RichTextBox1.Text)
End Sub

Answer 4

'OLEObjects添加方法:RichTextBox1.OLEObjects.Add , , "C:\1.ico"http://community.csdn.net/Expert/topic/3081/3081403.xml?temp=.8057825

Answer 5

那就不用picture控件吧,,,,,在TEXT中用剪粘板的方法把图片,,,剪切进去,,,
private sub picture1_click()Clipboard.ClaarClipboard.SetData picture1.picture
picture1.clsPicture1 = Clipboard.GetData()end sub