Всплывающая подсказка и значения полей

Пятница, 03 Февраля 2017 г. 00:51 + в цитатник

1) Существует несколько полей и для "TITLE" хочу присвоить значения из Me.[1_txt], Me.[2_txt], Me.[3_txt], Me.[4_txt]
в зависимости от того, на какое поле будет сделано нажатие. Не знаю, как именно присвоить, вроде все варианты испробованы.

  Const TooltipTitle As String = "TITLE"

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

    .lpszText = TooltipText & Me.[3_txt]

=========================================================

Private Sub Ctl1_Click()
    Call PopupView(Ctl1)
End Sub

SRC vba]Private Sub Ctl2_Click()
    Call PopupView(Ctl2)
End Sub

SRC vba]Private Sub Ctl3_Click()
    Call PopupView(Ctl3)
End Sub

SRC vba]Private Sub Ctl4_Click()
    Call PopupView(Ctl4)
End Sub

Function PopupView(TH)
If i = 0 Then
  Dim hWndParent As Long
  Dim hInstance As Long
  Dim EditRect As tRect
  Const TooltipText As String = " "
  
[quote автор]  Dim THT As String
  THT = """ & Me.[3_txt] & """

  Const TooltipTitle As String = "TITLE"
 
  Call TH.SetFocus
  hWndParent = GetFocus()
  hInstance = GetWindowLong(Application.hWndAccessApp, GWL_HINSTANCE)
  FHandle = CreateWindowEx(WS_EX_TOPMOST, _
    FTooltipClassName, 0&, _
    TTS_NOPREFIX Or TTS_BALLOON Or TTS_CLOSE, _
    0, 0, 0, 0, hWndParent, 0, hInstance, 0)
  With FToolInfo
    .cbSize = Len(FToolInfo)
    .uFlags = TTF_TRACK
    .hwnd = hWndParent
    Call GetClientRect(.hwnd, .rect)
    .rect.Top = 500
    .rect.Bottom = .rect.Top + 100
 '   .lpszText = TooltipText & TH & " " & Me.[3_txt]
    .lpszText = TooltipText & Me.[3_txt]
  End With
  Call SendMessage(FHandle, TTM_ADDTOOLA, 0, FToolInfo)
  Call SendMessage(FHandle, TTM_SETTITLE, TTI_INFO, ByVal TooltipTitle) 
  'ïîêàçûâàåì tooltip
  Call GetWindowRect(hWndParent, EditRect)
  Call SendMessage(FHandle, TTM_TRACKPOSITION, 0, _
    ByVal (EditRect.Left + 1) Or ((EditRect.Top + 1) * 65536)) 
  Call SendMessage(FHandle, TTM_TRACKACTIVATE, True, FToolInfo)
  i = 1
End If
End Function