VBScript: вывод всплывающего комментария ToolTip

2006-11-14T19:03:47Z

Вывод всплывающего комментария ToolTip под курсор мыши:

Set Hh = CreateObject("Internet.HHCtrl")
Hh.TextPopup "Привет, Скрипт-кодинг!" & vbCrLf & _
"Контрол справки", "Lucida Console,8", 1, 1, 1, 1
WScript.Sleep 3000
Hh.TextPopup "Hello Script-Coding!" & vbCrLf & _
"HH Ctrl", "Courier New,36", 1, 1, 1, 1
WScript.Sleep 3000
Set Hh = Nothing

Internet.HHCtrl является стандартной компонентой Windows (%windir%\system32\hhctrl.ocx) и предназначен для поддержки справочной системы. В примере использован метод:

TextPopup(ByVal pszText As String, ByVal pszFont As String, ByVal horzMargins As Long, ByVal vertMargins As Long, ByVal clrForeground As Unsigned Long, ByVal clrBackground As Unsigned Long)

Возможно, что остальные методы Internet.HHCtrl используются приложением HH.exe и работают только в этом контексте.
Информацию опубликовал Poltergeyst.

Серый форум — VBScript: вывод всплывающего комментария ToolTip

VBScript: вывод всплывающего комментария ToolTip