Макрос для подключения MSDN .NET к Visual C++ 6.0
Опубликовано: 05.11.2002
Исправлено: 13.03.2005
Версия текста: 1.0
Описание
Выпустив Visual Studio .NET компания Microsoft стала распространять MSDN в новой, более удобной и «продвинутой» оболочке, называемой Microsoft Document Explorer. К сожалению, Microsoft почему-то «забыла» предложить приемлемый способ использования новых редакций MSDN в старой доброй IDE от Visual C++ 6.0. Вместо этого в официальной документации декларируется попросту несовместимость новых версий MSDN с инструментальными средами старых версий. Необходимость же частого и оперативного использования подобной связки, возможно, возникла не только у автора этих строк. Но все ли так безнадежно? Публикуемый макрос призван частично ликвидировать вынужденные неудобства пользователей MS VC 6.0, заставив послужить ещё технологию COM на благо разработчиков, не торопящихся перейти к использованию последней версии Visual C++, но нуждающихся в самой свежей справочной информации.
Инструкция по применению
- В IDE Visual C++ 6.0 открыть диалог «Macro» (из меню «Tools / Macro»).
- Нажать на кнопку «Edit».
- Добавить в конец файла текст макроса RunMSDNdotNET.
- Вызвать из контекстного меню редактора команду «Reload Macro File». В данном случае, если всё хорошо и Ваш файл не содержит синтаксических ошибок, то ничего не произойдет. Иначе будет выдано соответствующее сообщение.
- Снова открыть диалог «Macro», выбрать в списке макрос RunMSDNdotNET. Затем нажать на кнопки «Option» и «Keystrokes». Теперь Вы сможете назначить макросу “горячую клавишу”, например Ctrl+F1 или даже более радикально - F1.
ПРИМЕЧАНИЕ
Все упомянутые торговые марки являются собственностью соответствующих владельцев.
|
Текст макроса RunMSDNdotNET
dim HelpApp
Sub RunMSDNdotNET()
Dim sel
Dim LineNum
Dim ColNum
If VarType(ActiveDocument) = vbObject Then
Exit Sub
End If
sel = ActiveDocument.Selection.Text
if ActiveDocument.Selection = "" Then
LineNum = ActiveDocument.Selection.CurrentLine
ColNum = ActiveDocument.Selection.CurrentColumn
ActiveDocument.Selection.WordRight dsMove
ActiveDocument.Selection.WordLeft dsExtend
sel = ActiveDocument.Selection.Text
ActiveDocument.Selection.MoveTo LineNum, ColNum
End If
sel = RTrim( LTrim( sel ) )
if IsEmpty(HelpApp) Then
Set HelpApp = CreateObject("DExplore.AppObj")
End If
HelpApp.SetCollection "ms-help://MS.VSCC", "Visual C++ and Related"
HelpApp.Index()
On Error Resume Next
HelpApp.DisplayTopicFromKeyword( sel )
HelpApp.DisplayTopicFromF1Keyword( sel )
Dim wsh
Set wsh = CreateObject("WScript.Shell")
wsh.AppActivate( "Visual Studio .NET Combined Collection" )
End Sub
|
Любой из материалов, опубликованных на этом сервере, не может быть воспроизведен в какой бы
то ни было форме и какими бы то ни было средствами без письменного разрешения владельцев авторских
прав.