1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
|
#include
#include
#include
#include
Example1 ()
Example2 ()
Функциональные Example1 ()
GUICreate («тип выбор», 500 экспорта)
GuiCtrlCreateLabel («этот сценарий приспосабливает 2 типа экспортов, каждого с своим собственным комплектом полей», 10, 10)
; Начните таблицу using ListView
$ListView = GUICtrlCreateListView ("", 10, 40, 480, 80)
_GUICtrlListView_AddColumn ($ListView, «тип», 100 экспорта)
_GUICtrlListView_AddColumn ($ListView, «поля», 380)
GUICtrlSetFont ($ListView, 8.5)
$item1 = GUICtrlCreateListViewItem («потерпел неудачу журнал факса|Вопрос, Компания, имя, телефонный номер/CallerID, Кодий ошибки», $ListView)
$item2 = GUICtrlCreateListViewItem («полный журнал факса|Вопрос, Компания, имя, телефонный номер/CallerId, дата, время, продолжительность, тип, Кодий ошибки, состояние, сообщение состояния, страницы, страницы S/R, повторенные попытки, разрешение, скорость», $ListView)
; Таблица конца using ListView
GuiCtrlCreateLabel («вы хотите? », 10, 160)
$Radio_Export1 = GUICtrlCreateRadio (« потерпел неудачу журнал», 20, 240, 120, 20 факса)
$Radio_Export2 = GUICtrlCreateRadio (« полный журнал», 20 , 260, 120, 20 факса)
GUICtrlCreateGroup ("", - 99, - 99.1.1)
$Button1_Continue = GuiCtrlCreateButton («продолжайтесь», 100, 300, 120, 20)
$Button2_Quit = GuiCtrlCreateButton («прекращено», 100, 320, 120, 20)
GUISetState ()
Пока 1
$msg = GUIGetMsg ()
Отборно
Случай $msg = $GUI_EVENT_CLOSE
ExitLoop
EndSelect
WEnd
EndFunc
Функциональные Example2 ()
$GUI_IECREATE = _IECreateEmbedded ()
GUICreate («тип выбор», 500 экспорта)
GuiCtrlCreateLabel («этот сценарий приспосабливает 2 типа экспортов, каждого с своим собственным комплектом полей», 10, 10)
; Начните таблицу using HTML
$HTM_IECREATE = ''
&= $HTM_IECREATE ''
&= $HTM_IECREATE '
'
&= $HTM_IECREATE ''
&= $HTM_IECREATE ''
&= $HTM_IECREATE ''
&= $HTM_IECREATE ''
&= $HTM_IECREATE ''
&= $HTM_IECREATE 'Тип экспорта | '
&= $HTM_IECREATE 'Поля | '
&= $HTM_IECREATE ' '
&= $HTM_IECREATE ''
&= $HTM_IECREATE 'Неудачный журнал факса | '
&= $HTM_IECREATE 'Вопрос, Компания, имя, телефонный номер/CallerID, Кодий ошибки | '
&= $HTM_IECREATE ' '
&= $HTM_IECREATE ''
&= $HTM_IECREATE 'Полный журнал факса | '
&= $HTM_IECREATE 'Вопрос, Компания, имя, телефонный номер/CallerId, дата, время, продолжительность, тип, Кодий ошибки, состояние, сообщение состояния, страницы, страницы S/R, повторенные попытки, разрешение, скорость | '
&= $HTM_IECREATE ' '
&= $HTM_IECREATE ' '
&= $HTM_IECREATE ''
&= $HTM_IECREATE ''
$OBJ_IECREATE = GUICtrlCreateObj ($GUI_IECREATE, 10, 40, 480, 138)
_IENavigate ($GUI_IECREATE, «около: пробел ")
_IEDocWriteHTML ($GUI_IECREATE, $HTM_IECREATE)
; Таблица конца using HTML
GuiCtrlCreateLabel («вы хотите? », 10, 180)
$Radio_Export1 = GUICtrlCreateRadio (« потерпел неудачу журнал», 20, 240, 120, 20 факса)
$Radio_Export2 = GUICtrlCreateRadio (« полный журнал», 20 , 260, 120, 20 факса)
GUICtrlCreateGroup ("", - 99, - 99.1.1)
$Button1_Continue = GuiCtrlCreateButton («продолжайтесь», 100, 300, 120, 20)
$Button2_Quit = GuiCtrlCreateButton («прекращено», 100, 320, 120, 20)
GUISetState ()
Пока 1
$msg = GUIGetMsg ()
Отборно
Случай $msg = $GUI_EVENT_CLOSE
Выход
EndSelect
WEnd
EndFunc
|