[Creat0R]

VNRed_OK, Код принято заключать в соответствующий тег.

Возможно это нужно:

Код:

#include <GUIConstantsEx.au3>

Opt('MustDeclareVars', 1)

Example()

Func Example()
    Local $tab, $tab0, $tab0OK, $tab0input, $msg
    Local $tab1, $tab1combo, $tab1OK, $tab11K

    GUICreate("My GUI Tab", 300, 150) ; will create a dialog box that when displayed is centered

    GUISetBkColor(0x00E0FFFF)
    GUISetFont(9, 300)

    $tab = GUICtrlCreateTab(10, 10, 200, 100)

    $tab0 = GUICtrlCreateTabItem("Connect")
    $tab0OK = GUICtrlCreateButton("Connect", 20, 50, 50, 20)
    $tab1combo = GUICtrlCreateCombo("", 80, 50, 80, 120)
    GUICtrlSetData(-1, "73|74|75|", "SIEMENS")

    GUISetState()

    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                ExitLoop
            Case $tab0OK
                WinActivate("Patty")
                Send("Telnet 10.10.10." & GUICtrlRead($tab1combo))

                $tab1 = GUICtrlCreateTabItem("DATA")
                GUICtrlCreateLabel("Плата-Порт", 30, 80, 80, 20)
                $tab1combo = GUICtrlCreateCombo("", 20, 50, 40, 120)
                GUICtrlSetData(-1, "1|2|3|4|5", "")
                $tab1combo = GUICtrlCreateCombo("", 70, 50, 40, 120)
                GUICtrlSetData(-1, "1|2|3|4|5", "")
                $tab1OK = GUICtrlCreateButton("SNR", 120, 50, 50, 20)
                $tab11K = GUICtrlCreateButton("SPEED", 120, 80, 60, 20)
        EndSwitch
    WEnd
EndFunc

[VNRed_OK]

Извиняюсь за долгий ответ и за "не покраску"кода, всё замечательно работает. Creat0R спасибо!!! Тема решена, можно закрыть

[Creat0R]

Тема решена »

Не видно.

[VNRed_OK]

На рабочей программе не проверял - сейчас нахожусь в командировке, а в тестовом режиме работает как надо:

Код:

#include <GUIConstantsEx.au3>

Opt('MustDeclareVars', 1)

Example()

Func Example()
    Local $msg,$tab0input
    Local $tab, $tab0, $tab1, $tab2
    Local $tab3OK,$tab2OK,$tab0OK,$tab4OK,$tab5OK
    Local $tab2combo,$tab3combo,$tab1combo,$tab4combo,$tab5combo,$tab6combo

    GUICreate("ИЗМЕРЕНИЯ", 220, 130)

    GUISetBkColor(0x00E0FFFF)
    GUISetFont(9, 300)

    $tab = GUICtrlCreateTab(10, 10, 200, 105)

    $tab0 = GUICtrlCreateTabItem("Connect")
    $tab0OK = GUICtrlCreateButton("Connect", 20, 50, 50, 20)
    $tab1combo = GUICtrlCreateCombo("", 80, 50, 50, 120)
    GUICtrlSetData(-1, "73|74|75|", "SIEMENS")

    $tab1 = GUICtrlCreateTabItem("DATA")
    GUICtrlCreateLabel("Плата-Порт", 30, 80, 80, 20)
    $tab2combo = GUICtrlCreateCombo("", 20, 50, 40, 120)
    GUICtrlSetData(-1, "1|2|3|4|5|6|7|8|9|10|11|12|13|14|15|16", "")
    $tab3combo = GUICtrlCreateCombo("", 70, 50, 50, 120)
    GUICtrlSetData(-1, "1|2|3|4|5|6|7|8|9|10|11|12|13|14|15|16|17|18|19|20|21|22|23|24", "")
    $tab2OK = GUICtrlCreateButton("SNR", 140, 50, 50, 20)
    $tab3OK = GUICtrlCreateButton("SPEED", 140, 80, 60, 20)

    $tab2 = GUICtrlCreateTabItem("SetUp")
    ;GUICtrlCreateLabel("Плата-Порт", 30, 80, 80, 20)
    $tab4combo = GUICtrlCreateCombo("", 20, 35, 70, 90)
    GUICtrlSetData(-1, "плата|1|2|3|4|5|6|7|8|9|10|11|12|13|14|15|16|", "плата")
    $tab5combo = GUICtrlCreateCombo("", 20, 60, 70, 90)
    GUICtrlSetData(-1, "порт|1|2|3|4|5|6|7|8|9|10|11|12|13|14|15|16|17|18|19|20|21|22|23|24|", "порт")
    $tab6combo = GUICtrlCreateCombo("", 20, 85, 110, 90)
    GUICtrlSetData(-1, "профиль|xsdl 2048/512|xsdl 4096/1024|xsdl 6144/1024|xsdl 10240/1024|", "профиль")
    $tab4OK = GUICtrlCreateButton("SHOW", 140, 40, 60, 20)
    $tab5OK = GUICtrlCreateButton("SET", 150, 65, 50, 20)

    GUISetState()

    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                ExitLoop
            Case $tab0OK
                WinActivate("TEMP - Блокнот")
                Send("Telnet 10.10.75." & GUICtrlRead($tab1combo))
                Send("{ENTER}")
            Case $tab2OK
                WinActivate("TEMP - Блокнот")
                Send("show lre xdsl " & GUICtrlRead($tab2combo))
                Send("/" & GUICtrlRead($tab3combo))
                Send(" band-table" )
                Send("{ENTER}")
            Case $tab3OK
                WinActivate("TEMP - Блокнот")
                Send("show lre xdsl " & GUICtrlRead($tab2combo))
                Send("/" & GUICtrlRead($tab3combo))
                Send(" phisycal table linerates" )
                Send("{ENTER}")


        EndSwitch
    WEnd
EndFunc