• На форуме с 12 февраля 2009г.
  • Сообщений: 31
  • Спасибо: 0

Тема: Всплывающая подсказка

Доброго времени суток уважаемые, мне нужно показать всплывающую подсказку в autocad при наведении курсора на определенныы элемент!
Как это можно реализовать на vba?

Ответ от Александр Ривилис (изменено: Александр Ривилис, 3 мая 2009г. 14:10:24)

  • Откуда: Украина / Киев
  • На форуме с 15 апреля 2005г.
  • Сообщений: 8,666
  • Спасибо: 158

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

В VBA таких встроенных средств нет (есть в ObjectARX). Разве что приписывать Hyperlink к своим объектам.

  • На форуме с 12 февраля 2009г.
  • Сообщений: 31
  • Спасибо: 0

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

Хм, я об этом не подумал, спасибо большое, думаю мне подходит...

  • На форуме с 12 февраля 2009г.
  • Сообщений: 31
  • Спасибо: 0

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

Вот если бы можно было бы убрать надпись "ctrl + плюс щелчек для перехода по ссылке", вообще бы былобы классно!

  • На форуме с 4 марта 2008г.
  • Сообщений: 45
  • Спасибо: 0

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

А с помощью NET можно это сделать?

  • Откуда: Украина / Киев
  • На форуме с 15 апреля 2005г.
  • Сообщений: 8,666
  • Спасибо: 158

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

Можно. Но я не проверял на "глючность".

  • fixo
  • fixo
  • Активный участник
  • Откуда: СПб
  • На форуме с 7 февраля 2009г.
  • Сообщений: 869
  • Спасибо: 41

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

Кусок из рабочей прграммы, меня устраивает
Правда перевел с C#

        Private Sub txtMask_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs)
            Dim tt As ToolTip = New ToolTip
            tt.SetToolTip(txtMask, "Enter the first letter in any case" & Microsoft.VisualBasic.Chr(10) & " to search for complete word.")
            tt.ToolTipTitle = "Text Pattern"
            tt.IsBalloon = True
            tt.AutomaticDelay = 500
            tt.AutoPopDelay = 1000
            tt.InitialDelay = 200
            tt.ReshowDelay = 5000
            tt.ShowAlways = False
        End Sub

Может для твоей ситуации лучше повесить
подсказку на событие Mouse_Hover (зависания курсора над полем)

~'J'~

  • На форуме с 4 марта 2008г.
  • Сообщений: 45
  • Спасибо: 0

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

Александр Ривилис пишет:

Можно. Но я не проверял на "глючность".

Можно выложить код, я проверю :D

Ответ от Александр Ривилис (изменено: Александр Ривилис, 6 мая 2009г. 12:07:51)

  • Откуда: Украина / Киев
  • На форуме с 15 апреля 2005г.
  • Сообщений: 8,666
  • Спасибо: 158

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

Код выкладывать не буду. Объясню на пальцах. Добавляешь обработчик события Autodesk.AutoCAD.EditorInput.Editor.PointFilter. В этом обработчике один из параметров Autodesk.AutoCAD.EditorInput.PointFilterEventArgs, в котором в методе Result есть поле ToolTipText. Вот это поле можно читать и писать. Вот пример на VB.NET: http://www.objectarx.net/bbs/viewthread.php?tid=2763

  • На форуме с 4 марта 2008г.
  • Сообщений: 45
  • Спасибо: 0

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

Спасибо