Добрый день.
сильно не пинайте, только учусь. Переменные внутри функции работает. если несколько функций то код слишком большой получается.
сильно не пинайте, только учусь. Переменные внутри функции работает. если несколько функций то код слишком большой получается.
Код:
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 302, 111, 192, 114)
Global $Combo1 = GUICtrlCreateCombo("", 24, 24, 145, 25)
GUICtrlSetData(-1, "яблоко|шарик|вода|трава|изолента", "яблоко")
$Button1 = GUICtrlCreateButton("Button1", 192, 24, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Global $msg
;#cs ; это не работает
$msg = GUICtrlRead($Combo1)
if $msg = "яблоко" Then $msg = ("красное")
if $msg = "шарик" Then $msg = ("круглый")
if $msg = "вода" Then $msg = ("мокрая")
if $msg = "трава" Then $msg = ("зеленая")
if $msg = "изолента" Then $msg = ("синяя")
;#ce
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
start()
EndSwitch
WEnd
Func start()
#cs ; это работает
$msg = GUICtrlRead($Combo1)
if $msg = "яблоко" Then $msg = ("красное")
if $msg = "шарик" Then $msg = ("круглый")
if $msg = "вода" Then $msg = ("мокрая")
if $msg = "трава" Then $msg = ("зеленая")
if $msg = "изолента" Then $msg = ("синяя")
#ce
MsgBox (0,"info", $msg )
endFunc
Последнее редактирование модератором: