Открытые члены | |
| 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 |
Состояние операции.
Может быть комбинацией следующих значений: