![]() |
Модераторы: diadiavova, gambit |
![]() ![]() ![]() |
|
umit |
|
|||
Новичок Профиль Группа: Awaiting Authorisation Сообщений: 11 Регистрация: 29.4.2007 Репутация: нет Всего: нет |
привет.подскажите,научите,помогите.........
1. Запускаю студию ( у меня 2005) 2. Создаю новый проект: Other project types / Extensibility / Shared Add-In 3. Запускается мастер, который помогает настроить этот адд-ин. 4. выбераю прилозгение WORD 5. Все объекты и члены модели автоматизации Visual Studio .NET основаны на объекте DTE. Объект DTE предоставляет IDE Visual Studio .NET и является верхним объектом иерархии модели автоматизации. Он расположен в пространстве имен EnvDTE. Имя сборки .NET для этого пространства имен (envdte) содержится в файле envdte.dll. Имя библиотеки типов COM (Microsoft Development Environment 7.0) содержится в файле dte.olb. Поскольку объект DTE требуется всем объектам автоматизации, для работы с моделью автоматизации Visual Studio .NET необходимо сделать две вещи: установить ссылку на пространство имен EnvDTE и установить ссылку для объекта DTE. 6.' Create a new instance of Visual Studio .NET. Dim DTE As Object DTE = Microsoft.VisualBasic.Interaction.CreateObject ("VisualStudio.DTE.7.1") Вопрос: все ето я уже сделала , только вот вчем проблема не понемаю , и не знаю как пользываться DTE ,и не понемаю ето предложение : Все объекты и члены модели автоматизации Visual Studio .NET основаны на объекте DTE.Объект DTE предоставляет IDE Visual Studio .NET и является верхним объектом иерархии модели автоматизации. спасибо |
|||
|
||||
Exception |
|
|||
Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Участник Клуба Сообщений: 4525 Регистрация: 26.12.2004 Репутация: 18 Всего: 186 |
Какую кнопку?
При чём тут кнопка? Научитесь формулировать вопросы грамотно! Добавлено через 1 минуту и 24 секунды А, если вам непонятно это предложение, возможно, вам следовало бы поучиться языку, прежде чем начинать на нём программировать. |
|||
|
||||
umit |
|
|||
Новичок Профиль Группа: Awaiting Authorisation Сообщений: 11 Регистрация: 29.4.2007 Репутация: нет Всего: нет |
1 кнопочка в приложение WORD
2 я пишу Add in (получается dll) 3 в опрос наверное деиствительно неправельныи (не полныи),я принашу свои извенения тем кто мучился ,пытаясь понять вопрос.и спасибо за попытку понять и обьяснить 4 на самом деле я только учу етот язык ,поетому задаю такие вопроссы 5 лутше я напишу код: Imports Office = Microsoft.Office.Core imports Extensibility imports System.Runtime.InteropServices #Region " Read me for Add-in installation and setup information. " ' When run, the Add-in wizard prepared the registry for the Add-in. ' At a later time, if the Add-in becomes unavailable for reasons such as: ' 1) You moved this project to a computer other than which is was originally created on. ' 2) You chose 'Yes' when presented with a message asking if you wish to remove the Add-in. ' 3) Registry corruption. ' you will need to re-register the Add-in by building the MyAddin1Setup project ' by right clicking the project in the Solution Explorer, then choosing install. #End Region <GuidAttribute("ACE2C18E-09B9-4C43-BEF5-0E399BB6770D"), ProgIdAttribute("MyAddin1.Connect")> _ Public Class Connect Implements Extensibility.IDTExtensibility2 Private MainMenuBar As Office.CommandBar Private MenuBarItem As Office.CommandBarControl Private WithEvents MyButton As Office.CommandBarButton Dim Shape As Microsoft.Office.Interop.Word.Shape Dim applicationObject As Object Dim addInInstance As Object Public Sub OnDisconnection(ByVal RemoveMode As Extensibility.ext_DisconnectMode, ByRef custom As System.Array) Implements Extensibility.IDTExtensibility2.OnDisconnection End Sub Public Sub OnConnection(ByVal application As Object, ByVal connectMode As Extensibility.ext_ConnectMode, ByVal addInInst As Object, ByRef custom As System.Array) Implements Extensibility.IDTExtensibility2.OnConnection On Error Resume Next ' create a new instance of visual studio.net Dim DTE As Object 'вот о нем я говорю пытаюсь что то с ним сделать но неполучаетсая DTE = Microsoft.VisualBasic.Interaction.CreateObjec("VisualStudio.DTE.7.1") applicationObject = application ' word addInInstance = addInInst ' ' add button MyButton = applicationObject.CommandBars("Standard").Controls.Add(applicationObject.msoControlButton )' сдесь я пытаюсь создать кнопочку With MyButton .Controls.Count.Caption = "My Custom Button" .Controls.Count.TooltipText = "My Button BredBred" .Controls.Count.Tag = "My Button Bred" .Controls.Count.OnAction = "saveasHTML" End With 'add picture on caption of button Shape = applicationObject.ActiveDocument.Shapes.AddPicture (FileName:="c:/2.gif")'картинка Shape.Select() applicationObject.Selection.CopyAsPicture() applicationObject.Selection.Delete() applicationObject.CommandBars("Standard").Controls(MyButton.Controls.Count).PasteFace() Shape = Nothing End Sub End Class подскажите где не правильно, и как лутше писать ,что пременить? когда запускаю ,приcxодит что то странное, и не создает exe спасибо. |
|||
|
||||
![]() ![]() ![]() |
Правила форума VB .NET | |
|
Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, diadiavova. |
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | VB .NET | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |