Что нового

Работа со вкладками(Tab)

RomanZemin

Новичок
Сообщения
12
Репутация
0
У меня две проблемы, мне нужно скрыть сами вкладки, оставить только содержимое в них. И на месте скрытых вкладок поставить обыкновенные кнопки. Вкладки создавались:
Код:
$tab = GUICtrlCreatetab(0, 54, 724, 572)
GuiCtrlSetState(-1, 2048)
GUICtrlCreateTabItem("Page 1")
GUICtrlCreateTabItem("Page 2")
GUICtrlCreateTabItem("Page 3")
GUICtrlCreateTabItem("Page 4")
GUICtrlCreateTabItem("Page 5")
GUICtrlCreateTabItem("Page 6")
_GUICtrlTab_SetCurFocus($tab, -1)
GUISwitch($GUI, _GUICtrlTab_SetCurFocus($tab, 1)&GUICtrlRead ($tab,  1))

После этого оформление внутри вкладок идёт.
 
Автор
R

RomanZemin

Новичок
Сообщения
12
Репутация
0
Хорошо, но отрисовка кнопок самостоятельно - это мне не подходит, как и вывод элементов GUI(Я бы мог переписать GUI, но уж слишком много элементов в одной вкладке, оптимизация будет никакущая). У меня уже написано всё GUI внутри табов, кнопки уже сделаны. Если не получится скрыть сами вкладки, то хотя-бы по кнопке сделать переход по вкладкам. У меня кнопки, поверх табов стоят, но при наведение на место табов они появляются, а если курсор на кнопке, они пропадают. Думаю просто табы вынести за пределы GUI, а кнопки сделать в другом месте. Но как всё-так совершить переход по табам, через кнопки. Надеюсь всё понятно объяснил.
 

InnI

AutoIT Гуру
Сообщения
4,912
Репутация
1,429
RomanZemin
Попробуйте стиль $TCS_BUTTONS и вкладки будут в виде кнопок
Код:
#include <TabConstants.au3>
$tab = GUICtrlCreatetab(0, 54, 724, 572, $TCS_BUTTONS)
Также можно добавить дополнительный стиль $TCS_FLATBUTTONS
Код:
$tab = GUICtrlCreatetab(0, 54, 724, 572, BitOR($TCS_BUTTONS, $TCS_FLATBUTTONS))
 
Автор
R

RomanZemin

Новичок
Сообщения
12
Репутация
0
Это конечно мне бы подошло, но у меня дополнительный UDF GUI стоит, который делает немного иначе выглядищие кнопки, вообщем попробую сделать вкладки вертикальными или же просто вниз их опустить и вынести их за пределы GUI. Но как же всё-таки переключаться по кнопкам по вкладкам?
 

InnI

AutoIT Гуру
Сообщения
4,912
Репутация
1,429
RomanZemin [?]
переключаться по кнопкам по вкладкам
Код:
#include <GuiConstants.au3>

GUICreate("Button Tab")
GUISetState()

$btn1 = GUICtrlCreateRadio("Page 1",   5, 5, 50, 30, $BS_PUSHLIKE)
$btn2 = GUICtrlCreateRadio("Page 2",  55, 5, 50, 30, $BS_PUSHLIKE)
$btn3 = GUICtrlCreateRadio("Page 3", 105, 5, 50, 30, $BS_PUSHLIKE)

$tab = GUICtrlCreatetab(5, 14, 390, 380)
$t1 = GUICtrlCreateTabItem(" ")
GUICtrlCreateCheckbox("11111", 20, 50)
$t2 = GUICtrlCreateTabItem(" ")
GUICtrlCreateCheckbox("22222", 20, 50)
$t3 = GUICtrlCreateTabItem(" ")
GUICtrlCreateCheckbox("33333", 20, 50)
GUICtrlCreateTabItem("")
GUICtrlSetStyle($tab, $WS_DISABLED)

GUICtrlSendMsg($btn2, $BM_CLICK, 0, 0)

While 1
  Switch GUIGetMsg()
    Case $GUI_EVENT_CLOSE
      Exit
    Case $btn1
      GUICtrlSetState($t1, $GUI_SHOW)
    Case $btn2
      GUICtrlSetState($t2, $GUI_SHOW)
    Case $btn3
      GUICtrlSetState($t3, $GUI_SHOW)
  EndSwitch
WEnd
 
Верх