Открытые члены | |
AddImages ([in] IDispatch *newVal) | |
Добавляет список изображений ImageList. | |
SetThumbnailClip (LONG Left, LONG Top, LONG Width, LONG Height) | |
Задает область, которая показывается в эскизе. | |
Свойства | |
IDispatch *RW | Buttons [] |
Объект Action для настройки кнопок. | |
LONG RW | State [] |
Состояние операции. | |
ULONG RW | Max [] |
Максимальное значение прогресса операции. | |
ULONG RW | Position [] |
Текущее значение прогресса операции. |
Требуется Windows 7. На предыдущих версиях Windows настройки не работают. Максимальное количество кнопок 7 (Ограничение Windows).
o = new ActiveXObject("Scripting.WindowSystemObject") f = o.CreateForm(0,0,0,0) f.ClientWidth = 500 f.ClientHeight = 400 f.CenterControl() with (f.TextOut(10,30,"TaskBar Example (Windows 7 required)")) { Font.Size = 16 Font.Color = 0x000000FF } with (f.TextOut(10,60,"Move mouse over Application Icon in the TaskBar")) { Font.Size = 14 Font.Color = 0x000000FF } Images = o.CreateImageList() Images.Load(ResourceDir()+"ToolBar.bmp") f.TaskBar.AddImages(Images) with (f.TaskBar.Buttons) { with (Add("Button 1")) { ImageIndex = 0 OnExecute = ButtonClick } with (Add("Button 2 (DismissonClick)")) { ImageIndex = 1 OnExecute = ButtonClick DismissonClick = true } with (Add("Button 3 (Noninteractive)")) { ImageIndex = 2 OnExecute = ButtonClick Noninteractive = true } with (Add("Button 4 (Nobackground)")) { ImageIndex = 3 OnExecute = ButtonClick Nobackground = true } } function ButtonClick(Sender) { f.MessageBox(Sender.Text) } f.DrawImage(10,100,400,250,ResourceDir()+"TaskBar.jpg") function TimerExecute(Sender) { Position = f.TaskBar.Position Position += 4 if (Position > 100) { Position = 0 State++ if (State % 4 == 1) { f.TaskBar.State = o.Translate("TBPF_PAUSED") } else if (State % 4 == 2) { f.TaskBar.State = o.Translate("TBPF_INDETERMINATE") } else if (State % 4 == 3) { f.TaskBar.State = o.Translate("TBPF_ERROR") } else { f.TaskBar.State = o.Translate("TBPF_NORMAL") } } f.TaskBar.Position = Position } f.TaskBar.Max = 100 State = 0 t = o.CreateTimer() t.OnExecute = TimerExecute t.Interval = 50 t.Active = true f.Show() o.Run() function ResourceDir(){return CurrentDir()+"..\\Data\\"} function CurrentDir() {s = WScript.ScriptFullName; s = s.substring(0,s.lastIndexOf("\\")+1); return s }
AddImages | ( | [in] IDispatch * | newVal | ) |
Добавляет список изображений ImageList.
Если добавлено несколько списков, будет выбран с оптимальным размером изображений.
SetThumbnailClip | ( | LONG | Left, | |
LONG | Top, | |||
LONG | Width, | |||
LONG | Height | |||
) |
Задает область, которая показывается в эскизе.
IDispatch* RW Buttons |
Объект Action для настройки кнопок.
ULONG RW Max |
Максимальное значение прогресса операции.
Значение по умолчанию: "0".
ULONG RW Position |
Текущее значение прогресса операции.
Значение по умолчанию: "0".
LONG RW State |
Состояние операции.
Может быть комбинацией следующих значений: