jycel 发表于 2009-10-16 00:20:44

[已解决]GUICtrlCreateEdit中能否插入图像？

本帖最后由 jycel 于 2009-10-17 13:09 编辑

解决方法：16楼
GuiRichEdit.au3函数还有待研究！
在一个GUICtrlCreateEdit的框中，能否插入图像？就像QQ截图那样
如图在截了图过后，我是直接建的一个GUICtrlCreatePic控件，这样的话看起来就很不爽了，一直是固定的~要是能像QQ那样就很完美了

netegg 发表于 2009-10-16 00:31:39

本帖最后由 netegg 于 2009-10-16 00:34 编辑

既然能插入图片了，把图片改成变量不就行了
edit控件加个style可以接收图片

bing614 发表于 2009-10-16 01:02:14

可以用这这个UDFhttp://www.autoitscript.com/forum/index.php?showtopic=89358&st=0&p=725199&hl=GuiRichEdit&fromsearch=1&#entry725199

jycel 发表于 2009-10-16 01:13:45

:face (29): 还是官方的~下载下来全是~~~

jycel 发表于 2009-10-16 19:39:26

既然能插入图片了，把图片改成变量不就行了
edit控件加个style可以接收图片
netegg 发表于 2009-10-16 00:31 http://www.autoitx.com/images/common/back.gif
帮助中未看到edit有style啊

sxd 发表于 2009-10-16 19:51:49

意思就是喊你用richedit试试 帮助里有1个richedit的例子 不过没有提到图片
我不懂richedit 靠你自己学习啦

jycel 发表于 2009-10-16 20:08:23

呵呵！马上研究研究！用创建图片控件的方法太丑了~~~

jycel 发表于 2009-10-16 22:02:16

整个GuiRichEdit看完，还翻译了一道！好像还没有看到相关的~~~打算放弃，换成弹出式的来，美观一点！呵呵！

bing614 发表于 2009-10-16 23:20:53

牛人，看完都没找到......:face (13): :face (13):
看附件!@

jycel 发表于 2009-10-16 23:45:50

本帖最后由 jycel 于 2009-10-16 23:56 编辑

:face (13):看到了，我是用的金山快译全部翻译一次，看代码看到了
试了下，有点不太会用……汗

akmm88 发表于 2009-10-17 00:06:26

对,只有RICHEDIT 中文一般称为富文本框,才能支持图文并茂,和多彩文字.

jycel 发表于 2009-10-17 00:11:44


提示出错，是没用对么“bing614 ”？
代码如下：
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiRichEdit.au3>
#include <GuiMenu.au3>
#include <GUIConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 633, 454, 192, 114)
$Edit1 = _GUICtrlRichEdit_Create($Form1, "",24, 16, 577, 297,BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL))
_GUICtrlRichEdit_AppendText($Edit1, ReadBmpToRtf(FindFirstBMP(@ScriptDir&"\send.bmp")) & @CR)
$Button1 = GUICtrlCreateButton("Button1", 216, 360, 153, 65)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit

        EndSwitch
WEnd

bing614 发表于 2009-10-17 01:05:31

_UDF_GetNextGlobalID改成__UDF_GetNextGlobalID

jycel 发表于 2009-10-17 01:48:03

解决一个问题，又出个新问题…指定的图片显示不了，却显示的其它图片，手机登陆的，看能回不！

jycel 发表于 2009-10-17 10:54:57

本帖最后由 jycel 于 2009-10-17 11:07 编辑

多弄几张图片来测试，是指定调用的图片，结果有时会出错，显示另一张

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiRichEdit.au3>
#include <GuiMenu.au3>
#include <GUIConstants.au3>
#include <_GUICtrlRichEdit_CanPaste.au3>
#Region ### START Koda GUI section ### Form=
$hGui = GUICreate("Form1", 633, 454, 192, 114)
      $hRichEdit = _GUICtrlRichEdit_Create($hGui, "This is a test" & @CR, 10, 10, 480, 420, _
                        BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL))
      _GUICtrlRichEdit_AppendText($hRichEdit, ReadBmpToRtf1(FindFirstBMP1(@ScriptDir&"\send1.bmp")) & @CR)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
      $nMsg = GUIGetMsg()
      Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit

      EndSwitch
        WEnd
Func ReadBmpToRtf1($sBmpFilspc)
        Local $hFile, $sRtf
        $hFile = FileOpen($sBmpFilspc, 16)
        If FileRead($hFile, 2) <> "0x424D" Then Return SetError(1, 0, "")
        FileRead($hFile, 12)
        $sRtf = '{\rtf1{\pict\dibitmap ' & Hex(FileRead($hFile)) & '}}'
        FileClose($hFile)
        Return $sRtf
EndFunc   ;==>ReadBmpToRtf

Func FindFirstBMP1($sPath); = @ScriptDir);@WindowsDir)
        Local $hFind, $sBmpFilspc
        $hFind = FileFindFirstFile($sPath); & "\*.bmp")
        $sBmpFilspc = FileFindNextFile($hFind)
        FileClose($hFind)
        Return $sPath & "\" & $sBmpFilspc
EndFunc   ;==>FindFirstBMP       
页: [1] 2
查看完整版本: [已解决]GUICtrlCreateEdit中能否插入图像？