Форум » GUI » Не работает команда SET TOOLTIPBALLOON ON » Ответить
Не работает команда SET TOOLTIPBALLOON ON
Andrey_IV: Доброго времени суток. Не работает команда SET TOOLTIPBALLOON ON Думал, что только на моем компьютере, но после проверки на других - то-же самое. Я что-то упустил ? Или это ошибка ? Если команда включена: SET TOOLTIPBALLOON ON - то подсказки видны только в кнопках TOOLBAR, а во всех остальных контролах их вообще нет. Причем в TOOLBAR они обычные (как при SET TOOLTIPBALLOON OFF) Если команду отключить: SET TOOLTIPBALLOON OFF - то все подсказки видны во всех контролах. Демо-примеры SAMPLES\BASIC\Tooltip_Balloon\demo2.prg и SAMPLES\BASIC\Tooltip_Balloon\demo3.prg - то-же самое.
Ответов - 1
gfilatov2002: Andrey_IV пишет: Я что-то упустил ? Не забывай о том, что вывод всплывающих подсказок (balloon tooltip) может быть отключен в Винде через ключик в реестре (см. скрипт ниже) Option Explicit On Error Resume Next Dim WSHShell, n, p, itemtype, MyBox Set WSHShell = WScript.CreateObject("WScript.Shell") p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\EnableBalloonTips" itemtype = "REG_DWORD" n = WSHShell.RegRead (p) errnum = Err.Number if errnum <> 1 then WSHShell.RegWrite p, 0, itemtype End If If n = 0 Then WshShell.RegWrite p, 1, itemtype MyBox = MsgBox("Balloon Tips are now ENABLED", 64, "Show or Hide Balloon Tips") End If If n = 1 Then WshShell.Regwrite p, 0, itemtype MyBox = MsgBox("Balloon Tips are now DISABLED", 64, "Show or Hide Balloon Tips") End If Set WshShell = Nothing
полная версия страницы