[Mikka]

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

[Кулик Алексей aka kpblc]

Hyperlink?

[AlexV]

Если этот элемент - примитив автокада, то присвоить ему гиперссылку.
Что-то типа:

Код:

[Выделить все]

Dim points(0 To 15) As Double
Dim plineObj As AcadLWPolyline
Dim Hyperlinks As AcadHyperlinks
Dim Hyperlink As AcadHyperlink
.....
.....
Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
Set Hyperlinks = plineObj.Hyperlinks
Set Hyperlink = Hyperlinks.Add("Гиперссылка")
Hyperlink.URL = ThisDrawing.FullName
Hyperlink.URLDescription = "Текст всплывающей подсказки"
...

Ну, а если нужна всплывающая подсказка при наведении на контрол формы, то изменить свойство ControlTipText (CommandButton1.ControlTipText="XYZ")

[Mikka]

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

[samos]

Сообщение от Mikka убрать надпись "ctrl + плюс щелчек для перехода по ссылке"

А можно это реализовать?