| Автор | Сообщение |
|
|
| |
Пост N: 4
Зарегистрирован: 20.04.07
|
|
Отправлено: 16.03.10 07:58. Заголовок: Не работает команда SET TOOLTIPBALLOON ON
Доброго времени суток.
Не работает команда 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
[только новые]
|
|
|
|
| moderator
|
Пост N: 18
Зарегистрирован: 11.02.10
|
|
Отправлено: 16.03.10 11:52. Заголовок: Andrey_IV пишет: Я ..
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
|
|
|
|
- участник сейчас на форуме
- участник вне форума