Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для madmasles

Ветеран


Сообщения: 812
Благодарности: 353

Профиль | Отправить PM | Цитировать


semiono,
Попробуйте так:
читать дальше »
Код: Выделить весь код
#include <GUIConstantsEx.au3>
#include <Icons.au3>
#include <StaticConstants.au3>

Global Const $sRed = @ScriptDir & '\red.png'
Global Const $sGreen = @ScriptDir & '\green.png'
Global Const $sBlue = @ScriptDir & '\blue.png'
Global Const $sYellow = @ScriptDir & '\yellow.png'
$sDefault = 'Красный'

$hRed = _Icons_Bitmap_Load($sRed)
$hGreen = _Icons_Bitmap_Load($sGreen)
$hBlue = _Icons_Bitmap_Load($sBlue)
$hYellow = _Icons_Bitmap_Load($sYellow)


$hGui = GUICreate('Chords', 300, 340)
$hCombo = GUICtrlCreateCombo('', 10, 30, 280)
GUICtrlSetData(-1, 'Синий|Зеленый|Красный|Желтый', $sDefault)
$hLabel = GUICtrlCreateLabel('По умолчанию: ' & $sDefault, 10, 5, 280, 16, $SS_CENTER)
$hPic = GUICtrlCreatePic('', 22, 70, 256, 256)
_SetHImage($hPic, $hRed)
GUISetState()

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $hCombo
            $sFromCombo = GUICtrlRead($hCombo)
            GUICtrlSetData($hLabel, 'Вы выбрали: ' & $sFromCombo)
            Switch $sFromCombo
                Case 'Красный'
                    _SetHImage($hPic, $hRed)
                Case 'Зеленый'
                    _SetHImage($hPic, $hGreen)
                Case 'Синий'
                    _SetHImage($hPic, $hBlue)
                Case 'Желтый'
                    _SetHImage($hPic, $hYellow)
            EndSwitch
    EndSwitch
WEnd

Ссылка на библиотеку Icons.au3 в моем предыдущем посту. Не забудьте про нее. Картинки в прикрепленном архиве.

Последний раз редактировалось madmasles, 13-08-2011 в 14:30.

Это сообщение посчитали полезным следующие участники:

Отправлено: 21:22, 19-01-2011 | #4