Bonjour,
Avec un simple édit, ce n'est pas possible. Il faut passer par
_GUICtrlRichEdit_Create()
Mais on peut tricher en mettant un label sur l'édit où apparaîtra l'icone. Ce n'est pas très propre mais ça peut se faire
Code : Tout sélectionner
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
Global $Form1 = GUICreate(@ScriptName, 615, 438)
Global $Edit1 = GUICtrlCreateEdit("", 88, 24, 185, 225, BitOR($ES_WANTRETURN,$ES_MULTILINE))
GUICtrlSetData(-1, @TAB & "mon texte est ici mon texte est ici mon texte est ici mon texte est ici mon texte est ici mon texte est ici mon texte est ici ")
Global $label = GUICtrlCreateLabel("",95,25,30,20,$SS_CENTER)
GUICtrlSetData(-1, Chr(40))
GUICtrlSetFont(-1,12,Default,Default,"Wingdings") ;Webdings
GUICtrlSetState (-1,$GUI_ONTOP )
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
Global $button = GUICtrlCreateButton("ok",400,50,80,25)
Global $label1 = GUICtrlCreateLabel("",15,24,40,30,$SS_RIGHT)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $GUI_EVENT_PRIMARYUP, $GUI_EVENT_PRIMARYDOWN
GUICtrlSetState ($label,$GUI_SHOW ) ;pour garder le label visible
Case $button
For $y = 33 To 100 ;255
GUICtrlSetData($label, Chrw($y))
GUICtrlSetData($label1, "Chr(" & $y & ")" &@CRLF& Chr($y))
Sleep(1000)
Next
EndSwitch
WEnd
Ici, j'utilise la police Wingdings, il y a aussi Webdings. Je pense que c'est ce que vous souhaitez...