1 Тема от The gray Cardinal

  • The gray Cardinal
  • Разработчик
  • Неактивен

Тема: VBScript: имитация индикатора пргресса с помощью Tooltip

Скрипт выводит Tooltip, имитирующий индикатор пргресса, в виде полоски вверху экрана.
Потребуется библиотека AutoItX3.dll.
Автор примера - alexii.

Option Explicit

Dim objAutoItX

Dim intCoordX
Dim intCoordY

Dim strWinDesktop
Dim i

Set objAutoItX = CreateObject("AutoItX3.Control") 

strWinDesktop = "[TITLE:Program Manager; CLASS:Progman;]"

intCoordX = objAutoItX.WinGetPosWidth(strWinDesktop) \ 4
intCoordY = objAutoItX.WinGetPosHeight(strWinDesktop) - objAutoItX.WinGetPosHeight(strWinDesktop) \ 10

' Примечание: здесь "—" - символ с кодом Alt0151 (длинное тире)
objAutoItX.ToolTip String(100, "—"), intCoordX, intCoordY

For i = 1 To 100
    ' Вместо этого какая-то работа
    WScript.Sleep 1000
    '
    
    ' Примечание: здесь "—" - символ с кодом Alt0151 (длинное тире)
    ' должна быть одинаковая ширина символов "=" и "—"
    objAutoItX.ToolTip String(i, "=") & String(100 - i, "—"), intCoordX, intCoordY
Next

objAutoItX.ToolTip ""

Set objAutoItX = Nothing
Предложения в русском языке начинаются с большой буквы и заканчиваются точкой.
В названии ветки всегда должен быть указан язык программирования или среда исполнения скрипта, если это возможно.