Что нового

Как изменить скрипт из справки

bulldog5293

Знающий
Сообщения
172
Репутация
9
Как в этом скрипте из справки зделать отображение таба с настройками
Код:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>

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

$Form1 = GUICreate("AutoBot", 500, 300)
$Tab1 = GUICtrlCreateTab(2, 2, 500, 300)
GUICtrlSetState(-1,$GUI_SHOW)   ; will be display first
$TabItem1 = GUICtrlCreateTabItem("Настройки")
$Button1 = GUICtrlCreateButton("Button1", 405, 25, 80)
$iMemo1 = GUICtrlCreateEdit("", 0, 25, 400, 275)
GUICtrlSetFont($iMemo1, 9, 400, 0, "Courier New")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetColor(-1, 0xFFDAB9)
GUISetState()
GUICtrlCreateTabItem("")

$TabItem2 = GUICtrlCreateTabItem("2")
$Button2 = GUICtrlCreateButton("Button2", 405, 25, 80)
$iMemo2 = GUICtrlCreateEdit("", 0, 25, 400, 275)
GUICtrlSetFont($iMemo2, 9, 400, 0, "Courier New")
GUICtrlSetBkColor(-1, 0xff0000)
GUICtrlSetColor(-1, 0xFFDAB9)
GUISetState()
GUICtrlCreateTabItem("")

$TabItem3 = GUICtrlCreateTabItem("3")
$Button3 = GUICtrlCreateButton("Button3", 405, 25, 80)
$iMemo3 = GUICtrlCreateEdit("", 0, 25, 400, 275)
GUICtrlSetFont($iMemo3, 9, 400, 0, "Courier New")
GUICtrlSetBkColor(-1, 0xDD00CC)
GUICtrlSetColor(-1, 0xFFDAB9)
GUISetState()
GUICtrlCreateTabItem("")

$TabItem4 = GUICtrlCreateTabItem("4")
$Button4 = GUICtrlCreateButton("Button4", 405, 25, 80)
$iMemo4 = GUICtrlCreateEdit("", 0, 25, 400, 275)
GUICtrlSetFont($iMemo4, 9, 400, 0, "Courier New")
GUICtrlSetBkColor(-1, 0xDDFFCC)
GUICtrlSetColor(-1, 0xFFDAB9)
GUISetState()   
GUICtrlCreateTabItem("")

$TabItem4 = GUICtrlCreateTabItem("5")
$Button4 = GUICtrlCreateButton("Button4", 405, 25, 80)
$iMemo4 = GUICtrlCreateEdit("", 0, 25, 400, 275)
GUICtrlSetFont($iMemo4, 9, 400, 0, "Courier New")
GUICtrlSetBkColor(-1, 0xDDFFCC)
GUICtrlSetColor(-1, 0xFFDAB9)
GUISetState()   
GUICtrlCreateTabItem("")


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd



Добавлено:
Сообщение автоматически объединено:

Вопрос снят
Код:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>

$Form1 = GUICreate("AutoBot", 500, 300, 300, 100)
$tab=GUICtrlCreateTab (10,1, 500,100)
$Tab1 = GUICtrlCreateTab(2, 2, 500, 300)
GUICtrlSetState(-1,$GUI_SHOW)   ; will be display first
$TabItem1 = GUICtrlCreateTabItem("Настройки")
$Button1 = GUICtrlCreateButton("Button1", 405, 25, 80)
$iMemo1 = GUICtrlCreateEdit("", 0, 25, 400, 275)
GUICtrlSetFont($iMemo1, 9, 400, 0, "Courier New")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetColor(-1, 0xFFDAB9)
GUISetState()
GUICtrlCreateTabItem("")

$TabItem2 = GUICtrlCreateTabItem("Буксы")
$Button2 = GUICtrlCreateButton("Button2", 405, 25, 80)
$iMemo2 = GUICtrlCreateEdit("", 0, 25, 400, 275)
GUICtrlSetFont($iMemo2, 9, 400, 0, "Courier New")
GUICtrlSetBkColor(-1, 0xff0000)
GUICtrlSetColor(-1, 0xFFDAB9)
GUISetState()

$TabItem3 = GUICtrlCreateTabItem("Сёрфы")
$Button3 = GUICtrlCreateButton("Button3", 405, 25, 80)
$iMemo3 = GUICtrlCreateEdit("", 0, 25, 400, 275)
GUICtrlSetFont($iMemo3, 9, 400, 0, "Courier New")
GUICtrlSetBkColor(-1, 0xDD00CC)
GUICtrlSetColor(-1, 0xFFDAB9)
GUISetState()

$TabItem4 = GUICtrlCreateTabItem("Почтавики")
$Button4 = GUICtrlCreateButton("Button4", 405, 25, 80)
$iMemo4 = GUICtrlCreateEdit("", 0, 25, 400, 275)
GUICtrlSetFont($iMemo4, 9, 400, 0, "Courier New")
GUICtrlSetBkColor(-1, 0xDDFFCC)
GUICtrlSetColor(-1, 0xFFDAB9)
GUISetState()   


$TabItem4 = GUICtrlCreateTabItem("Ручная проверка")
$Button4 = GUICtrlCreateButton("Button4", 405, 25, 80)
$iMemo4 = GUICtrlCreateEdit("", 0, 25, 400, 275)
GUICtrlSetFont($iMemo4, 9, 400, 0, "Courier New")
GUICtrlSetBkColor(-1, 0xDDFFCC)
GUICtrlSetColor(-1, 0xFFDAB9)
GUISetState()   



While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8 472
Репутация
2 401
bulldog5293 [?]
Тогда тему нужно помечать как решённую.

P.S.
Квадрат отображаемый при создании темы с выделенным текстом внутри я так понимаю не бросается в глаза? могу увеличить его...
 
Верх