snoitaleR
AutoIT Гуру
- Сообщения
- 855
- Репутация
- 223
Предлагаю пример создания вкладок без использования GUICtrlCreateTab...
Код:
; НАЧАЛО
$GUI=GUICreate('Вкладки')
Dim $TABITEM[4][5]
$TABITEM[1][0]=GUICtrlCreateButton('1 вкладка',10,10,100,25)
$TABITEM[2][0]=GUICtrlCreateButton('2 вкладка',10+100,10,100,25)
$TABITEM[3][0]=GUICtrlCreateButton('3 вкладка',10+100+100,10,100,25)
$TABITEM[1][1]=GUICtrlCreateList('Список 1',10,10+30,100,200)
$TABITEM[1][2]=GUICtrlCreateButton('Кнопка 1',10+100+10,100,100,25)
$TABITEM[2][1]=GUICtrlCreateList('Список 2',10,10+30,100,200)
$TABITEM[2][2]=GUICtrlCreateButton('Кнопка 2',10+100+10,100,100,25)
$TABITEM[3][1]=GUICtrlCreateList('Список 3',10,10+30,100,200)
$TABITEM[3][2]=GUICtrlCreateButton('Кнопка 3',10+100+10,100,100,25)
SHOWTAB(1)
GUISetState()
While True
Switch GUIGetMsg()
Case -3
Exit
Case $TABITEM[1][0]
SHOWTAB(1)
Case $TABITEM[2][0]
SHOWTAB(2)
Case $TABITEM[3][0]
SHOWTAB(3)
Case $TABITEM[1][1]
MsgBox(0,'1 вкладка','Выбран список')
Case $TABITEM[1][2]
MsgBox(0,'1 вкладка','Нажата кнопка')
Case $TABITEM[2][1]
MsgBox(0,'2 вкладка','Выбран список')
Case $TABITEM[2][2]
MsgBox(0,'2 вкладка','Нажата кнопка')
Case $TABITEM[3][1]
MsgBox(0,'3 вкладка','Выбран список')
Case $TABITEM[3][2]
MsgBox(0,'3 вкладка','Нажата кнопка')
EndSwitch
WEnd
Func SHOWTAB($NUMBER)
For $I=1 To Ubound($TABITEM,1)-1
For $J=1 To Ubound($TABITEM,2)-1
If $TABITEM[$I][$J] Then GUICtrlSetState($TABITEM[$I][$J],32)
Next
Next
For $I=1 To Ubound($TABITEM)-1
If $TABITEM[$NUMBER][$I] Then GUICtrlSetState($TABITEM[$NUMBER][$I],16)
Next
EndFunc
; КОНЕЦ