按钮控件button改变景颜色和多行文体和显示图标三者不能同时有效

txxdhnt

按钮控件button改变景颜色和多行文体和显示图标三者不能同时有效。

#AutoIt3Wrapper_au3check_parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#include <GUIConstantsEx.au3>
#include <GuiButton.au3>
#include <GuiImageList.au3>
#include <WindowsConstants.au3>

Opt("MustDeclareVars", 1)

_Main()

Func _Main()
Local $hImage, $y = 70, $iIcon = 125, $btn[6], $rdo[6], $chk[6], $hImageSmall

GUICreate("Buttons", 1028, 600)
GUISetState()

$hImage = _GUIImageList_Create(32, 32, 5, 3, 6)
For $x = 6 To 11
_GUIImageList_AddIcon($hImage, "shell32.dll", $x, True)
Next



$btn[0] = GUICtrlCreateButton("Button1", 10, 10, 90, 50)
_GUICtrlButton_SetImageList($btn[0], $hImage)
Local $btnTitel="买入"&@CRLF&"600583"&@CRLF&"海油工程"&@CRLF&"5.78元"&@CRLF   &"3%"  &@CRLF &"1300"&@CRLF

For $x = 5 To 5
$btn[$x] = GUICtrlCreateButton( $btnTitel, 10, $y, 100, 100,$BS_MULTILINE)

GUICtrlSetStyle(-1, BitOR($BS_MULTILINE,$BS_BITMAP))

; GUICtrlSetBkColor($btn[$x], $GUI_BKCOLOR_TRANSPARENT )
;_GUICtrlButton_SetImageList($btn[$x], _GetImageListHandle(@ScriptDir&"\gray_buy_1.bmp", $iIcon + $x, True), 5)
_GUICtrlButton_SetImageList($btn[$x], $hImage)
$y += 100
; GUICtrlSetBkColor($btn[$x], 0xA0A0A4)
  GUICtrlSetColor($btn[$x], 0xff0000)
  GUICtrlSetStyle($btn[$x], BitOR($BS_MULTILINE,$BS_BITMAP))
Next




While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop
EndSwitch
WEnd

Exit
EndFunc   ;==>_Main

; using image list to set 1 image and have text on button
Func _GetImageListHandle($sFile, $nIconID = 0, $fLarge = False)
Local $iSize = 16
If $fLarge Then $iSize = 32

Local $hImage = _GUIImageList_Create(30, 100, 5, 3)
If StringUpper(StringMid($sFile, StringLen($sFile) - 2)) = "BMP" Then
_GUIImageList_AddBitmap($hImage, $sFile)
Else
_GUIImageList_AddIcon($hImage, $sFile, $nIconID, $fLarge)
EndIf
Return $hImage
EndFunc   ;==>_GetImageListHandle

xms77

这看着已经不像Button了

xms77

这看着已经不像Button了

netegg

取button句柄，gdi画