双显示器上的控制提示文字?

时间:2017-05-18 14:59:59

标签: excel vba excel-vba userform

我有一个包含大量用户表单和字段的应用程序的小型用户社区。 我在大多数字段上添加了ControlTipText作为帮助/提醒。 在辅助监视器上打开/显示用户表单时出现问题,黄色的东西 (ControlTipText)弹出主监视器的右边缘。 不是一个大问题,但很烦人。 有人解决了这个问题?

2 个答案:

答案 0 :(得分:1)

相同的问题,通过以下方式解决:

创建一个具有独特背景色的标签,该标签位于要为其编写提示文本的控件上 用标签visible = false初始化UF,例如Userform1.label1.visible =否 使用“ mousemove”事件编写代码以显示标签     Private Sub TextBox1_MouseMove(ByVal按钮为整数,ByVal Shift为整数,ByVal X为单个,ByVal Y为单个) label1.visible = true '所需的位置标签 结束

这次使用标签上的单击或鼠标移动事件来消除工具提示。您将在VB编辑器中的控件上有很多标签。

作为替代方案,我创建了一个带有“信息”图标的标签,可单击该标签来取消隐藏工具提示标签,而不是有时单击鼠标移动事件

答案 1 :(得分:0)

由于ControlTipTextText Box属性,它没有任何可以让您调整其位置的成员。

It seems like解决问题的唯一方法是在主监视器上查看Excel。如果它有用,您可以强制Excel移动到主监视器,如下所示:

With Application
    .WindowState = xlNormal
    .Left = 0
    .Top = 0
    .WindowState = xlMaximized
End With