Всплывающая подсказка.

Среда, 15 Июля 2015 г. 10:13 + в цитатник

Знаю что подобные темы уже были (и я их в меру своего понимания перелопатил), но таки не все понятно, поэтому создаю эту.

Итак задача - имеется некоторая подчиненная форма на которой представлены данные в табличном виде. Длины полей фиксированы - а в некоторых полях таки понаписано до полутора сотен символов. Необходимо что бы при задержке мышки над полем выводилась "подсказка" в которой было бы видно содержание всего поля. При этом хотелось бы что бы это было достаточно просто (а то есть такие варианты (очень красивые конечно, но...) в которых можно месяц разбираться как это работает. И еще месяц это программировать. Надо просто, тупо, квадратно.

Что было сделано. Создана всплывающая форма hfrmTipText в модуле которой (в соответствии с одним из примеров для появления формы ровно там куда указывает мышка (что тоже не супер лучше было бы непосредственно под полем - но и так сойдет)) внес:

Option Compare Database
Option Explicit

Private Declare Function MoveWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
Private Declare Function GetCursorPos Lib "user32.dll" (lpPoint As POINT_TYPE) As Long
Private Declare Function GetWindowRect Lib "user32.dll" (ByVal hwnd As Long, lpRect As Rect) As Long

Private Type POINT_TYPE
X As Long
Y As Long
End Type

Private Type Rect
left As Long
top As Long
right As Long
bottom As Long
End Type

Private Sub Form_Open(Cancel As Integer)
Dim coord As POINT_TYPE ' êîîðäèíàòû êóðñîðà
Dim retval As Long ' âîçâðàùàåìîå çíà÷åíèå
Dim r As Rect ' ðàçìåðû îêíà
retval = GetCursorPos(coord) ' ñ÷èòûâàåì ïîçèöèþ êóðñîðà
retval = GetWindowRect(Me.hwnd, r) ' ñ÷èòûâàåì ðàçìåðû òåêóùåãî îêíà
' Ïåðåìåùàåì îêíî ôîðìû ïî ïîçèöèè êóðñîðà
retval = MoveWindow(Me.hwnd, coord.X, coord.Y + 10, r.right - r.left, r.bottom - r.top, 1)
End Sub

У формы нет ни кнопок, ни границ. Просто квадратная панелька с лейблом.

По событию OnMousMove целевого поля запускается программа:

Private Sub cmbApplication_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Shift = 1 Then
    Me.cmbApplication.SetFocus
    If Me.cmbApplication.VALUE <> "" Then
        DoCmd.OpenForm "hfrmTipText", acNormal, , , acFormReadOnly, acWindowNormal
        Forms!hfrmTipText.lblTipText.Caption = Me.cmbApplication.Text
    End If
End If
End Sub

И все бы блин ничего - да вот только надпись в "подсказке" меняется только при заходе на поле со стороны (слева или справа). При перемещении мышки в пределах поля (по всем записям) при переходе границы записи - надпись не меняется. А это крайне не удобно. Что можно с этим поделать?

LiveInternetLiveInternet

-Поиск по дневнику

-Подписка по e-mail

-Постоянные читатели

-Статистика

Перейти к полной формеБыстрая запись