关于richedit富文本控件的问题

zhybxyz

由于人事方面工作需要，每天通过QQ传递很多1，2寸照片，想写个小程序批量处理，刚开始就遇到了问题。


信息管理中心 李倩 工号：202089210

格式就是上面这样的，寸照+说明文字，我把数据存放在一个富文本框中临时收集起来，够十个一起发送到工作接收的QQ上去。

Global $RichEdit =_GUICtrlRichEdit_Create($WinMain, "", 650, 500, 300, 140, BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL))

创建好这个富文本框，别的啥还没开始写呢，手动按照我要的格式去粘贴到$RichEdit里面，之后手动复制出来到QQ对话框，图片不显示，丢了，只剩下文字，不知道是为什么？有做过相关的么？求助！

user3000

进来看图片滴！没尝试过在富文本装载图片，楼下继续！

lpxx

图片很养眼啊。

annybaby

pp不错……

zhybxyz

。。。各位大侠咱能不能言归正传，帮忙解决下问题嘛，早知道换个别的同事照片就好了保证你们看完就跑，>_<

zhybxyz

翻遍了论坛和相关资料，关于富文本编辑器的资料不太多，就连UDF也是英文还没翻译过来。这才开帖求助，并非伸手拿来主义的，大家帮帮忙吧。刚才用旺旺也测试了一下，效果一样，富文本框里的图文混合数据粘贴进旺旺也是只有文字，图片丢失，看来AU3富文本框和他们不是一个类型的？

zhybxyz

求关注、求帮忙，卡在这里了。

Sunrise95

回复 6# zhybxyz


    蛋神的UDF汉化你没有下载么？需要联系我！
  QQ:172285682

hzxymkb

冲图片来的

zhybxyz

是太难还是太简单？没有人帮忙呢？

绿色风

富文本中，你直接copy时，图片应该是没装进剪贴版的.

看一下示例中，有　富文本　-　右键菜单　　-　有剪贴，复制，删除，撤消　功能的示例。

我也是昨天才开始看这个。以上纯属暂时的理解

komaau3

直接复制图片到剪切板，sendmessage粘贴 参考：

Local $sImage = @ScriptDir & "\1.jpg"
_Clipboard_SetImage($sImage)
_SendMessageA($hChat, $WM_PASTE, 0, 0)
Func _Clipboard_SetImage($sImage, $hWnd = 0)
        _GDIPlus_Startup()
        Local $hImage = _GDIPlus_BitmapCreateFromFile($sImage)
        Local $hBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage)
        Local $aRet = DllCall('user32.dll', 'ptr', 'CopyImage', 'ptr', $hBitmap, 'int', 0, 'int', 0, 'int', 0, 'int', 0x8 + 0x4)
        Local $hBitmapCopy =  $aRet[0]
        _ClipBoard_Open($hWnd)
        _ClipBoard_Empty()
        _ClipBoard_SetDataEx($hBitmapCopy, $CF_BITMAP)
        _ClipBoard_Close()
        _WinAPI_DeleteObject($hBitmapCopy)
        _GDIPlus_BitmapDispose($hImage)
        _GDIPlus_ShutDown ()
EndFunc   ;==>_Clipboard_SetImage

zhybxyz

回复 12# komaau3


    直接复制图片到剪切板的话，文字就得再复制一次发送，图片下面还有文字的，本想是富文本框收集好图文之后，能和QQ对话框格式对应上，一起复制粘贴过去。

zhybxyz

回复 11# 绿色风


    我也去看一下，不知道能不能像网页编辑器那样就好了。有没有写过类似代码的大侠给予指点。

绿色风

可以做网页编辑器的