Tooltips

Описание.

Модуль "modTooolTip.bas" позволяет использовать всплывающие подсказки из стандартной библиотеки "comctl32.dll". Эта библиотека есть во всех версиях Windows в любой поставке, также она обновляется при установке свежих версий IE.

Функции и процедуры.

Public Function ToolTip_Create _
	(ByVal lpParent As Long, _
	Optional ByVal bpBalloon As Boolean = False) As Integer

Создает окно которое будет использовать подсказка для отображения. Возвращает порядковый номер созданного окна.
lpParent	Идентификатор (hWnd) родительского окна на котором располагается контрол с подсказкой.
bpBaloon	Определяет, будет ли подсказка в форме шарика или же прямоугольной (по умолчанию).

Public Sub ToolTip_Set(ByVal lpWnd&, ByVal ipCreatedWindow%, ByVal spText$, _
                      Optional ByVal lpBgColor& = vbInfoBackground, _
                      Optional ByVal lpForeColor& = vbInfoText, _
                      Optional ByVal lpMaxWidth& = 300, _
                      Optional ByVal lpDelayTime& = 500, _
                      Optional ByVal lpVisibleTime& = 2000, _
                      Optional ByVal bpCenter As Boolean = False)

Устанавливает подсказку для какого-нибудь окна. Для одного созданного окна подсказки может быть назначено сколь угодно окон, которым назначаются подсказки.
lpWnd	Идентификатор (hWnd) окна контрола с подсказкой.
ipCreatedWindow	Номер созданного окна подсказки.
spText	Текст подсказки. Если этот параметр равен "", то подсказка не появляется.
lpBgColor	Цвет фона. По умолчанию цвет фона подсказки Windows.
lpForeColor	Цвет текста. По умолчанию цвет текста подсказки Windows.
lpMaxWidth	Максимальная ширина подсказки. Если какое-либо слово длиннее этого значения, то максимальная ширина становится равной его длине.
lpDelayTime	Время, которое требуется, чтобы пользователь задержал курсор для появления подсказки.
lpVisibleTime	Время. которое подсказка остается видимой.
bpCenter	Определяет, появляетсы ли подсказка по центру или под курсором (по умолчанию).

Public Sub ToolTip_Destroy()

Уничтожает все созданные ранее окна подсказок.

Public Sub ToolTip_Hide(ByVal ipCreatedWindow%)

Прячет подсказку раньше времени, если это необходимо.
ipCreatedWindow	Номер созданного окна подсказки.

Public Function ToolTip_Init() As Boolean

Инициализирует библиотеку "comctl32.dll". Возвращает True в случае успеха и False в случае ошибки (ранняя версия). В большинстве случаев подсказки будут нормально работать даже при возвращении False.

Использование

В самом начале программы вставьте функцию ToolTip_Init. Затем необходимо создать окно подсказки с помощью функции ToolTip_Create и назначить его какому-нибудь окну, например, Command1.hWnd с помощью процедуры ToolTip_Set.

B конце вашей программы необходимо уничтожить подсказки с помощью процедуры ToolTip_Destroy.

Автор

Юрасов Михаил, 2001 г. Вы можете использовать этот код как угодно по своему усмотрению.

Посетите сайт Visual Basic Developers Help (http://www.vb.4u.ru/). Там Вы найдете много интересных и полезных материало в по Visual Basic.