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