怎样用VB编写在记事本中（文本编辑器）随机插入图片、特殊符号的程序？谢谢啦！

Question

我的意思就是在Richtextbox控件中变这样的程序，请帮帮忙啊！！！！

Answer 1

如下：

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()
CommonDialog1.ShowOpen
Picture1.Picture = LoadPicture(CommonDialog1.FileName)
DoEvents
Clipboard.Clear
Clipboard.SetData Picture1.Picture
SendMessage RichTextBox1.hwnd, WM_PASTE, 0, 0
End Sub

Private Sub Form_Load()
Picture1.Visible = False
End Sub