1

我的程序大量使用了 Windows 内置的气球工具提示，但在某些系统上它们只是不显示。这可能有很多不同的原因（例如：EnableBalloonTips、ShowInfoTip、DisablePreviewDesktop、TaskbarNoNotification 都是可能产生影响的不同注册表项），因此在安装期间几乎不可能更正这些设置。

所以我的替代方法是简单地测试气球是否可见，如果不可见，则显示一条消息，他们应该联系支持人员。然而，我在工具提示的 hWnd 上使用的所有方法（IsWindowVisible、GetActiveWindow 等）都返回气球是可见的，即使在它不可见的情况下也是如此。我怀疑这与 Windows 将父级的 hWnd 分配给气球有关，那么如何检查它的实际显示是否正确？

Public Sub Create(ByVal hWndParent As Long, _
  Optional ByVal bAlwaysTip As Boolean = True, _
  Optional ByVal bBalloonTip As Boolean = True)

  Dim nFlags As Long

  ' Wir möchten kein normales Fenster :-)
  nFlags = WS_POPUP Or TTS_NOPREFIX

  ' Falls der ToolTip auch bei deaktiviertem 
  ' Control erscheinen soll...
  If bAlwaysTip Then nFlags = nFlags Or TTS_ALWAYSTIP

  ' Falls ein "moderner" Balloon-ToolTip erwünscht...
  If bBalloonTip Then nFlags = nFlags Or TTS_BALLOON

  ' Window-Handle erstellen  
  m_hWnd = CreateWindowEx(0, "tooltips_class32", 0, _
    nFlags, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, _
    CW_USEDEFAULT, hWndParent, 0, App.hInstance, 0)

  ' maximale Fensterbreite festlegen
  SendMessageLong m_hWnd, TTM_SETMAXTIPWIDTH, 0, m_lMaxWidth
End Sub

Public Sub SetToolTipText(hWnd As Long, ByVal strText As String)

    Dim udtToolInfo As TOOLINFO
    With udtToolInfo
        .hWnd = hWnd
        .uId = hWnd
        .lpszText = strText
        .cbSize = Len(udtToolInfo)
    End With

    SendMessage m_hWnd, TTM_UPDATETIPTEXTA, 0, udtToolInfo

End Sub
4

1 回答 1

0

您确实应该隔离影响您的应用程序的注册表项并进行适当的更改。如果这就是您最终通过支持所做的事情，那么强制进行更改也许是很自然的。

但是更好的主意是编写您自己的解决方案，例如，创建您自己的直接针对您的应用程序量身定制的窗口。它会为您提供您想要的功能，而无需 Windows 一直在处理您的问题。

于 2013-08-21T22:24:09.113 回答